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

⟦ebefe5e63⟧

    Length: 55712 (0xd9a0)
    Notes: pts_type(SC)
    Names: »STARTX.SC«

Derivation

└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
    └─⟦this⟧ »NJREMIT/STARTX.SC« 
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
    └─⟦this⟧ »REMIT2/STARTX.SC« 

	IDENT START   	2.1DK 6 79-10-20 870150540210 

			=1, ODD BUFFER ADDRESS 
			REL 2.1 79-05-23 
			=2, 6234 LAMPS 
			REL 2.1 79-05-23 
			=3, UNDEFINED LABEL
			REL 2.1 79-05-23 
			=4, CURSOR STOPS AT LAST POS. EACH LINE
			REL 2.1 79-05-23 
			=5, RESET KEY FOR KB6235 
			REL 2.1 79-05-23 
			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.
* 
**************************************************************************




	EJECT
* 
* 
*	ENTRY PARAMETERS
* 
* 
* 
	ENTRY	LINHON,LINHOF,ATMASB 
	ENTRY	LSAVOF,LSAVON
	ENTRY	EMULA
	ENTRY	LIOLON	TURN ON OFFLINE LAMP
	ENTRY	LIOLOF	TURN OFF OFFLINE LAMP 
	ENTRY	VDUKB	KB3270 (CREDIT)
	ENTRY	DCTASK 
	ENTRY	DC1INQ 
	ENTRY	DC2INQ 
	ENTRY	REQTIM	SET REQUEST TIMER 
	ENTRY	ICWRTE 
* 
* 
* 
*     EXTERNAL REFERENSES 
* 
* 
* 
	EXTRN	DCINP
	EXTRN	DCGETM 
	EXTRN	ICREAD 
	EXTRN	GTRBUF 
	EXTRN	RLRBUF 
	EXTRN	ERASE	VDUPRT 
	EXTRN	TRPF 
	EXTRN	SETCUR 
	EXTRN	WCHAR
	EXTRN	TRPA 
	EXTRN	ERASUA 
	EXTRN	DISPL
	EXTRN	ERASUP 
* 
	EXTRN	KEYCNV	KEY CONVERSION IF NOT PTS 6272
	EXTRN	TASCII 
* 
	EXTRN	I:EVA0	CREDIT EVALUATION ROUTINE 
	EXTRN	I:RT1	RETURN TO CREDIT CODE
	EJECT


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

* 
KB6272	EQU	0	IF PTS 6272 (6236) IS NOT USED YOU MUST USE 'KEYCNV' 
			USE THE KEY CONVERSION TABLE IN 'TB3270' 
KEYLST	EQU	0	KEY LOCK STATUS SAVED IN 'KEYS'
OFLIN	EQU	1 
DCLIN	EQU	1	NUMBER OF MAIN FRAMES (1 OR 2)
PFX	EQU	1 
PAX	EQU	1 
IN:DL	EQU	1	INSERT&DELETE FUNCTIONS 
COPCMD	EQU	1	COPY COMMAND (ONLY TO PRINTER) IF := 1 
COPL	EQU	1	COPY LOCK IF := 1
LMPVDU	EQU	0	=1, 6272 ON 6346	DK5 
			=0, 6272 ON SELECTOR	DK5 
PA49	EQU	0	=1, PA4-9 ALLOWED	DK3
	EJECT
* 
* 
*     EQUATES 
* 
RSET	EQU	/B2	RESET KEY
*	COMMON EQU FOR ECB HANDLING 
* 

ECBBA	EQU	2 
ECBRL	EQU	4 
ECBEL	EQU	6 
ECBRC	EQU	8 
ECBCW	EQU	10
* 
* 
*	CREDIT USED EQU 
* 
* 
*	ECB REL. ADDRESSES
* 
* 
DIS	EQU	20
* 
ECBDC	EQU	-DIS-14 
	IFT	DCLIN=2
	IFT	COPCMD=1 
ECBDC2	EQU	ECBDC-DIS
ECBICR	EQU	ECBDC2-DIS 
ECBICW	EQU	ECBICR-DIS 
	XIF
	IFT	DCLIN=2
	IFF	COPCMD=1 
ECBDC2	EQU	ECBDC-DIS
ECBICW	EQU	ECBDC2-DIS 
	XIF
	IFF	DCLIN=2
	IFT	COPCMD=1 
ECBICR	EQU	ECBDC-DIS
ECBICW	EQU	ECBICR-DIS 
	XIF
	IFF	DCLIN=2
	IFF	COPCMD=1 
ECBICW	EQU	ECBDC-DIS
	XIF
ECBVDU	EQU	ECBICW-DIS 
ECBKB	EQU	ECBVDU-DIS
ECBSD	EQU	ECBKB-DIS 
	EJECT
* 
* 
*	BASE ADDRESS FOR TCA AND ECB
* 
TCABAS	EQU	A11
CREBAS	EQU	A13	ECB
* 
* 
*	TCA REL. ADDRESSES
* 
TCT01	EQU	0 
PRINTER	EQU	TCT01+2 
BVDU	EQU	PRINTER+2	VDU SCREEN BUFFER
PCURS	EQU	BVDU+1920	CURSOR ADDRESS , BINARY 
ATTRIB	EQU	PCURS+2	LAST ATTRIBUTE CHAR
CURATT	EQU	ATTRIB+2 
WCC	EQU	CURATT+2	WCC/CCC CHARACTER
KBINH	EQU	WCC+2	KEYBOARD INHIBIT INDICATOR
LINCNT	EQU	KBINH+2	LINE COUNTER 
DCLENG	EQU	LINCNT+2	DC READ EFFECTIVE LENGTH
ICWORK	EQU	DCLENG+2	WORK FIELD INTERTASK COMM 
INTATT	EQU	ICWORK+2	INTENSITY ATTRIBUTE 
OFFFLG	EQU	INTATT+2	OFFLINE FLAG
COPNO	EQU	OFFFLG+2	HARDCOPY TASK ID 
CCC	EQU	COPNO+2	COPY COMMAND CHARACTER
MAIN	EQU	CCC+2	MAIN FRAME 
MODE	EQU	MAIN+2	INSERT MODE SWITCH
KEYS	EQU	MODE+2	KEY LOCK STATUS 
ECBDCC	EQU	KEYS+2	ECB ADDRESS LAST READ DC
ECBBLK	EQU	ECBDCC+2	ECBS FOR MULTIPLE WAIT &C 
RDMORE	EQU	ECBBLK+10	BRANCH ADDRESS NEXT READ KB
LAMSAV	EQU	RDMORE+2	SAVE AREA FOR LAMPS	DK2 
	EJECT
NULL	EQU	/7F	NULL CHARACTER 
DUPCH	EQU	/7B 
FMCH	EQU	/60
LBVDU	EQU	1920	1920 CHAR DISPLAY	6344 
LPAGE	EQU	48	LINES ON ONE PAGE
LLINE	EQU	80	80 CHAR PER DISPLAY LINE 
* 
*	CONFIG DATA 'CB1' REL ADDRESSES 
* 
NBRKBV	EQU	0	NUMBER OF KB/VDUS
NBRGTP	EQU	NBRKBV+2	NUMBER OF GTPS
* 
MF1KBV	EQU	NBRGTP+2	DV ADDRESSES KB/VDU MF #1 
MF1GTP	EQU	MF1KBV+16	DV ADDRESSES GTPS MF # 1 
	IFT	DCLIN=2
MF2KBV	EQU	MF1GTP+16
MF2GTP	EQU	MF2KBV+16
	XIF
	EJECT
* 
*	KEY TABLE	FIXED ENTRY FOR EACH FUNCTION 
* 
KEYTAB	EQU	*
	DATA	CHAR	SPACE
	DATA	CHAR	!
	DATA	CHAR	"
	DATA	CHAR	#
	DATA	CHAR	$
	DATA	CHAR	%
	DATA	CHARFS	&  FIELD SEPARATOR	DK4 
	DATA	CHAR	'
	DATA	CHAR	(
	DATA	CHAR	)
	DATA	CHAR	*
	DATA	CHAR	+
	DATA	NUM	,	DK
	DATA	NUM	- 
	DATA	NUM	. 
	DATA	CHAR	/
* 
	DATA	NUM 
	DATA	NUM	1 
	DATA	NUM	2 
	DATA	NUM	3 
	DATA	NUM	4 
	DATA	NUM	5 
	DATA	NUM	6 
	DATA	NUM	7 
	DATA	NUM	8 
	DATA	NUM	9 
	DATA	CHAR	:
	DATA	CHAR	;
	DATA	CHAR	<
	DATA	CHAR	=
	DATA	CHAR	>
	DATA	CHAR	?
* 
	DATA	CHAR	E' 
	DATA	CHAR	A
	DATA	CHAR	B
	DATA	CHAR	C
	DATA	CHAR	D
	DATA	CHAR	E
	DATA	CHAR	F
	DATA	CHAR	G
	DATA	CHAR	H
	DATA	CHAR	I
	DATA	CHAR	J
	DATA	CHAR	K
	DATA	CHAR	L
	DATA	CHAR	M
	DATA	CHAR	N
	DATA	CHAR	O
* 
	DATA	CHAR	P
	DATA	CHAR	Q
	DATA	CHAR	R
	DATA	CHAR	S
	DATA	CHAR	T
	DATA	CHAR	U
	DATA	CHAR	V
	DATA	CHAR	W
	DATA	CHAR	X
	DATA	CHAR	Y
	DATA	CHAR	Z
	DATA	CHAR	[
	DATA	CHAR	BACK SLASH 
	DATA	CHAR	]
	DATA	CHAR	CIRCOMFLEX 
	DATA	CHAR	UNDERLINE
* 
	DATA	RETURN	/60 CANNOT BE USED 
	DATA	CHAR	LOWER CASE 
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
* 
	IFT	KEYLST=1 
	DATA	KEYL	KEYLOCK
	DATA	KEYL
	DATA	KEYL
	DATA	KEYL
	DATA	KEYL
	DATA	KEYL
	DATA	KEYL
	DATA	KEYL
	XIF
	IFF	KEYLST=1 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	XIF
	DATA	CHAR	LOWER CASE X 
	DATA	CHAR
	DATA	CHAR
	DATA	RETURN	/7B-/7F CANNOT BE USED 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
* 
	IFT	PAX=1
	DATA	PAEX
	XIF
	IFF	PAX=1
	DATA	RETURN
	XIF
	DATA	PA1 
	DATA	PA2 
	DATA	PA3 
	DATA	PA410	PA4 - PA10 (ALFASKOP) 
	DATA	PA410 
	DATA	PA410 
	DATA	PA410 
	DATA	PA410 
	DATA	PA410 
	DATA	PA410 
	DATA	CLEAR 
	IFT	PFX=1
	DATA	PFEX
	XIF
	IFF	PFX=1
	DATA	RETURN
	XIF
	DATA	PF	1
	DATA	PF	2
	DATA	PF	3
* 
	DATA	PF	4
	DATA	PF	5
	DATA	PF	6
	DATA	PF	7
	DATA	PF	8
	DATA	PF	9
	DATA	PF	10 
	DATA	PF	11 
	DATA	PF	12 
	DATA	RETURN	/99-/A4 RESERVED FOR PF13-24 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
* 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	ENTER 
	DATA	CRUP
	DATA	CRLEFT
	DATA	CRRIGT
	DATA	CRDOWN
	DATA	BAKTAB
	DATA	TAB 
	DATA	CRNL
	DATA	RDHOME
	DATA	ERINPT
	DATA	EREOF 
* 
	IFT	IN:DL=1
	DATA	INSERT
	DATA	DELETE
	XIF
	IFF	IN:DL=1
	DATA	RETURN
	DATA	RETURN
	XIF
	DATA	RESET 
	DATA	DUP 
	DATA	FLDMRK
	DATA	COPY
	IFT	OFLIN=1
	DATA	OFLINE
	XIF
	IFF	OFLIN=1
	DATA	RETURN
	XIF
	IFT	DCLIN=2
	DATA	MFCHGE
	XIF
	IFF	DCLIN=2
	DATA	RETURN
	XIF
	DATA	RETURN
	DATA	RETURN
	DATA	ZERO:2
	DATA	ZERO:3
	DATA	NUMCOM
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
* 
	DATA	LCASPW	LOWER CASE P - W (BECAUSE OF KEYLOCK)
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	EJECT
************************************************************* 
* 
*	START ADDRESS FOR DC TASKS
************************************************************* 

DCTASK	EQU	*
	CF	A14,I:EVA0
	LDR*	A1,A9	POLL & SELECT ADDRESS 
	LDKL	A8,ECBDC
	ADR	A8,CREBAS
	ST	A1,ECBCW,A8 
	LDK	A7,/B7	TRANSFER PARAMETERS 
	LKM
	DATA	1 
DCT100	EQU	*
	LDK	A7,/80	TEST IF ANY MESSAGE WITH WAIT 
	LKM
	DATA	1 
	CF	A14,GTRBUF	GET RECEIVE BUFFER 
	LDKL	A8,ECBDC
	ADR	A8,CREBAS
	CF	A14,DCGETM
	LD	A4,ECBBA,A8 
	CF	A14,RLRBUF	RELEASE BUFFER 
	RB	DCT100
	EJECT
* 
* 
*	SUBROUTINE ACTIVATED BY ALL TASKS 
* 
* 
EMULA	EQU	* 
	ADR	A8,CREBAS	GET ECB ADDRESS
	ST	A1,ECBCW,A8	STORE IN ECBDCT 
	LDK	A7,/B7	TRANSFER PARAMETERS 
	LKM
	DATA	1 
	RTN	A14
	EJECT
* 
***************************************************** 
* 
*     VDUKB 
* 
*	MAIN MODULE FOR KEYBOARD VDU
* 
********************************************************
VDUKB	EQU	* 
	CF	A14,I:EVA0
	LDR	TCABAS,A9	LOAD ASSEM TCA BASE

	IFT	OFLIN=1


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

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

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

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

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

	LDK	A1,1 
	LDKL	A1,LBVDU+1
	ST	A1,CURATT,TCABAS	INITIATE WITH UNFORM. SCREEN 
	CF	A14,LMF1ON
	CM	MAIN,TCABAS	INDICATE MAIN-FRAME # 1 
	EJECT
* 
*	RELATIVE POS IN ECBBLK
KB	EQU	2
DC1	EQU	4 
	IFT	DCLIN=2
	IFT	COPCMD=1 
DC2	EQU	6 
ICR	EQU	8 
ECBBS	EQU	4 
	XIF
	IFT	DCLIN=2
	IFF	COPCMD=1 
DC2	EQU	6 
ECBBS	EQU	3 
	XIF
	IFF	DCLIN=2
	IFT	COPCMD=1 
ICR	EQU	6 
ECBBS	EQU	3 
	XIF
	IFF	DCLIN=2
	IFF	COPCMD=1 
ECBBS	EQU	2 
	XIF
* 
	LDK	A1,ECBBS 
	ST	A1,ECBBLK,TCABAS
VDU100	EQU	*
	LD	A1,ECBBLK+DC1,TCABAS
	RF(NZ)	VDU110	PENDING
	CF	A14,DC1INQ	TEST IF ANY MESSAGE, NO WAIT 
VDU110	EQU	*
	IFT	DCLIN=2
	LD	A1,ECBBLK+DC2,TCABAS
	RF(NZ)	VDU120	PENDING
	CF	A14,DC2INQ	TEST IF ANY MESSAGE MF # 2, NO WAIT
	XIF
VDU120	EQU	*
	IFT	COPCMD=1 
	LD	A1,ECBBLK+ICR,TCABAS
	RF(NZ)	VDU125	PENDING
	LDKL	A3,ICWORK	BUFFER
	ADR	A3,TCABAS	  ADDRESS
	LDK	A6,2	REQ LENGTH
	CF	A14,ICREAD
	ST	A8,ECBBLK+ICR,TCABAS
	XIF
VDU125	EQU	*
	LD	A1,ECBBLK+KB,TCABAS 
	RF(NZ)	VDU150	PENDING
	CF	A14,RDKBNW	READ KEYBOARD NO WAIT
VDU150	EQU	*
	LDKL	A7,ECBBLK 
	ADR	A7,TCABAS
	LKM
	DATA	7	MULTIPLE WAIT 
	CW	A8,ECBBLK+KB,TCABAS 
	RF(E)	KBINP	INPUT FROM KEYBOARD
	IFT	COPCMD=1 
	CW	A8,ECBBLK+ICR,TCABAS
	RF(E)	BUFCOP	SEND BUFFER TO PRINTER
	XIF
	ST	A8,ECBDCC,TCABAS	SAVE ECB ADDRESS FOR CURRENT READ
	CF	A14,DCINP	INPUT FROM DC 
	RB	VDU100
	EJECT
* 
*	READ KEYBOARD WITH NO WAIT
* 
RDKBNW	EQU	*
	LDKL	A8,ECBKB
	ADR	A8,CREBAS
	LDK	A7,1 
	ST	A7,ECBRL,A8	REQ LENGTH = 1
	ST	A7,ECBCW,A8	INDICATE NOT POWER OFF
	ST	A8,ECBBLK+KB,TCABAS 
	RF	DC1I30
* 
*	TEST IF ANY MESSAGE DC
* 
DC1INQ	EQU	*
	LDKL	A8,ECBDC
	ADR	A8,CREBAS
	ST	A8,ECBBLK+DC1,TCABAS
DC1I20	EQU	*
	LDK	A1,0 
	CF	A14,REQTIM
	LDK	A7,0 
DC1I30	EQU	*
	LKM
	DATA	1 
	RTN	A14
DC2INQ	EQU	*
	IFT	DCLIN=2
	LDKL	A8,ECBDC2 
	ADR	A8,CREBAS
	ST	A8,ECBBLK+DC2,TCABAS
	RB	DC1I20
	XIF
	IFT	COPCMD=1 
	EJECT
* 
*	SEND BUFFER TO PRINTER TASK 
* 
BUFCOP	EQU	*
	CM	ECBBLK+ICR,TCABAS 
	LDKL	A3,BVDU	BUFFER
	ADR	A3,TCABAS	  ADDRESS
	IFT	COPL=1 
* 
*	CHECK IF COPY LOCK
* 
	LCR	A2,A3
	ANK	A2,/18 
	XRK	A2,/10 
	RB(Z)	VDU100	DON'T COPY
	XIF
	IFT	COPCMD=1 
	LDK	A4,/8B	ORDER: WRITE ADDRESSED WITH WAIT
	LD	A5,ICWORK,TCABAS	TASK ID
	LDKL	A6,LBVDU	REQ LENGTH 
	CF	A14,ICWRTE
	LD	A1,KBINH,TCABAS 
	ANK	A1,/E	NOT INHIBITED ANY LONGER 
	ST	A1,KBINH,TCABAS 
	RB	VDU100
	XIF
	EJECT
**	KEYBOARD INPUT 
* 
KBINP	EQU	* 
	CM	ECBBLK+KB,TCABAS
	LD	A2,ECBCW,A8 
	RF(Z)	KBIN05	POWER OFF 
	LD	A2,ECBRC,A8 
	RF(0)	KBIN10 
KBIN05	EQU	*
	LDK	A7,4	RESET KEYBOARD BUFFER 
	LKM
	DATA	1 
	RB	VDU100
KBIN10	EQU	*
	LD	A1,KBINH,TCABAS 
	ANK	A1,1	RESETTING BY 'RESET' ALLOWED ?
	RB(NZ)	KBIN05	NO 
	LC*	A2,ECBBA,A8	GET INPUT CHARACTER
	IFF	KB6272=1		=5 
	CF	A14,KEYCNV	CONVERT KEY CODE	=5
	XIF			=5 
	LD	A1,KBINH,TCABAS 
	ANK	A1,6	MUST BE RESET KEY ? 
	RF(Z)	KBIN20	NO
	CWK	A2,RSET	RESET KEY ?
	RB(NE)	KBIN05	NO 
KBIN20	EQU	*
	LDR	A5,A2	COPY INPUT CHARACTER 
	SUK	A5,/20	INDEX 
	RB(N)	VDU100	ILLEGAL CHAR
	CWK	A5,/A7 
	RB(G)	VDU100	ILLEGAL CHAR
	CF	A14,DCABOR	ABORT DC-READ TO ENABLE DC-WRITE 
	LDR	A7,A7
	ABL(NZ)	VDU100	DC COMPLETED, TAKE CARE OF MESSAGE
	ADR	A5,A5	TO KEY TABLE 
* 
	LDKL	A8,ECBVDU 
	ADR	A8,CREBAS
	LD	A1,RDMORE,TCABAS
	RF(Z)	KBIN30 
* 
	CFR	A14,A1 
	ABL	VDU100 
* 
KBIN30	EQU	*
	CFI	A14,KEYTAB,A5	BRANCH TO RESPECTIVE INPUT HANDLER 
	ABL	VDU100 
	EJECT
* 
*	ABORT DC-REQUEST TO ENABLE WRITE
* 
DCABOR	EQU	*
	LDK	A7,0 
	LDKL	A8,ECBDC
	IFT	DCLIN=2
	LD	A1,MAIN,TCABAS
	RF(NZ)	DCAB05
	XIF
	CM	ECBBLK+DC1,TCABAS 
	IFT	DCLIN=2
	RF	DCAB10
DCAB05	EQU	*
	CM	ECBBLK+DC2,TCABAS 
	LDKL	A8,ECBDC2 
DCAB10	EQU	*
	XIF
	ADR	A8,CREBAS
	LKM
	DATA	10
	RTN	A14
	EJECT
* 
*	SET REQUEST TIMER 
*	A1 = TIME OUT VALUE 
*	A8 = ECB ADDRESS
* 
REQTIM	EQU	*
	ST	A1,ECBCW,A8 
	LDK	A7,/B9 
	LKM
	DATA	1 
	RTN	A14
	EJECT

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

******************************************************************
	LDR	A2,A1
	CF	A14,ATMASB	SEARCH ATTRIBUTE BACKWARDS 
	SUK	A1,1 
	RF(Z)	CRN130	NO ATTRIBUTE FOUND
	ANK	A3,/10 
	RF(NZ)	TAB	PROTECTED FIELD 
	CW	A2,PCURS,TCABAS	CURSOR ON ATTRIBUTE ??
	RF(NE)	CRN150	NO!! 
	CWK	A2,1919	LAST SCREEN POSITION?? 
	RF(NE)	CRN140	NO!! 
CRN130	LDKL	A2,-1 
CRN140	ADK	A2,1 
	ST	A2,PCURS,TCABAS	
CRN150	CF	A14,SETCUR	POSITION CURSOR
	RTN	A14
******************************************************************* 
	EJECT
* 
****************************************************
* 
*	TAB 
* 
*	MOVE THE CURSOR TO THE FIRST CHAR. LOCATION 
*	OF THE NEXT UNPROTECTED DATA FIELD
* 
****************************************************
* 
*	A1=END OF BUFFER PAREM.   	0=EOB NOT REACHED
*			2=EOB 
*			3=ATTRIB. IN EOB POS
*	A2=CURSOR BINARY ADDRESS
*	A3=CHARACTGR
* 
TAB	EQU	* 
	LDK	A5,1 
	LD	A2,PCURS,TCABAS	GET CURSOR POS
TAB100	CF	A14,ATMASF	SEARCH ATTRIBUTE 
	CWK	A1,0	END OF BUFFER?
	RF(G)	TAB300	YES 
	ADK	A2,1 
TAB150	ANK	A3,/10	UNPROTECTED?
	RF(E)	TAB200	YES 
	RB	TAB100	NEXT ATTRIB. 
TAB200	ST	A2,PCURS,TCABAS	
	CF	A14,SETCUR	DISPLAY NEW CURSOR 
	RTN	A14
TAB300	LDK	A2,0 
	CWK	A1,3	ATTRIBUTE IN LAST POSITION ?? 
	EJECT
********************************************************
	RF(NE)	TAB350	NO!! 
	ANK	A5,1	WHOLE BUFFER CONTROLLED ??
	RB(Z)	TAB200	YES!! 
	SUR	A5,A5	 
	RB	TAB150	CHECK ATTRIBUTE
TAB350	EQU	*
********************************************************
	ANK	A5,1	WHOLE BUFF. CONTROLED?
	RF(G)	TAB400	NO
	RB	TAB200	ALL PROT. OR NON-FORMATTED BUFF. 
TAB400	LDK	A5,0 
	RB	TAB100
	EJECT
* 
*********************************************************** 
* 
*	DUP 
* 
*	DUPLICATE KEY 
*	OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE
*	TO BE ENTERED INTO THE DISPLAY BUFFER AND A STANDARD
*	TAB KEY OPERATION TO BE PERFORMED 
* 
************************************************************
* 
DUP	EQU	* 
	LD	A1,MODE,TCABAS	INSERT MODE ?? 
	ABL(NZ)	ERROR	FUNCTION NOT ALLOWED IN INSERT MODE
	LDK	A2,DUPCH 
	LD	A3,ECBKB+ECBBA,CREBAS	GET KB BUFF. ADDR.
	SCR	A2,A3
	CF	A14,NUM 
	CF	A14,TAB 
	RTN	A14
	EJECT
* 
*********************************************************** 
* 
*       FIELD MARK
* 
*       OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE
*       TO BE ENTERED IN THE DISPLAY BUFFER IN ADDITION 
*       TO THE DC CHARACTER TRANSMITTED 
* 
**********************************************************
* 
FLDMRK	EQU	*
	LD	A1,MODE,TCABAS	INSERT MODE??
	ABL(NZ)	ERROR	FUNCTION NOT ALLOWED IN INSERT MODE
	LDK	A2,FMCH
	LD	A3,ECBKB+ECBBA,CREBAS	GET KB BUFFER ADDR. 
	SCR	A2,A3
	CF	A14,NUM 
	RTN	A14
	EJECT
* 
**********************************************************
* 
*       RDHOME
* 
*       READY HOME KEY
*       OPERATION OF THIS KEY CAUSES THE CURSOR TOBE
*        POSITIONED AT THE FIRST UNPROTECTED CHARACTER
*       ON THE SCREEN 
* 
********************************************************
* 
RDHOME	LDKL	A4,BVDU 
	ADR	A4,TCABAS	VDU BUFFER ADDRESS 
	LC	A2,1919,A4	GET LAST SCREEN CHARACTER
	ANK	A2,/7F 
	CWK	A2,/20 
	RF(NL)	RDH10 
	ANK	A2,/10 
	ABL(Z)	CRHOME	UNPROTECTED FIELD
RDH10	CM	PCURS,TCABAS 
	CF	A14,TAB	SEARCH 1ST UNPROTECTED FIELD
	RTN	A14
	EJECT
* 
***************************************************** 
* 
*	BAKTAB
* 
*	MOVE THE CURSOR TO THE FIRST CHARACTER LOCATION 
*	OF THE NEXT PRECIDING UNPROTECTED DATA FIELD
* 
****************************************************
* 
*	A2=CURSOR BINARY ADDRESS
*	A3=CHARACTER
BAKTAB	EQU	*
	LDK	A5,1 
	LD	A2,PCURS,TCABAS	GET CURSOR POS
	CF	A14,GBUFFC	GET BUFF CHAR. 
	CWK	A3,/1F	ATTRIB. CHAR? 
	RF(NG)	BAK100	YES
	CWK	A2,0	UPPER LEFTMOST POS? 
	RF(E)	BAK400	YES 
	SUK	A2,1 
BAK100	CWK	A2,0	UPPER LEFTMOST POS? 
	RF(E)	BAK400	YES 
BAK200	SUK	A2,1 
	CF	A14,ATMASB	SEARCH ATTRIBUTE 
************************************************************
	SUK	A1,1	
	RF(Z)	BAK400	NO ATTRIBUTE
	RF(N)	BAK250	ATTRIBUTE FOUND. NOT IN LAST POS. 
	SUR	A2,A2	ATTRIBUTE FOUND IN LAST POSITION 
	RF	BAK300
BAK250	EQU	*
********************************************************* 
	ANK	A3,/10	PROTECTED?
	RB(NE)	BAK100	YES
	ADK	A2,1 
BAK300	ST	A2,PCURS,TCABAS 
	CF	A14,SETCUR	SET CURSOR 
	RTN	A14
BAK400	SUK	A5,1	WHOLE BUFF CONTROLLED?
	RB(NZ)	BAK300	YES
	LDKL	A2,LBVDU-1	END BUFFER ADDRESS 
	CF	A14,GBUFFC	GET BUFF CHAR. 
	CWK	A3,/1F	ATTRIBUTE CHAR? 
	RB(G)	BAK200	NO
	ANK	A3,/10	PROTECTED?
	RB(NE)	BAK200	YES
	ST	A3,ATTRIB,TCABAS	UPDATE NEW ATTRIBUTE 
	ST	A2,CURATT,TCABAS
*************************************************************** 
	RB	BAK200
****************************************************************
	EJECT
* 
********************************************************* 
* 
*	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
* 
	EJECT
*************************************************************** 
* 
*   Z E R O : 3    TRIPLE ZERO KEY
*   Z E R O : 2     DOUBLE ZERO KEY 
* 
************************************************* 

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

ZERO:2	EQU	*
	LDK	A1,X'30'	CHARACTER ZERO
	SC*	A1,ECBKB+ECBBA,CREBAS	STORE CHARACTER IN BUFFER
	CF	A14,NUM	DISPLAY CHARACTER 
	CF	A14,NUM	DISPLAY CHARACTER 
	RTN	A14	RETURN 
* 
**********************************************************
* 
*	NUM 
* 
*	DISPLAY AND UPDATE NUMERICS 
* 
**********************************************************
* 
NUMCOM	EQU	*
	LDK	A2,/2C 
	SC*	A2,ECBKB+ECBBA,CREBAS
* 
NUM	EQU	* 
	LD	A2,PCURS,TCABAS	GET CURSOR POS
	LD	A3,CURATT,TCABAS	GET ATTRIBUTE ADDRESS
	CWR	A2,A3	CURSOR ON ATTRIBUTE? 
	RF(E)	NUM200	YES 
NUM100	LD	A3,ATTRIB,TCABAS	GET ATTRIBUTE CHAR 
	LDR	A4,A3
	ANK	A4,/10	PROTECTED FIELD?
	RF(E)	ANCOMM	NO
NUM200	ABL	ERROR	NOT ALLOWED DISPLAY POS
	EJECT
* 
**********************************************************
* 
*	ANCOMM
* 
*	COMMON SUBMODULE FOR ALPHANUMERIC CHAR. DISPLAYING AND
*	UPDATING
* 
**********************************************************
* 
ANCOMM	EQU	*
	LC*	A4,ECBKB+ECBBA,CREBAS		=1
ANC005	EQU	*
	LDKL	A6,BVDU 
	ADR	A6,TCABAS
	ADR	A6,A2

	LD	A1,MODE,TCABAS	INSERT MODE ?? 
	RF(NZ)	ANC010	YES!!
	SCR	A4,A6	UPDATE VDU BUFF
ANC010	LDR	A7,A6	SAVE CURSOR POSITION 
	LD	A5,CURATT,TCABAS
	CWK	A5,LBVDU+1	UNFORMATTED SCREEN? 
	RF(E)	ANC100	YES 
	SUR	A6,A2	BVDU START ADDR. 
	ADR	A6,A5	ATTRIB. POS
	LD	A3,ATTRIB,TCABAS	GET ATTRIBUTE CHAR 
	ORK	A3,1	MDT-BIT ON
	SCR	A3,A6
ANC100	EQU	*
	IFT	IN:DL=1		=3
	LD	A1,MODE,TCABAS	INSERT MODE ?? 
	RF(Z)	ANC120	NO!!
	LCR	A1,A7	GET CHARACTER AT CURSOR POSITION 
	ANK	A1,/7F 
	CWK	A1,NULL	NULL?? 
	RF(NE)	INS:10	NO!! 
	SCR	A4,A7	STORE INPUT CHARACTER
	XIF			=3 
ANC120	EQU	*

	LDK	A5,/2B	CURSOR NOT MOVED BEFORE DISPLAYING
	LD	A1,ECBVDU+ECBBA,CREBAS	 
	SC	A5,1,A1		=1 
	LDK	A5,/1E 
	ADK	A1,2	NEXT POS
	SCR	A5,A1	LOW INT, STORE IN BUFFER 
	LDR	A6,A3
	ANK	A3,/4	STANDARD DISPLAYING? 
	RF(Z)	ANC200	YES 
	ANK	A6,/2	INTENSIFIED DISPLAYING?
	RF(Z)	ANC150	YES 
	LDK	A2,/20	LOAD SPACE
	RF	ANC250	NON DISPLAYING 
ANC150	LDK	A5,/1F	SET HIGH INTENSITY
	SCR	A5,A1	STORE IN BUFFER
ANC200	LDR	A2,A4	UPDATE A2 WITH CHAR
ANC250	CF	A14,WCHAR	DISPLAY CHAR AND CURSOR 
	LD	A2,PCURS,TCABAS	GET CURSOR POS
	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
	EJECT

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

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

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


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

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


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

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

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

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


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


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


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

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


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

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

S:NULL	EQU	*
	LDR	A1,A6

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

S:NU20	LDR	A2,A1	ADDRESS OF FIRST NULL
S:NU30	RTN	A14
	EJECT
* 
********************************************************* 
* 
*	CANCEL
* 
*	PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION 
*	AND GENERATE AN AID CHARACTER 
* 
********************************************************* 
* 
CANCEL	EQU	*
PA2	EQU	* 
	LDK	A2,/2E	CANCEL POS
CAN100	EQU	*
	LC	A2,TASCII,A2	GET ASCII CODE 
CAN200	EQU	*
	CF	A14,LINHON	TURN ON "KEYBOARD INHIBIT" 
	CF	A14,TRPA	UPDATE AID AND TRANSMIT
	RTN	A14
* 

	IFT	PAX=1

* 
* 
*	PROGRAM ATTENTION KEY IS PRESSED AND NUMBER WILL BE INSERTED TO 
*	DEFINE ONE OF THE FUNCTIONS UNDER PA1.CANCEL OR PA3 
* 
* 
PAEX	EQU	*
	LDKL	A1,PAEXA
	ST	A1,RDMORE,TCABAS
	RTN	A14
PAEXA	EQU	* 
	CM	RDMORE,TCABAS 
	SUK	A2,/31	CHECK IF NUM.1-3
	RF(L)	PFERR	ILLEGAL CHAR.
	SUK	A2,/2	CHECK IF NUM.1-3 
	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
	EJECT

* 
*    PA1    PROGRAM ATTENTION KEY 
* 
* 
PA1	EQU	* 
	LDK	A2,/2C	PA1 POS 
	RB	CAN100
* 
* 
*    PA3   PROGRAM ATTENTION KEY
* 
* 
PA3	EQU	* 
	LDK	A2,/2B	PA3 POS 
	RB	CAN100
* 
*	PA4 - PA10 (ALFASKOP) 
	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
	EJECT
* 
********************************************************
* 
*	ENTER 
* 
*	PROGRAM FUNCTION KEY WHICH CAUSES AN I/O OPERATION
*	AND GENERATE AN AID CHARACTER FOLLOWED BY AN SBA ORDER
*	ATTRIBUTE ADDRESS AND TEXT FOR EACH MODIFIED FIELD
*	NULLS ARE SUPRESSED 
* 
********************************************************* 
* 
ENTER	EQU	* 
	LDK	A2,/3D	ENTER POS 
ENT100	EQU	*
	LC	A2,TASCII,A2	CONVERT TO ASCII 
	CF	A14,LINHON	TURN ON "KEYBOARD INHIBIT" 
	CF	A14,TRPF	AID+MODIFIED FIELDS+TRANSMIT 
ENT200	EQU	*
	RTN	A14
* 

	IFT	PFX=1

* 
* 
*	PROGRAM FUNCTION KEY IOS PRESSED AND NUMBER WILL BE INSERTED TO 
*	DEFINE ONE OF THE FUNCTIONS UNDER PF1-PF12
* 
* 
PFEX	EQU	*
	LDKL	A1,PFEXA
	RF	PFNXT 
PFEXA	EQU	* 
	CM	RDMORE,TCABAS 
	SUK	A2,/30	LEGAL CHAR ?
	RF(L)	PFERR	ILLEGAL,GO TO ERR.HANDLING 
	RF(Z)	PF0	FIRST NUM. 0 GO TO PF0 
	SUK	A2,/1	FIRST NUM. 1 ? 
	RF(G)	PFERR	ILLEGAL NUM. 
	LDKL	A1,PF1A 
	RF	PFNXT 
PF1A	EQU	*
	CM	RDMORE,TCABAS 
	SUK	A2,/30	LEGAL NUM.? 
	RF(L)	PFERR	ILLEGAL GO TO ERR.HANDLING 
	SUK	A2,/2	LEGAL NUM ?
	RF(G)	PFERR	ILLEGAL GO TO ERR.HANDLING 
	ADK	A2,/3C	PF10-12 POS 
	RB	ENT100

PF0	EQU	* 
	LDKL	A1,PF0A 
PFNXT	EQU	* 
	ST	A1,RDMORE,TCABAS
	RTN	A14
PF0A	EQU	*
	CM	RDMORE,TCABAS 
	SUK	A2,/31	LEGAL NUM ? 
	RF(L)	PFERR	ILLEGAL GO TO ERR.HANDLING 
	SUK	A2,/8	LEGAL NUM ?
	RF(G)	PFERR	ILLEGAL GO TO ERR.HANDLING 
	ADK	A2,/39	PF1-9 POS 
	RB	ENT100
	XIF
PFERR	EQU	* 
	CF	A14,ERROR	GO TO ERR-HANDLING RUTIN
	RTN	A14	GO TO MAIN READ MODULE 


PF	EQU	*
	SUK	A2,/5C 
	RB	ENT100
	IFT	OFLIN=1
	EJECT
************************************************************
* 
*	OFLINE
*            THE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND 
*           A BRANCH IS MADE BACK TO CREDIT PROGRAM 
* 
************************************************************* 
OFLINE	EQU	*
	CF	A14,CLEAR 
OFLI05	EQU	*
	CF	A14,RESET 
	IFT	DCLIN=2
	LD	A7,MAIN,TCABAS
	XRK	A7,1 
	ST	A7,MAIN,TCABAS
	CF	A14,DCABOR	ABORT REQUEST NOT CURRENT MF 
	XIF
	IFT	OFLIN=1
	LDK	A1,0	DV ADDRESS ::= 0MESSAGES TO VDU IGNORED 
	LDKL	A8,ECBDC	MF # 1 
	CF	A14,EMULA	TRANSFER PARAMETERS 
	IFT	DCLIN=2
	LDKL	A8,ECBDC2	MF # 2
	CF	A14,EMULA	TRANSFER PARAMETERS 
	XIF
	IFT	OFLIN=1
	CF	A14,LMF1OF
	CF	A14,LMF2OF
	CF	A14,LSAVOF
	CF	A14,LIOLON	TURN ON OFFLINE LAMP 
	IM	OFFFLG,TCABAS	SET OFFLINE FLAG
	ADKL	A14,4	SKIP ONE STACK LEVEL
	LD	A13,2,A14	RELOAD REGISTERS A12-A13
	LD	A12,4,A14 
	ADKL	A14,4	UPDATE STACK POINTER
	ABL	I:RT1	RETURN TO "OFFLINE" PROGRAM

	XIF
	IFT	DCLIN=2
	EJECT
*********************************************************** 
* 
*	MAINFRAME CHANGE
*	  THE SWITCH 'MAIN' IS CHANGED, AND THE APPROPRIATE 'SYSTEM' LAMP 
*	      IS TTURNED ON 
* 
********************************************************************* 
* 
MFCHGE	EQU	*
	CF	A14,CLEAR 
MFCH05	EQU	*
	CF	A14,RESET 
	CF	A14,LMF1OF
	CF	A14,LMF2OF
	CF	A14,LSAVOF
	LD	A1,MAIN,TCABAS
	XRK	A1,1 
	RF(NZ)	MFCH10
	CF	A14,LMF1ON
	RF	MFCH90
MFCH10	EQU	*
	CF	A14,LMF2ON
MFCH90	EQU	*
	ST	A1,MAIN,TCABAS
	RTN	A14
	XIF
	EJECT
* 
********************************************************
* 
*	CLEAR 
* 
*	PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION 
*	AND GENERATE AN AID CHARACTER. THE ENTIRE DISPLAY 
*	BUFFER IS CLEARED TO NULLS AND CURSOR IS LOCATED IN 
*	HOME POS
* 
********************************************************
* 
CLEAR	EQU	* 
	LDK	A2,/2D	POS FOR 'CLEAR' 
	LC	A2,TASCII,A2
	CF	A14,LINHON	TURN ON "KEYBOARD INHIBIT" 
	CF	A14,TRPA	UPDATE AID AND TRANSMIT
	CF	A14,ERASE	ERASE ENTIRE SCREEN 
	RTN	A14
	EJECT
* 
************************************************************
* 
*	EREOF 
* 
*	ERASE TO END OF FIELD 
* 
************************************************************
* 
EREOF	EQU	* 
	LDK	A6,1 
	LD	A3,ATTRIB,TCABAS	GET ATTRIBUTE
	ANK	A3,/10	UNPROTECTED?
	RF(E)	ERE100	YES 
	ABL	ERROR
ERE100	LD	A2,PCURS,TCABAS 

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

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

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

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

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

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

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

* 
*   TURN ON SOUND ALARM 
* 

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

	RTN	A14
	IFT	KEYLST=1 
	EJECT
******************************************************************
* 
*   KEY LOCK STATUS IS SET IN 'KEYS'
*	ON ENTRY  A2 = KEY LOCK VALUE /70-/77 
* 
******************************************************************
* 
KEYL	EQU	*
	SUK	A2,/78	GET NEG KEY LOCK VALUE
	LD	A3,KEYS,TCABAS	OLD STATUS 
	LDK	A4,/10 
KEYL10	EQU	*
	SRL	A4,1 
	ADK	A2,2	1 = OFF,0 = ON
	RB(N)	KEYL10 
	ANR	A3,A4	CHECK OLD KEY POS
	RF(NZ)	KEYL20	WAS ON 
	LDR	A2,A2	WAS OFF
	RF(NZ)	KEYL99	NOW OFF, NO CHANGE 
	RF	KEYL30	NOW ON 
KEYL20	EQU	*	WAS ON 
	LDR	A2,A2
	RF(Z)	KEYL99	NOW ON, NO CHANGE 
KEYL30	EQU	* 	CHANGE
	LD	A3,KEYS,TCABAS
	XRR	A3,A4	CHANGE STATUS
	ST	A3,KEYS,TCABAS	STORE NEW STATUS 
* 
* KEYLOCK STATUS CHANGED
*   A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON 
*   A4 = KEYLOCK CHANGED, LAYOUT AS A3
*   A2 = 1, IF CHANGED TO OFF ELSE 0
* 
* INSERT USER ROUTINE BELOW THIS LINE 
* 
KEYL99	EQU	*
	RTN	A14
	XIF
	EJECT
* 
********************************************************
* 
*	LAMPMODULE
* 
* 
********************************************************
* 
LON	EQU	/B7 
LOF	EQU	/B8 
	IFT	KB6272=1 
LMF1	EQU	/20
LMF2	EQU	/10
LIOL	EQU	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 
	EJECT
* 
********************************************************
* 
*     ATMASB
* 
*     SEARCH FOR ATTRIBUTE CHAR BACKWARDS AND MASK IT 
* 
********************************************************
* 
*     A2=CURSOR BINARY ADDRESS
*     A1=BUFFER SCANNING PARAM. 
*	0=ATTRIB FOUND     1=END OF BUFFER LEFT 
*      2= ATTRIBUTE IN LAST POSITION
* 
ATMASB	EQU	*
	LDK	A1,0 
ASB05	EQU	* 
	CF	A14,GBUFFC	GET BUFFER CHAR
	CWK	A3,/1F	ATTRIB. CHAR. 
	RF(G)	ASB10	NO 
ASB08	ST	A3,ATTRIB,TCABAS 
	ST	A2,CURATT,TCABAS	CURSOR ON ATTRIBUTE
	RTN	A14
ASB10	CWK	A2,0	END OF BUFFER
	RF(E)	ASB20	YES
	SUK	A2,1 
	RB	ASB05	NEXT
ASB20	EQU	* 
	EJECT

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

	LDK	A1,1	END BUFFER LEFT 
	CM	ATTRIB,TCABAS 
	LDKL	A7,LBVDU+1
	ST	A7,CURATT,TCABAS	POSSIBLY UNFORMATTED SCREEN
	RTN	A14
	EJECT
* 
********************************************************
* 
*     ATMASF
* 
*     SEARCH FOR ATTRIBUTE CHAR. FORWARDS AND MASK IT 
* 
********************************************************* 
* 
*	A3=CHARACTER
*     A2=CURSOR BINARY ADDRESS
*     A1=BUFFER SCANNING PARAM. 
*	0=ATTRIB FOUND     2=END OF BUFFER RIGHT
*			A3=ATTRIB IN LAST BUFF POS
* 


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

ATMASF	EQU	*
	LDK	A1,0 
ASF05	EQU	* 
	CF	A14,GBUFFC	GET BUFFER CHAR
	CWK	A3,/1F	ATTRIB CHAR?
	RF(G)	ASF10	NO 
************************************************************
	CWK	A2,LBVDU-1	EOB +ATTRIB IN LAST POS 
************************************************************
	RF(NE)	ASF08	NO
	LDK	A1,3 
ASF08	ST	A3,ATTRIB,TCABAS 
	ST	A2,CURATT,TCABAS	CURSOR ON ATTRIBUTE
	RTN	A14
ASF10	CWK	A2,LBVDU-1	END OF BUFFER? 
	RF(L)	ASF20	NO 
	LDK	A1,2 
	RTN	A14
ASF20	ADK	A2,1
	RB	ASF05 
	EJECT
* 
**************************************************
* 
*	GBUFFC
* 
*	GET VDU BUFFER CHAR WHICH IS INDICATED BY CURSOR
* 
**************************************************
* 
*	A2=CURSOR BINARY ADDR 
*	A3=CHARACTER
* 
* 
GBUFFC	EQU	*
	LDK	A3,0 
	LDKL	A4,BVDU 
	ADR	A4,TCABAS	GET VDU BUFFER 
	ADR	A4,A2
	LCR	A3,A4	GET CHARACTER IN BUFF. 
	RTN	A14
	EJECT
* 
************************************************************
* 
*	RESET 
* 
*	RESET 'KEYBOARD INHIBIT' IN FOLLOWING SITUATIONS: 
*	1- A DEVICE WITH AN ATTACHED KEYBOARD IS EXECUTING
*		A COMMAND. BIT 14=1 IN KBINH 
*	2- A PA-KEY OPERATION IS IN PROCESS PRIOR TO
*		INITIATION OF A COMMAND FOR A DEVICE WITH AN ATTACHED
*		KEYBOARD. BIT 14=1 IN KBINH
*	3- ERRORSITUATION. BIT 14=1 IN KBINH
* 
*	IF BIT 15=1 IN KBINH => NO RESETTING ALLOWED DURING 
*	UPDATE AND DISPLAY SITUATION. 
* 
*********************************************************** 
* 
RESET	EQU	* 
	CM	MODE,TCABAS	RESET INSERT MODE 
	CF	A14,LIOLOF	TURN OFF "INSERT" LAMP 
	CM	KBINH,TCABAS	RESSTORE KEYBOARD
	CF	A14,LERROF	TURN OFF 'ERROR' LAMP
	CF	A14,LINHOF	TURN OFF 'KEYBOARD INHIBIT' LAMP 
	RTN	A14
	EJECT


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

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

0x0000…0036 (0, 0, 400)   Head {h00=0x0032, h01=0x0050, text=» IDENT START    2.1DK 6 79-10-20 870150540210 «, t00=0x0000, t01=0x0004}
0x0036…003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0060               Head {h00=0x001e, h01=0x0050, text=»   =1, ODD BUFFER ADDRESS «, t00=0x0000, t01=0x0042}
0x0060…007c               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0064}
0x007c…0096               Head {h00=0x0016, h01=0x0050, text=»   =2, 6234 LAMPS «, t00=0x0000, t01=0x0080}
0x0096…00b2               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x009a}
0x00b2…00d0               Head {h00=0x001a, h01=0x0050, text=»   =3, UNDEFINED LABEL«, t00=0x0000, t01=0x00b6}
0x00d0…00ec               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x00d4}
0x00ec…011e               Head {h00=0x002e, h01=0x0050, text=»   =4, CURSOR STOPS AT LAST POS. EACH LINE«, t00=0x0000, t01=0x00f0}
0x011e…013a               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0122}
0x013a…015e               Head {h00=0x0020, h01=0x0050, text=»   =5, RESET KEY FOR KB6235 «, t00=0x0000, t01=0x013e}
0x015e…017a               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0162}
0x017a…01a0               Head {h00=0x0022, h01=0x0050, text=»   DK6 DUP FIELD, LENGTH=1 DK6«, t00=0x0000, t01=0x017e}
0x01a0…01ca               Head {h00=0x0026, h01=0x0050, text=»   DK5 - LMPVDU=1, 6272 ON VDU DK5«, t00=0x0001, t01=0x0014}
0x01ca…01f4               Head {h00=0x0026, h01=0x0050, text=»   DK4 - FIELD SEPARATOR 6234 DK4 «, t00=0x0001, t01=0x003e}
0x01f4…0210               Head {h00=0x0018, h01=0x0050, text=»   DK3 - PA 4-9 DK3 «, t00=0x0001, t01=0x0068}
0x0210…0236               Head {h00=0x0022, h01=0x0050, text=»   DK2 - LAMPMODULE, 6272 DK2 «, t00=0x0001, t01=0x0084}
0x0236…0254               Head {h00=0x001a, h01=0x0050, text=»   DK1 - NUM COMMA DK1«, t00=0x0001, t01=0x00aa}
0x0254…029a               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0001, t01=0x00c8}
0x029a…02a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010e}
0x02a4…02f0               Head {h00=0x0048, h01=0x0050, text=»*   S T A R T  :  MODULE HANDLING KEYBOARD INPUT.KEYBOARD INITIATED «, t00=0x0001, t01=0x0118}
0x02f0…033c               Head {h00=0x0048, h01=0x0050, text=»*                 MESSAGES ADDRESSED TO THE MAIN FRAME ARE COMPOSED «, t00=0x0001, t01=0x0164}
0x033c…0382               Head {h00=0x0042, h01=0x0050, text=»*                 AND SENT BY USING ROUTINES IN MODULE VDUPRT.«, t00=0x0002, t01=0x0020}
0x0382…038c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0066}
0x038c…03de               Head {h00=0x004e, h01=0x0050, text=»**************************************************************************«, t00=0x0002, t01=0x0070}
0x03de…03e6               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00c2}
0x03e6…03ee               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00ca}
0x03ee…03f6               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00d2}
0x03f6…03fe               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00da}
0x03fe…040c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00e2}
0x040c…0416               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f0}
0x0416…0420               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fa}
0x0420…043a               Head {h00=0x0016, h01=0x0050, text=»* ENTRY PARAMETERS«, t00=0x0002, t01=0x0104}
0x043a…0444               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x011e}
0x0444…044e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0128}
0x044e…0458               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0132}
0x0458…047c               Head {h00=0x0020, h01=0x0050, text=» ENTRY LINHON,LINHOF,ATMASB «, t00=0x0002, t01=0x013c}
0x047c…0498               Head {h00=0x0018, h01=0x0050, text=» ENTRY LSAVOF,LSAVON«, t00=0x0002, t01=0x0160}
0x0498…04ac               Head {h00=0x0010, h01=0x0050, text=» ENTRY EMULA«, t00=0x0002, t01=0x017c}
0x04ac…04d6               Head {h00=0x0026, h01=0x0050, text=» ENTRY LIOLON TURN ON OFFLINE LAMP«, t00=0x0002, t01=0x0190}
0x04d6…0502               Head {h00=0x0028, h01=0x0050, text=» ENTRY LIOLOF TURN OFF OFFLINE LAMP «, t00=0x0003, t01=0x002a}
0x0502…0526               Head {h00=0x0020, h01=0x0050, text=» ENTRY VDUKB KB3270 (CREDIT)«, t00=0x0003, t01=0x0056}
0x0526…053c               Head {h00=0x0012, h01=0x0050, text=» ENTRY DCTASK «, t00=0x0003, t01=0x007a}
0x053c…0552               Head {h00=0x0012, h01=0x0050, text=» ENTRY DC1INQ «, t00=0x0003, t01=0x0090}
0x0552…0568               Head {h00=0x0012, h01=0x0050, text=» ENTRY DC2INQ «, t00=0x0003, t01=0x00a6}
0x0568…0590               Head {h00=0x0024, h01=0x0050, text=» ENTRY REQTIM SET REQUEST TIMER «, t00=0x0003, t01=0x00bc}
0x0590…05a6               Head {h00=0x0012, h01=0x0050, text=» ENTRY ICWRTE «, t00=0x0003, t01=0x00e4}
0x05a6…05b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fa}
0x05b0…05ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0104}
0x05ba…05c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x010e}
0x05c4…05e6               Head {h00=0x001e, h01=0x0050, text=»*     EXTERNAL REFERENSES «, t00=0x0003, t01=0x0118}
0x05e6…05f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x013a}
0x05f0…05fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0144}
0x05fa…0604               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x014e}
0x0604…0618               Head {h00=0x0010, h01=0x0050, text=» EXTRN DCINP«, t00=0x0003, t01=0x0158}
0x0618…062e               Head {h00=0x0012, h01=0x0050, text=» EXTRN DCGETM «, t00=0x0003, t01=0x016c}
0x062e…0644               Head {h00=0x0012, h01=0x0050, text=» EXTRN ICREAD «, t00=0x0003, t01=0x0182}
0x0644…065a               Head {h00=0x0012, h01=0x0050, text=» EXTRN GTRBUF «, t00=0x0004, t01=0x0008}
0x065a…0670               Head {h00=0x0012, h01=0x0050, text=» EXTRN RLRBUF «, t00=0x0004, t01=0x001e}
0x0670…068c               Head {h00=0x0018, h01=0x0050, text=» EXTRN ERASE VDUPRT «, t00=0x0004, t01=0x0034}
0x068c…06a0               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPF «, t00=0x0004, t01=0x0050}
0x06a0…06b6               Head {h00=0x0012, h01=0x0050, text=» EXTRN SETCUR «, t00=0x0004, t01=0x0064}
0x06b6…06ca               Head {h00=0x0010, h01=0x0050, text=» EXTRN WCHAR«, t00=0x0004, t01=0x007a}
0x06ca…06de               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPA «, t00=0x0004, t01=0x008e}
0x06de…06f4               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUA «, t00=0x0004, t01=0x00a2}
0x06f4…0708               Head {h00=0x0010, h01=0x0050, text=» EXTRN DISPL«, t00=0x0004, t01=0x00b8}
0x0708…071e               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUP «, t00=0x0004, t01=0x00cc}
0x071e…0728               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e2}
0x0728…075c               Head {h00=0x0030, h01=0x0050, text=» EXTRN KEYCNV KEY CONVERSION IF NOT PTS 6272«, t00=0x0004, t01=0x00ec}
0x075c…0772               Head {h00=0x0012, h01=0x0050, text=» EXTRN TASCII «, t00=0x0004, t01=0x0120}
0x0772…077c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0136}
0x077c…07ac               Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0004, t01=0x0140}
0x07ac…07d6               Head {h00=0x0026, h01=0x0050, text=» EXTRN I:RT1 RETURN TO CREDIT CODE«, t00=0x0004, t01=0x0170}
0x07d6…07e4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x000a}
0x07e4…07ec               Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0018}
0x07ec…07f4               Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0020}
0x07f4…0836               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0005, t01=0x0028}
0x0836…0840               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x006a}
0x0840…0860               Head {h00=0x001c, h01=0x0050, text=»*   CONDITIONAL ASSEMBLY«, t00=0x0005, t01=0x0074}
0x0860…086a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0094}
0x086a…0894               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0005, t01=0x009e}
0x0894…089c               Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00c8}
0x089c…08a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d0}
0x08a6…08f0               Head {h00=0x0046, h01=0x0050, text=»KB6272 EQU 0 IF PTS 6272 (6236) IS NOT USED YOU MUST USE 'KEYCNV' «, t00=0x0005, t01=0x00da}
0x08f0…0924               Head {h00=0x0030, h01=0x0050, text=»   USE THE KEY CONVERSION TABLE IN 'TB3270' «, t00=0x0005, t01=0x0124}
0x0924…0958               Head {h00=0x0030, h01=0x0050, text=»KEYLST EQU 0 KEY LOCK STATUS SAVED IN 'KEYS'«, t00=0x0005, t01=0x0158}
0x0958…096c               Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 1 «, t00=0x0005, t01=0x018c}
0x096c…099e               Head {h00=0x002e, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1 OR 2)«, t00=0x0006, t01=0x0010}
0x099e…09b0               Head {h00=0x000e, h01=0x0050, text=»PFX EQU 1 «, t00=0x0006, t01=0x0042}
0x09b0…09c2               Head {h00=0x000e, h01=0x0050, text=»PAX EQU 1 «, t00=0x0006, t01=0x0054}
0x09c2…09ee               Head {h00=0x0028, h01=0x0050, text=»IN:DL EQU 1 INSERT&DELETE FUNCTIONS «, t00=0x0006, t01=0x0066}
0x09ee…0a2a               Head {h00=0x0038, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 «, t00=0x0006, t01=0x0092}
0x0a2a…0a4e               Head {h00=0x0020, h01=0x0050, text=»COPL EQU 1 COPY LOCK IF := 1«, t00=0x0006, t01=0x00ce}
0x0a4e…0a78               Head {h00=0x0026, h01=0x0050, text=»LMPVDU EQU 0 =1, 6272 ON 6346 DK5 «, t00=0x0006, t01=0x00f2}
0x0a78…0a9c               Head {h00=0x0020, h01=0x0050, text=»   =0, 6272 ON SELECTOR DK5 «, t00=0x0006, t01=0x011c}
0x0a9c…0ac4               Head {h00=0x0024, h01=0x0050, text=»PA49 EQU 0 =1, PA4-9 ALLOWED DK3«, t00=0x0006, t01=0x0140}
0x0ac4…0ad2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0168}
0x0ad2…0adc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0176}
0x0adc…0ae6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0180}
0x0ae6…0afc               Head {h00=0x0012, h01=0x0050, text=»*     EQUATES «, t00=0x0006, t01=0x018a}
0x0afc…0b06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0010}
0x0b06…0b24               Head {h00=0x001a, h01=0x0050, text=»RSET EQU /B2 RESET KEY«, t00=0x0007, t01=0x001a}
0x0b24…0b4a               Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0007, t01=0x0038}
0x0b4a…0b54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005e}
0x0b54…0b5c               Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0068}
0x0b5c…0b70               Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0007, t01=0x0070}
0x0b70…0b84               Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0007, t01=0x0084}
0x0b84…0b98               Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0007, t01=0x0098}
0x0b98…0bac               Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0007, t01=0x00ac}
0x0bac…0bc0               Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0007, t01=0x00c0}
0x0bc0…0bca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d4}
0x0bca…0bd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00de}
0x0bd4…0bee               Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0007, t01=0x00e8}
0x0bee…0bf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0102}
0x0bf8…0c02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x010c}
0x0c02…0c1e               Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0007, t01=0x0116}
0x0c1e…0c28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0132}
0x0c28…0c32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x013c}
0x0c32…0c44               Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0007, t01=0x0146}
0x0c44…0c4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0158}
0x0c4e…0c68               Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0007, t01=0x0162}
0x0c68…0c7c               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x017c}
0x0c7c…0c92               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x0190}
0x0c92…0cae               Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0008, t01=0x0016}
0x0cae…0ccc               Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0008, t01=0x0032}
0x0ccc…0cea               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x0050}
0x0cea…0cf6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x006e}
0x0cf6…0d0a               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0008, t01=0x007a}
0x0d0a…0d20               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x008e}
0x0d20…0d3c               Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0008, t01=0x00a4}
0x0d3c…0d5a               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0008, t01=0x00c0}
0x0d5a…0d66               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x00de}
0x0d66…0d7a               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x00ea}
0x0d7a…0d90               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0008, t01=0x00fe}
0x0d90…0dac               Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0008, t01=0x0114}
0x0dac…0dca               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x0130}
0x0dca…0dd6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x014e}
0x0dd6…0dea               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x015a}
0x0dea…0e00               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x016e}
0x0e00…0e1c               Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0008, t01=0x0184}
0x0e1c…0e28               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x0010}
0x0e28…0e46               Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0009, t01=0x001c}
0x0e46…0e62               Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0009, t01=0x003a}
0x0e62…0e7e               Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0009, t01=0x0056}
0x0e7e…0e8c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0072}
0x0e8c…0e96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0080}
0x0e96…0ea0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x008a}
0x0ea0…0ec6               Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0009, t01=0x0094}
0x0ec6…0ed0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ba}
0x0ed0…0ee6               Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0009, t01=0x00c4}
0x0ee6…0f00               Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0009, t01=0x00da}
0x0f00…0f0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f4}
0x0f0a…0f14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00fe}
0x0f14…0f30               Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0009, t01=0x0108}
0x0f30…0f3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0124}
0x0f3a…0f4e               Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0009, t01=0x012e}
0x0f4e…0f6a               Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0009, t01=0x0142}
0x0f6a…0f96               Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0009, t01=0x015e}
0x0f96…0fca               Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0009, t01=0x018a}
0x0fca…0ff8               Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x000a, t01=0x002e}
0x0ff8…1014               Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x000a, t01=0x005c}
0x1014…103e               Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x000a, t01=0x0078}
0x103e…1070               Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x000a, t01=0x00a2}
0x1070…1098               Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x000a, t01=0x00d4}
0x1098…10cc               Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x000a, t01=0x00fc}
0x10cc…1102               Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x000a, t01=0x0130}
0x1102…1132               Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000a, t01=0x0166}
0x1132…115a               Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000b, t01=0x0008}
0x115a…1186               Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000b, t01=0x0030}
0x1186…11b4               Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000b, t01=0x005c}
0x11b4…11d6               Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000b, t01=0x008a}
0x11d6…1200               Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000b, t01=0x00ac}
0x1200…1228               Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000b, t01=0x00d6}
0x1228…125a               Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000b, t01=0x00fe}
0x125a…1290               Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000b, t01=0x0130}
0x1290…12c8               Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000b, t01=0x0166}
0x12c8…12fc               Head {h00=0x0030, h01=0x0050, text=»LAMSAV EQU RDMORE+2 SAVE AREA FOR LAMPS DK2 «, t00=0x000c, t01=0x000e}
0x12fc…130a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0042}
0x130a…132e               Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x000c, t01=0x0050}
0x132e…1344               Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x000c, t01=0x0074}
0x1344…1358               Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x000c, t01=0x008a}
0x1358…1386               Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHAR DISPLAY 6344 «, t00=0x000c, t01=0x009e}
0x1386…13ac               Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000c, t01=0x00cc}
0x13ac…13da               Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000c, t01=0x00f2}
0x13da…13e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0120}
0x13e4…140e               Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000c, t01=0x012a}
0x140e…1418               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0154}
0x1418…143e               Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000c, t01=0x015e}
0x143e…1468               Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000c, t01=0x0184}
0x1468…1472               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x001e}
0x1472…14a8               Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000d, t01=0x0028}
0x14a8…14de               Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000d, t01=0x005e}
0x14de…14f2               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000d, t01=0x0094}
0x14f2…150e               Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000d, t01=0x00a8}
0x150e…152a               Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000d, t01=0x00c4}
0x152a…1536               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00e0}
0x1536…1544               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00ec}
0x1544…154e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00fa}
0x154e…1580               Head {h00=0x002e, h01=0x0050, text=»* KEY TABLE FIXED ENTRY FOR EACH FUNCTION «, t00=0x000d, t01=0x0104}
0x1580…158a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0136}
0x158a…159e               Head {h00=0x0010, h01=0x0050, text=»KEYTAB EQU *«, t00=0x000d, t01=0x0140}
0x159e…15b6               Head {h00=0x0014, h01=0x0050, text=» DATA CHAR SPACE«, t00=0x000d, t01=0x0154}
0x15b6…15ca               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR !«, t00=0x000d, t01=0x016c}
0x15ca…15de               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR "«, t00=0x000d, t01=0x0180}
0x15de…15f2 (14, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» DATA CHAR #«, t00=0x000e, t01=0x0004}
0x15f2…1606               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR $«, t00=0x000e, t01=0x0018}
0x1606…161a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR %«, t00=0x000e, t01=0x002c}
0x161a…1646               Head {h00=0x0028, h01=0x0050, text=» DATA CHARFS &  FIELD SEPARATOR DK4 «, t00=0x000e, t01=0x0040}
0x1646…165a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR '«, t00=0x000e, t01=0x006c}
0x165a…166e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR («, t00=0x000e, t01=0x0080}
0x166e…1682               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR )«, t00=0x000e, t01=0x0094}
0x1682…1696               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR *«, t00=0x000e, t01=0x00a8}
0x1696…16aa               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR +«, t00=0x000e, t01=0x00bc}
0x16aa…16c0               Head {h00=0x0012, h01=0x0050, text=» DATA NUM , DK«, t00=0x000e, t01=0x00d0}
0x16c0…16d4               Head {h00=0x0010, h01=0x0050, text=» DATA NUM - «, t00=0x000e, t01=0x00e6}
0x16d4…16e8               Head {h00=0x0010, h01=0x0050, text=» DATA NUM . «, t00=0x000e, t01=0x00fa}
0x16e8…16fc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR /«, t00=0x000e, t01=0x010e}
0x16fc…1706               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0122}
0x1706…1718               Head {h00=0x000e, h01=0x0050, text=» DATA NUM «, t00=0x000e, t01=0x012c}
0x1718…172c               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 1 «, t00=0x000e, t01=0x013e}
0x172c…1740               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 2 «, t00=0x000e, t01=0x0152}
0x1740…1754               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 3 «, t00=0x000e, t01=0x0166}
0x1754…1768               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 4 «, t00=0x000e, t01=0x017a}
0x1768…177c               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 5 «, t00=0x000e, t01=0x018e}
0x177c…1790               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 6 «, t00=0x000f, t01=0x0012}
0x1790…17a4               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 7 «, t00=0x000f, t01=0x0026}
0x17a4…17b8               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 8 «, t00=0x000f, t01=0x003a}
0x17b8…17cc               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 9 «, t00=0x000f, t01=0x004e}
0x17cc…17e0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR :«, t00=0x000f, t01=0x0062}
0x17e0…17f4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ;«, t00=0x000f, t01=0x0076}
0x17f4…1808               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR <«, t00=0x000f, t01=0x008a}
0x1808…181c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR =«, t00=0x000f, t01=0x009e}
0x181c…1830               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR >«, t00=0x000f, t01=0x00b2}
0x1830…1844               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ?«, t00=0x000f, t01=0x00c6}
0x1844…184e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00da}
0x184e…1864               Head {h00=0x0012, h01=0x0050, text=» DATA CHAR E' «, t00=0x000f, t01=0x00e4}
0x1864…1878               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR A«, t00=0x000f, t01=0x00fa}
0x1878…188c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR B«, t00=0x000f, t01=0x010e}
0x188c…18a0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR C«, t00=0x000f, t01=0x0122}
0x18a0…18b4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR D«, t00=0x000f, t01=0x0136}
0x18b4…18c8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR E«, t00=0x000f, t01=0x014a}
0x18c8…18dc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR F«, t00=0x000f, t01=0x015e}
0x18dc…18f0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR G«, t00=0x000f, t01=0x0172}
0x18f0…1904               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR H«, t00=0x000f, t01=0x0186}
0x1904…1918               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR I«, t00=0x0010, t01=0x000a}
0x1918…192c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR J«, t00=0x0010, t01=0x001e}
0x192c…1940               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR K«, t00=0x0010, t01=0x0032}
0x1940…1954               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR L«, t00=0x0010, t01=0x0046}
0x1954…1968               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR M«, t00=0x0010, t01=0x005a}
0x1968…197c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR N«, t00=0x0010, t01=0x006e}
0x197c…1990               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR O«, t00=0x0010, t01=0x0082}
0x1990…199a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0096}
0x199a…19ae               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR P«, t00=0x0010, t01=0x00a0}
0x19ae…19c2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Q«, t00=0x0010, t01=0x00b4}
0x19c2…19d6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR R«, t00=0x0010, t01=0x00c8}
0x19d6…19ea               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR S«, t00=0x0010, t01=0x00dc}
0x19ea…19fe               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR T«, t00=0x0010, t01=0x00f0}
0x19fe…1a12               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR U«, t00=0x0010, t01=0x0104}
0x1a12…1a26               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR V«, t00=0x0010, t01=0x0118}
0x1a26…1a3a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR W«, t00=0x0010, t01=0x012c}
0x1a3a…1a4e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR X«, t00=0x0010, t01=0x0140}
0x1a4e…1a62               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Y«, t00=0x0010, t01=0x0154}
0x1a62…1a76               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Z«, t00=0x0010, t01=0x0168}
0x1a76…1a8a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR [«, t00=0x0010, t01=0x017c}
0x1a8a…1aa8               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR BACK SLASH «, t00=0x0010, t01=0x0190}
0x1aa8…1abc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ]«, t00=0x0011, t01=0x001e}
0x1abc…1ada               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR CIRCOMFLEX «, t00=0x0011, t01=0x0032}
0x1ada…1af6               Head {h00=0x0018, h01=0x0050, text=» DATA CHAR UNDERLINE«, t00=0x0011, t01=0x0050}
0x1af6…1b00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x006c}
0x1b00…1b28               Head {h00=0x0024, h01=0x0050, text=» DATA RETURN /60 CANNOT BE USED «, t00=0x0011, t01=0x0076}
0x1b28…1b46               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR LOWER CASE «, t00=0x0011, t01=0x009e}
0x1b46…1b58               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x00bc}
0x1b58…1b6a               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x00ce}
0x1b6a…1b7c               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x00e0}
0x1b7c…1b8e               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x00f2}
0x1b8e…1ba0               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0104}
0x1ba0…1bb2               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0116}
0x1bb2…1bc4               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0128}
0x1bc4…1bd6               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x013a}
0x1bd6…1be8               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x014c}
0x1be8…1bfa               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x015e}
0x1bfa…1c0c               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0170}
0x1c0c…1c1e               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0182}
0x1c1e…1c30 (18, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x0004}
0x1c30…1c42               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x0016}
0x1c42…1c4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0028}
0x1c4c…1c62               Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0012, t01=0x0032}
0x1c62…1c7c               Head {h00=0x0016, h01=0x0050, text=» DATA KEYL KEYLOCK«, t00=0x0012, t01=0x0048}
0x1c7c…1c8e               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x0062}
0x1c8e…1ca0               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x0074}
0x1ca0…1cb2               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x0086}
0x1cb2…1cc4               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x0098}
0x1cc4…1cd6               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x00aa}
0x1cd6…1ce8               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x00bc}
0x1ce8…1cfa               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x00ce}
0x1cfa…1d06               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00e0}
0x1d06…1d1c               Head {h00=0x0012, h01=0x0050, text=» IFF KEYLST=1 «, t00=0x0012, t01=0x00ec}
0x1d1c…1d30               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0102}
0x1d30…1d44               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0116}
0x1d44…1d58               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x012a}
0x1d58…1d6c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x013e}
0x1d6c…1d80               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0152}
0x1d80…1d94               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0166}
0x1d94…1da8               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x017a}
0x1da8…1dbc               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x018e}
0x1dbc…1dc8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0012}
0x1dc8…1de8               Head {h00=0x001c, h01=0x0050, text=» DATA CHAR LOWER CASE X «, t00=0x0013, t01=0x001e}
0x1de8…1dfa               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0013, t01=0x003e}
0x1dfa…1e0c               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0013, t01=0x0050}
0x1e0c…1e38               Head {h00=0x0028, h01=0x0050, text=» DATA RETURN /7B-/7F CANNOT BE USED «, t00=0x0013, t01=0x0062}
0x1e38…1e4c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x008e}
0x1e4c…1e60               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x00a2}
0x1e60…1e74               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x00b6}
0x1e74…1e88               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x00ca}
0x1e88…1e92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00de}
0x1e92…1ea4               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0013, t01=0x00e8}
0x1ea4…1eb6               Head {h00=0x000e, h01=0x0050, text=» DATA PAEX«, t00=0x0013, t01=0x00fa}
0x1eb6…1ec2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x010c}
0x1ec2…1ed4               Head {h00=0x000e, h01=0x0050, text=» IFF PAX=1«, t00=0x0013, t01=0x0118}
0x1ed4…1ee8               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x012a}
0x1ee8…1ef4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x013e}
0x1ef4…1f06               Head {h00=0x000e, h01=0x0050, text=» DATA PA1 «, t00=0x0013, t01=0x014a}
0x1f06…1f18               Head {h00=0x000e, h01=0x0050, text=» DATA PA2 «, t00=0x0013, t01=0x015c}
0x1f18…1f2a               Head {h00=0x000e, h01=0x0050, text=» DATA PA3 «, t00=0x0013, t01=0x016e}
0x1f2a…1f54               Head {h00=0x0026, h01=0x0050, text=» DATA PA410 PA4 - PA10 (ALFASKOP) «, t00=0x0013, t01=0x0180}
0x1f54…1f68               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x001a}
0x1f68…1f7c               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x002e}
0x1f7c…1f90               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x0042}
0x1f90…1fa4               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x0056}
0x1fa4…1fb8               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x006a}
0x1fb8…1fcc               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x007e}
0x1fcc…1fe0               Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0014, t01=0x0092}
0x1fe0…1ff2               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x0014, t01=0x00a6}
0x1ff2…2004               Head {h00=0x000e, h01=0x0050, text=» DATA PFEX«, t00=0x0014, t01=0x00b8}
0x2004…2010               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00ca}
0x2010…2022               Head {h00=0x000e, h01=0x0050, text=» IFF PFX=1«, t00=0x0014, t01=0x00d6}
0x2022…2036               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00e8}
0x2036…2042               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00fc}
0x2042…2054               Head {h00=0x000e, h01=0x0050, text=» DATA PF 1«, t00=0x0014, t01=0x0108}
0x2054…2066               Head {h00=0x000e, h01=0x0050, text=» DATA PF 2«, t00=0x0014, t01=0x011a}
0x2066…2078               Head {h00=0x000e, h01=0x0050, text=» DATA PF 3«, t00=0x0014, t01=0x012c}
0x2078…2082               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x013e}
0x2082…2094               Head {h00=0x000e, h01=0x0050, text=» DATA PF 4«, t00=0x0014, t01=0x0148}
0x2094…20a6               Head {h00=0x000e, h01=0x0050, text=» DATA PF 5«, t00=0x0014, t01=0x015a}
0x20a6…20b8               Head {h00=0x000e, h01=0x0050, text=» DATA PF 6«, t00=0x0014, t01=0x016c}
0x20b8…20ca               Head {h00=0x000e, h01=0x0050, text=» DATA PF 7«, t00=0x0014, t01=0x017e}
0x20ca…20dc               Head {h00=0x000e, h01=0x0050, text=» DATA PF 8«, t00=0x0014, t01=0x0190}
0x20dc…20ee               Head {h00=0x000e, h01=0x0050, text=» DATA PF 9«, t00=0x0015, t01=0x0012}
0x20ee…2102               Head {h00=0x0010, h01=0x0050, text=» DATA PF 10 «, t00=0x0015, t01=0x0024}
0x2102…2116               Head {h00=0x0010, h01=0x0050, text=» DATA PF 11 «, t00=0x0015, t01=0x0038}
0x2116…212a               Head {h00=0x0010, h01=0x0050, text=» DATA PF 12 «, t00=0x0015, t01=0x004c}
0x212a…215c               Head {h00=0x002e, h01=0x0050, text=» DATA RETURN /99-/A4 RESERVED FOR PF13-24 «, t00=0x0015, t01=0x0060}
0x215c…2170               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0092}
0x2170…2184               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00a6}
0x2184…2198               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00ba}
0x2198…21ac               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00ce}
0x21ac…21c0               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00e2}
0x21c0…21d4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00f6}
0x21d4…21de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x010a}
0x21de…21f2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0114}
0x21f2…2206               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0128}
0x2206…221a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x013c}
0x221a…222e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0150}
0x222e…2242               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0164}
0x2242…2256               Head {h00=0x0010, h01=0x0050, text=» DATA ENTER «, t00=0x0015, t01=0x0178}
0x2256…2268               Head {h00=0x000e, h01=0x0050, text=» DATA CRUP«, t00=0x0015, t01=0x018c}
0x2268…227c               Head {h00=0x0010, h01=0x0050, text=» DATA CRLEFT«, t00=0x0016, t01=0x000e}
0x227c…2290               Head {h00=0x0010, h01=0x0050, text=» DATA CRRIGT«, t00=0x0016, t01=0x0022}
0x2290…22a4               Head {h00=0x0010, h01=0x0050, text=» DATA CRDOWN«, t00=0x0016, t01=0x0036}
0x22a4…22b8               Head {h00=0x0010, h01=0x0050, text=» DATA BAKTAB«, t00=0x0016, t01=0x004a}
0x22b8…22ca               Head {h00=0x000e, h01=0x0050, text=» DATA TAB «, t00=0x0016, t01=0x005e}
0x22ca…22dc               Head {h00=0x000e, h01=0x0050, text=» DATA CRNL«, t00=0x0016, t01=0x0070}
0x22dc…22f0               Head {h00=0x0010, h01=0x0050, text=» DATA RDHOME«, t00=0x0016, t01=0x0082}
0x22f0…2304               Head {h00=0x0010, h01=0x0050, text=» DATA ERINPT«, t00=0x0016, t01=0x0096}
0x2304…2318               Head {h00=0x0010, h01=0x0050, text=» DATA EREOF «, t00=0x0016, t01=0x00aa}
0x2318…2322               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00be}
0x2322…2336               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x0016, t01=0x00c8}
0x2336…234a               Head {h00=0x0010, h01=0x0050, text=» DATA INSERT«, t00=0x0016, t01=0x00dc}
0x234a…235e               Head {h00=0x0010, h01=0x0050, text=» DATA DELETE«, t00=0x0016, t01=0x00f0}
0x235e…236a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0104}
0x236a…237e               Head {h00=0x0010, h01=0x0050, text=» IFF IN:DL=1«, t00=0x0016, t01=0x0110}
0x237e…2392               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0124}
0x2392…23a6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0138}
0x23a6…23b2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x014c}
0x23b2…23c6               Head {h00=0x0010, h01=0x0050, text=» DATA RESET «, t00=0x0016, t01=0x0158}
0x23c6…23d8               Head {h00=0x000e, h01=0x0050, text=» DATA DUP «, t00=0x0016, t01=0x016c}
0x23d8…23ec               Head {h00=0x0010, h01=0x0050, text=» DATA FLDMRK«, t00=0x0016, t01=0x017e}
0x23ec…23fe (23, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» DATA COPY«, t00=0x0017, t01=0x0004}
0x23fe…2412               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0017, t01=0x0016}
0x2412…2426               Head {h00=0x0010, h01=0x0050, text=» DATA OFLINE«, t00=0x0017, t01=0x002a}
0x2426…2432               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x003e}
0x2432…2446               Head {h00=0x0010, h01=0x0050, text=» IFF OFLIN=1«, t00=0x0017, t01=0x004a}
0x2446…245a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x005e}
0x245a…2466               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0072}
0x2466…247a               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0017, t01=0x007e}
0x247a…248e               Head {h00=0x0010, h01=0x0050, text=» DATA MFCHGE«, t00=0x0017, t01=0x0092}
0x248e…249a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00a6}
0x249a…24ae               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0017, t01=0x00b2}
0x24ae…24c2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x00c6}
0x24c2…24ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00da}
0x24ce…24e2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x00e6}
0x24e2…24f6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x00fa}
0x24f6…250a               Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:2«, t00=0x0017, t01=0x010e}
0x250a…251e               Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:3«, t00=0x0017, t01=0x0122}
0x251e…2532               Head {h00=0x0010, h01=0x0050, text=» DATA NUMCOM«, t00=0x0017, t01=0x0136}
0x2532…2546               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x014a}
0x2546…255a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x015e}
0x255a…256e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0172}
0x256e…2578               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0186}
0x2578…25b2               Head {h00=0x0036, h01=0x0050, text=» DATA LCASPW LOWER CASE P - W (BECAUSE OF KEYLOCK)«, t00=0x0017, t01=0x0190}
0x25b2…25c6               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x003a}
0x25c6…25da               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x004e}
0x25da…25ee               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x0062}
0x25ee…2602               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x0076}
0x2602…2616               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x008a}
0x2616…262a               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x009e}
0x262a…263e               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x00b2}
0x263e…264c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00c6}
0x264c…2692               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0018, t01=0x00d4}
0x2692…269c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x011a}
0x269c…26c0               Head {h00=0x0020, h01=0x0050, text=»* START ADDRESS FOR DC TASKS«, t00=0x0018, t01=0x0124}
0x26c0…2706               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0018, t01=0x0148}
0x2706…270e               Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x018e}
0x270e…2722               Head {h00=0x0010, h01=0x0050, text=»DCTASK EQU *«, t00=0x0019, t01=0x0008}
0x2722…2738               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0019, t01=0x001c}
0x2738…2762               Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A9 POLL & SELECT ADDRESS «, t00=0x0019, t01=0x0032}
0x2762…2778               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0019, t01=0x005c}
0x2778…278e               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0019, t01=0x0072}
0x278e…27a6               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0019, t01=0x0088}
0x27a6…27ce               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x0019, t01=0x00a0}
0x27ce…27da               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0019, t01=0x00c8}
0x27da…27ea               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0019, t01=0x00d4}
0x27ea…27fe               Head {h00=0x0010, h01=0x0050, text=»DCT100 EQU *«, t00=0x0019, t01=0x00e4}
0x27fe…2830               Head {h00=0x002e, h01=0x0050, text=» LDK A7,/80 TEST IF ANY MESSAGE WITH WAIT «, t00=0x0019, t01=0x00f8}
0x2830…283c               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0019, t01=0x012a}
0x283c…284c               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0019, t01=0x0136}
0x284c…2876               Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x0019, t01=0x0146}
0x2876…288c               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0019, t01=0x0170}
0x288c…28a2               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0019, t01=0x0186}
0x28a2…28b8               Head {h00=0x0012, h01=0x0050, text=» CF A14,DCGETM«, t00=0x001a, t01=0x000c}
0x28b8…28d0               Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x001a, t01=0x0022}
0x28d0…28f6               Head {h00=0x0022, h01=0x0050, text=» CF A14,RLRBUF RELEASE BUFFER «, t00=0x001a, t01=0x003a}
0x28f6…2908               Head {h00=0x000e, h01=0x0050, text=» RB DCT100«, t00=0x001a, t01=0x0060}
0x2908…2916               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0072}
0x2916…2920               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0080}
0x2920…292a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x008a}
0x292a…2956               Head {h00=0x0028, h01=0x0050, text=»* SUBROUTINE ACTIVATED BY ALL TASKS «, t00=0x001a, t01=0x0094}
0x2956…2960               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00c0}
0x2960…296a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ca}
0x296a…297e               Head {h00=0x0010, h01=0x0050, text=»EMULA EQU * «, t00=0x001a, t01=0x00d4}
0x297e…29a4               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS GET ECB ADDRESS«, t00=0x001a, t01=0x00e8}
0x29a4…29cc               Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBCW,A8 STORE IN ECBDCT «, t00=0x001a, t01=0x010e}
0x29cc…29f4               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x001a, t01=0x0136}
0x29f4…2a00               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001a, t01=0x015e}
0x2a00…2a10               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001a, t01=0x016a}
0x2a10…2a20               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x017a}
0x2a20…2a2e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x018a}
0x2a2e…2a38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0008}
0x2a38…2a76               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x001b, t01=0x0012}
0x2a76…2a80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0050}
0x2a80…2a94               Head {h00=0x0010, h01=0x0050, text=»*     VDUKB «, t00=0x001b, t01=0x005a}
0x2a94…2a9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x006e}
0x2a9e…2ac4               Head {h00=0x0022, h01=0x0050, text=»* MAIN MODULE FOR KEYBOARD VDU«, t00=0x001b, t01=0x0078}
0x2ac4…2ace               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x009e}
0x2ace…2b0e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x001b, t01=0x00a8}
0x2b0e…2b22               Head {h00=0x0010, h01=0x0050, text=»VDUKB EQU * «, t00=0x001b, t01=0x00e8}
0x2b22…2b38               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x001b, t01=0x00fc}
0x2b38…2b62               Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x001b, t01=0x0112}
0x2b62…2b6a               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x013c}
0x2b6a…2b7e               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x001b, t01=0x0144}
0x2b7e…2b86               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0158}
0x2b86…2b8e               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0160}
0x2b8e…2bc6               Head {h00=0x0034, h01=0x0050, text=» STR A12,A14 SAVE REGISTERS A12-A13 ON A14 STACK«, t00=0x001b, t01=0x0168}
0x2bc6…2bdc               Head {h00=0x0012, h01=0x0050, text=» ST A13,-2,A14«, t00=0x001c, t01=0x0010}
0x2bdc…2c04               Head {h00=0x0024, h01=0x0050, text=» SUKL A14,4 UPDATE STACK POINTER«, t00=0x001c, t01=0x0026}
0x2c04…2c1e               Head {h00=0x0016, h01=0x0050, text=» CM OFFFLG,TCABAS «, t00=0x001c, t01=0x004e}
0x2c1e…2c4e               Head {h00=0x002c, h01=0x0050, text=» CM LAMSAV,TCABAS CLEAR LAMP STATUS DK2 «, t00=0x001c, t01=0x0068}
0x2c4e…2c7c               Head {h00=0x002a, h01=0x0050, text=» CF A14,LIOLOF TURN OFF OFF LINE LAMP «, t00=0x001c, t01=0x0098}
0x2c7c…2c88               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00c6}
0x2c88…2c90               Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x00d2}
0x2c90…2c9e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x00da}
0x2c9e…2ce4               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x001c, t01=0x00e8}
0x2ce4…2cee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x012e}
0x2cee…2d1e               Head {h00=0x002c, h01=0x0050, text=»*   TRANSFER PARAMETER FOR MAIN FRAME #1«, t00=0x001c, t01=0x0138}
0x2d1e…2d28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0168}
0x2d28…2d6e               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001c, t01=0x0172}
0x2d6e…2d76               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0028}
0x2d76…2d9a               Head {h00=0x0020, h01=0x0050, text=» LDR* A4,TCABAS REL TASK NO «, t00=0x001d, t01=0x0030}
0x2d9a…2dc0               Head {h00=0x0022, h01=0x0050, text=» AD A4,6,CREBAS 'CB1' ADDRESS «, t00=0x001d, t01=0x0054}
0x2dc0…2dea               Head {h00=0x0026, h01=0x0050, text=» LC A1,MF1KBV-1,A4 GET DV-ADDRESS «, t00=0x001d, t01=0x007a}
0x2dea…2dfe               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001d, t01=0x00a4}
0x2dfe…2e14               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001d, t01=0x00b8}
0x2e14…2e2a               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x001d, t01=0x00ce}
0x2e2a…2e32               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x00e4}
0x2e32…2e46               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001d, t01=0x00ec}
0x2e46…2e8c               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001d, t01=0x0100}
0x2e8c…2e96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0146}
0x2e96…2ec6               Head {h00=0x002c, h01=0x0050, text=»*   TRANSFER PARAMETER FOR MAIN-FRAME #2«, t00=0x001d, t01=0x0150}
0x2ec6…2ed0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0180}
0x2ed0…2f16               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001d, t01=0x018a}
0x2f16…2f1e               Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0040}
0x2f1e…2f48               Head {h00=0x0026, h01=0x0050, text=» LC A1,MF2KBV-1,A4 GET DV ADDRESS «, t00=0x001e, t01=0x0048}
0x2f48…2f5c               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001e, t01=0x0072}
0x2f5c…2f74               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001e, t01=0x0086}
0x2f74…2f8a               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x001e, t01=0x009e}
0x2f8a…2f96               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00b4}
0x2f96…2fa4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00c0}
0x2fa4…2fb8               Head {h00=0x0010, h01=0x0050, text=»VDU080 EQU *«, t00=0x001e, t01=0x00ce}
0x2fb8…2fda               Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x001e, t01=0x00e2}
0x2fda…2fe2               Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0104}
0x2fe2…2ff4               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001e, t01=0x010c}
0x2ff4…300c               Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x001e, t01=0x011e}
0x300c…3046               Head {h00=0x0036, h01=0x0050, text=» ST A1,CURATT,TCABAS INITIATE WITH UNFORM. SCREEN «, t00=0x001e, t01=0x0136}
0x3046…305c               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1ON«, t00=0x001e, t01=0x0170}
0x305c…308c               Head {h00=0x002c, h01=0x0050, text=» CM MAIN,TCABAS INDICATE MAIN-FRAME # 1 «, t00=0x001e, t01=0x0186}
0x308c…309a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0026}
0x309a…30a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0034}
0x30a4…30c4               Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x001f, t01=0x003e}
0x30c4…30d4               Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x001f, t01=0x005e}
0x30d4…30e6               Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x001f, t01=0x006e}
0x30e6…30fa               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001f, t01=0x0080}
0x30fa…3110               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x001f, t01=0x0094}
0x3110…3122               Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x001f, t01=0x00aa}
0x3122…3134               Head {h00=0x000e, h01=0x0050, text=»ICR EQU 8 «, t00=0x001f, t01=0x00bc}
0x3134…3148               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 4 «, t00=0x001f, t01=0x00ce}
0x3148…3154               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00e2}
0x3154…3168               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001f, t01=0x00ee}
0x3168…317e               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x001f, t01=0x0102}
0x317e…3190               Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x001f, t01=0x0118}
0x3190…31a4               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 3 «, t00=0x001f, t01=0x012a}
0x31a4…31b0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x013e}
0x31b0…31c4               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x001f, t01=0x014a}
0x31c4…31da               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x001f, t01=0x015e}
0x31da…31ec               Head {h00=0x000e, h01=0x0050, text=»ICR EQU 6 «, t00=0x001f, t01=0x0174}
0x31ec…3200               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 3 «, t00=0x001f, t01=0x0186}
0x3200…320c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x000a}
0x320c…3220               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0020, t01=0x0016}
0x3220…3236               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0020, t01=0x002a}
0x3236…324a               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 2 «, t00=0x0020, t01=0x0040}
0x324a…3256               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0054}
0x3256…3260               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0060}
0x3260…3276               Head {h00=0x0012, h01=0x0050, text=» LDK A1,ECBBS «, t00=0x0020, t01=0x006a}
0x3276…3292               Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBLK,TCABAS«, t00=0x0020, t01=0x0080}
0x3292…32a6               Head {h00=0x0010, h01=0x0050, text=»VDU100 EQU *«, t00=0x0020, t01=0x009c}
0x32a6…32c6               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC1,TCABAS«, t00=0x0020, t01=0x00b0}
0x32c6…32e4               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU110 PENDING«, t00=0x0020, t01=0x00d0}
0x32e4…3318               Head {h00=0x0030, h01=0x0050, text=» CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT «, t00=0x0020, t01=0x00ee}
0x3318…332c               Head {h00=0x0010, h01=0x0050, text=»VDU110 EQU *«, t00=0x0020, t01=0x0122}
0x332c…3340               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0020, t01=0x0136}
0x3340…3360               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x0020, t01=0x014a}
0x3360…337e               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU120 PENDING«, t00=0x0020, t01=0x016a}
0x337e…33b8               Head {h00=0x0036, h01=0x0050, text=» CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT«, t00=0x0020, t01=0x0188}
0x33b8…33c4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0032}
0x33c4…33d8               Head {h00=0x0010, h01=0x0050, text=»VDU120 EQU *«, t00=0x0021, t01=0x003e}
0x33d8…33ee               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0021, t01=0x0052}
0x33ee…340e               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+ICR,TCABAS«, t00=0x0021, t01=0x0068}
0x340e…342c               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU125 PENDING«, t00=0x0021, t01=0x0088}
0x342c…344a               Head {h00=0x001a, h01=0x0050, text=» LDKL A3,ICWORK BUFFER«, t00=0x0021, t01=0x00a6}
0x344a…346a               Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS   ADDRESS«, t00=0x0021, t01=0x00c4}
0x346a…3486               Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x0021, t01=0x00e4}
0x3486…349c               Head {h00=0x0012, h01=0x0050, text=» CF A14,ICREAD«, t00=0x0021, t01=0x0100}
0x349c…34bc               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+ICR,TCABAS«, t00=0x0021, t01=0x0116}
0x34bc…34c8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0136}
0x34c8…34dc               Head {h00=0x0010, h01=0x0050, text=»VDU125 EQU *«, t00=0x0021, t01=0x0142}
0x34dc…34fc               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+KB,TCABAS «, t00=0x0021, t01=0x0156}
0x34fc…351a               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU150 PENDING«, t00=0x0021, t01=0x0176}
0x351a…3546 (34, 0, 400)  Head {h00=0x0028, h01=0x0050, text=» CF A14,RDKBNW READ KEYBOARD NO WAIT«, t00=0x0022, t01=0x0004}
0x3546…355a               Head {h00=0x0010, h01=0x0050, text=»VDU150 EQU *«, t00=0x0022, t01=0x0030}
0x355a…3572               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0022, t01=0x0044}
0x3572…3588               Head {h00=0x0012, h01=0x0050, text=» ADR A7,TCABAS«, t00=0x0022, t01=0x005c}
0x3588…3594               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0022, t01=0x0072}
0x3594…35b2               Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x0022, t01=0x007e}
0x35b2…35d2               Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+KB,TCABAS «, t00=0x0022, t01=0x009c}
0x35d2…35fa               Head {h00=0x0024, h01=0x0050, text=» RF(E) KBINP INPUT FROM KEYBOARD«, t00=0x0022, t01=0x00bc}
0x35fa…3610               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0022, t01=0x00e4}
0x3610…3630               Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+ICR,TCABAS«, t00=0x0022, t01=0x00fa}
0x3630…365c               Head {h00=0x0028, h01=0x0050, text=» RF(E) BUFCOP SEND BUFFER TO PRINTER«, t00=0x0022, t01=0x011a}
0x365c…3668               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0146}
0x3668…36a6               Head {h00=0x003a, h01=0x0050, text=» ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ«, t00=0x0022, t01=0x0152}
0x36a6…36ca               Head {h00=0x0020, h01=0x0050, text=» CF A14,DCINP INPUT FROM DC «, t00=0x0022, t01=0x0190}
0x36ca…36dc               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0023, t01=0x0024}
0x36dc…36ea               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0036}
0x36ea…36f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0044}
0x36f4…3718               Head {h00=0x0020, h01=0x0050, text=»* READ KEYBOARD WITH NO WAIT«, t00=0x0023, t01=0x004e}
0x3718…3722               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0072}
0x3722…3736               Head {h00=0x0010, h01=0x0050, text=»RDKBNW EQU *«, t00=0x0023, t01=0x007c}
0x3736…374c               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x0023, t01=0x0090}
0x374c…3762               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0023, t01=0x00a6}
0x3762…3774               Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0023, t01=0x00bc}
0x3774…379a               Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 1«, t00=0x0023, t01=0x00ce}
0x379a…37c8               Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 INDICATE NOT POWER OFF«, t00=0x0023, t01=0x00f4}
0x37c8…37e8               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+KB,TCABAS «, t00=0x0023, t01=0x0122}
0x37e8…37fa               Head {h00=0x000e, h01=0x0050, text=» RF DC1I30«, t00=0x0023, t01=0x0142}
0x37fa…3804               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0154}
0x3804…3824               Head {h00=0x001c, h01=0x0050, text=»* TEST IF ANY MESSAGE DC«, t00=0x0023, t01=0x015e}
0x3824…382e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x017e}
0x382e…3842               Head {h00=0x0010, h01=0x0050, text=»DC1INQ EQU *«, t00=0x0023, t01=0x0188}
0x3842…3858               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0024, t01=0x000c}
0x3858…386e               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0024, t01=0x0022}
0x386e…388e               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+DC1,TCABAS«, t00=0x0024, t01=0x0038}
0x388e…38a2               Head {h00=0x0010, h01=0x0050, text=»DC1I20 EQU *«, t00=0x0024, t01=0x0058}
0x38a2…38b4               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0024, t01=0x006c}
0x38b4…38ca               Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0024, t01=0x007e}
0x38ca…38dc               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0024, t01=0x0094}
0x38dc…38f0               Head {h00=0x0010, h01=0x0050, text=»DC1I30 EQU *«, t00=0x0024, t01=0x00a6}
0x38f0…38fc               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0024, t01=0x00ba}
0x38fc…390c               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0024, t01=0x00c6}
0x390c…391c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x00d6}
0x391c…3930               Head {h00=0x0010, h01=0x0050, text=»DC2INQ EQU *«, t00=0x0024, t01=0x00e6}
0x3930…3944               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0024, t01=0x00fa}
0x3944…395c               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x0024, t01=0x010e}
0x395c…3972               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0024, t01=0x0126}
0x3972…3992               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+DC2,TCABAS«, t00=0x0024, t01=0x013c}
0x3992…39a4               Head {h00=0x000e, h01=0x0050, text=» RB DC1I20«, t00=0x0024, t01=0x015c}
0x39a4…39b0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x016e}
0x39b0…39c6               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0024, t01=0x017a}
0x39c6…39d4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0190}
0x39d4…39de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x000e}
0x39de…3a04               Head {h00=0x0022, h01=0x0050, text=»* SEND BUFFER TO PRINTER TASK «, t00=0x0025, t01=0x0018}
0x3a04…3a0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x003e}
0x3a0e…3a22               Head {h00=0x0010, h01=0x0050, text=»BUFCOP EQU *«, t00=0x0025, t01=0x0048}
0x3a22…3a40               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0025, t01=0x005c}
0x3a40…3a5c               Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x0025, t01=0x007a}
0x3a5c…3a7c               Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS   ADDRESS«, t00=0x0025, t01=0x0096}
0x3a7c…3a90               Head {h00=0x0010, h01=0x0050, text=» IFT COPL=1 «, t00=0x0025, t01=0x00b6}
0x3a90…3a9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ca}
0x3a9a…3ab6               Head {h00=0x0018, h01=0x0050, text=»* CHECK IF COPY LOCK«, t00=0x0025, t01=0x00d4}
0x3ab6…3ac0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00f0}
0x3ac0…3ad2               Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0025, t01=0x00fa}
0x3ad2…3ae6               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/18 «, t00=0x0025, t01=0x010c}
0x3ae6…3afa               Head {h00=0x0010, h01=0x0050, text=» XRK A2,/10 «, t00=0x0025, t01=0x0120}
0x3afa…3b1a               Head {h00=0x001c, h01=0x0050, text=» RB(Z) VDU100 DON'T COPY«, t00=0x0025, t01=0x0134}
0x3b1a…3b26               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0154}
0x3b26…3b3c               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0025, t01=0x0160}
0x3b3c…3b70               Head {h00=0x0030, h01=0x0050, text=» LDK A4,/8B ORDER: WRITE ADDRESSED WITH WAIT«, t00=0x0025, t01=0x0176}
0x3b70…3b94               Head {h00=0x0020, h01=0x0050, text=» LD A5,ICWORK,TCABAS TASK ID«, t00=0x0026, t01=0x001a}
0x3b94…3bb6               Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x0026, t01=0x003e}
0x3bb6…3bcc               Head {h00=0x0012, h01=0x0050, text=» CF A14,ICWRTE«, t00=0x0026, t01=0x0060}
0x3bcc…3be8               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0026, t01=0x0076}
0x3be8…3c14               Head {h00=0x0028, h01=0x0050, text=» ANK A1,/E NOT INHIBITED ANY LONGER «, t00=0x0026, t01=0x0092}
0x3c14…3c30               Head {h00=0x0018, h01=0x0050, text=» ST A1,KBINH,TCABAS «, t00=0x0026, t01=0x00be}
0x3c30…3c42               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0026, t01=0x00da}
0x3c42…3c4e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00ec}
0x3c4e…3c5c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00f8}
0x3c5c…3c76               Head {h00=0x0016, h01=0x0050, text=»** KEYBOARD INPUT «, t00=0x0026, t01=0x0106}
0x3c76…3c80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0120}
0x3c80…3c94               Head {h00=0x0010, h01=0x0050, text=»KBINP EQU * «, t00=0x0026, t01=0x012a}
0x3c94…3cb0               Head {h00=0x0018, h01=0x0050, text=» CM ECBBLK+KB,TCABAS«, t00=0x0026, t01=0x013e}
0x3cb0…3cc8               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A8 «, t00=0x0026, t01=0x015a}
0x3cc8…3ce8               Head {h00=0x001c, h01=0x0050, text=» RF(Z) KBIN05 POWER OFF «, t00=0x0026, t01=0x0172}
0x3ce8…3d00 (39, 0, 400)  Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRC,A8 «, t00=0x0027, t01=0x0004}
0x3d00…3d16               Head {h00=0x0012, h01=0x0050, text=» RF(0) KBIN10 «, t00=0x0027, t01=0x001c}
0x3d16…3d2a               Head {h00=0x0010, h01=0x0050, text=»KBIN05 EQU *«, t00=0x0027, t01=0x0032}
0x3d2a…3d52               Head {h00=0x0024, h01=0x0050, text=» LDK A7,4 RESET KEYBOARD BUFFER «, t00=0x0027, t01=0x0046}
0x3d52…3d5e               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0027, t01=0x006e}
0x3d5e…3d6e               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0027, t01=0x007a}
0x3d6e…3d80               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0027, t01=0x008a}
0x3d80…3d94               Head {h00=0x0010, h01=0x0050, text=»KBIN10 EQU *«, t00=0x0027, t01=0x009c}
0x3d94…3db0               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0027, t01=0x00b0}
0x3db0…3de0               Head {h00=0x002c, h01=0x0050, text=» ANK A1,1 RESETTING BY 'RESET' ALLOWED ?«, t00=0x0027, t01=0x00cc}
0x3de0…3dfa               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) KBIN05 NO «, t00=0x0027, t01=0x00fc}
0x3dfa…3e26               Head {h00=0x0028, h01=0x0050, text=» LC* A2,ECBBA,A8 GET INPUT CHARACTER«, t00=0x0027, t01=0x0116}
0x3e26…3e40               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  =5 «, t00=0x0027, t01=0x0142}
0x3e40…3e6a               Head {h00=0x0026, h01=0x0050, text=» CF A14,KEYCNV CONVERT KEY CODE =5«, t00=0x0027, t01=0x015c}
0x3e6a…3e7c               Head {h00=0x000e, h01=0x0050, text=» XIF   =5 «, t00=0x0027, t01=0x0186}
0x3e7c…3e98               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0028, t01=0x0008}
0x3e98…3ebe               Head {h00=0x0022, h01=0x0050, text=» ANK A1,6 MUST BE RESET KEY ? «, t00=0x0028, t01=0x0024}
0x3ebe…3ed6               Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN20 NO«, t00=0x0028, t01=0x004a}
0x3ed6…3ef6               Head {h00=0x001c, h01=0x0050, text=» CWK A2,RSET RESET KEY ?«, t00=0x0028, t01=0x0062}
0x3ef6…3f10               Head {h00=0x0016, h01=0x0050, text=» RB(NE) KBIN05 NO «, t00=0x0028, t01=0x0082}
0x3f10…3f24               Head {h00=0x0010, h01=0x0050, text=»KBIN20 EQU *«, t00=0x0028, t01=0x009c}
0x3f24…3f4c               Head {h00=0x0024, h01=0x0050, text=» LDR A5,A2 COPY INPUT CHARACTER «, t00=0x0028, t01=0x00b0}
0x3f4c…3f66               Head {h00=0x0016, h01=0x0050, text=» SUK A5,/20 INDEX «, t00=0x0028, t01=0x00d8}
0x3f66…3f88               Head {h00=0x001e, h01=0x0050, text=» RB(N) VDU100 ILLEGAL CHAR«, t00=0x0028, t01=0x00f2}
0x3f88…3f9c               Head {h00=0x0010, h01=0x0050, text=» CWK A5,/A7 «, t00=0x0028, t01=0x0114}
0x3f9c…3fbe               Head {h00=0x001e, h01=0x0050, text=» RB(G) VDU100 ILLEGAL CHAR«, t00=0x0028, t01=0x0128}
0x3fbe…3ff6               Head {h00=0x0034, h01=0x0050, text=» CF A14,DCABOR ABORT DC-READ TO ENABLE DC-WRITE «, t00=0x0028, t01=0x014a}
0x3ff6…4008               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0028, t01=0x0182}
0x4008…4042 (41, 0, 400)  Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) VDU100 DC COMPLETED, TAKE CARE OF MESSAGE«, t00=0x0029, t01=0x0004}
0x4042…4062               Head {h00=0x001c, h01=0x0050, text=» ADR A5,A5 TO KEY TABLE «, t00=0x0029, t01=0x003e}
0x4062…406c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x005e}
0x406c…4084               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0029, t01=0x0068}
0x4084…409a               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0029, t01=0x0080}
0x409a…40b6               Head {h00=0x0018, h01=0x0050, text=» LD A1,RDMORE,TCABAS«, t00=0x0029, t01=0x0096}
0x40b6…40cc               Head {h00=0x0012, h01=0x0050, text=» RF(Z) KBIN30 «, t00=0x0029, t01=0x00b2}
0x40cc…40d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c8}
0x40d6…40ea               Head {h00=0x0010, h01=0x0050, text=» CFR A14,A1 «, t00=0x0029, t01=0x00d2}
0x40ea…40fe               Head {h00=0x0010, h01=0x0050, text=» ABL VDU100 «, t00=0x0029, t01=0x00e6}
0x40fe…4108               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00fa}
0x4108…411c               Head {h00=0x0010, h01=0x0050, text=»KBIN30 EQU *«, t00=0x0029, t01=0x0104}
0x411c…415a               Head {h00=0x003a, h01=0x0050, text=» CFI A14,KEYTAB,A5 BRANCH TO RESPECTIVE INPUT HANDLER «, t00=0x0029, t01=0x0118}
0x415a…416e               Head {h00=0x0010, h01=0x0050, text=» ABL VDU100 «, t00=0x0029, t01=0x0156}
0x416e…417c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x016a}
0x417c…4186               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0178}
0x4186…41b0               Head {h00=0x0026, h01=0x0050, text=»* ABORT DC-REQUEST TO ENABLE WRITE«, t00=0x0029, t01=0x0182}
0x41b0…41ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x001c}
0x41ba…41ce               Head {h00=0x0010, h01=0x0050, text=»DCABOR EQU *«, t00=0x002a, t01=0x0026}
0x41ce…41e0               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x002a, t01=0x003a}
0x41e0…41f6               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x002a, t01=0x004c}
0x41f6…420a               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x002a, t01=0x0062}
0x420a…4224               Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x002a, t01=0x0076}
0x4224…423a               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCAB05«, t00=0x002a, t01=0x0090}
0x423a…4246               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x00a6}
0x4246…4264               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x002a, t01=0x00b2}
0x4264…4278               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x002a, t01=0x00d0}
0x4278…428a               Head {h00=0x000e, h01=0x0050, text=» RF DCAB10«, t00=0x002a, t01=0x00e4}
0x428a…429e               Head {h00=0x0010, h01=0x0050, text=»DCAB05 EQU *«, t00=0x002a, t01=0x00f6}
0x429e…42bc               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x002a, t01=0x010a}
0x42bc…42d4               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x002a, t01=0x0128}
0x42d4…42e8               Head {h00=0x0010, h01=0x0050, text=»DCAB10 EQU *«, t00=0x002a, t01=0x0140}
0x42e8…42f4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0154}
0x42f4…430a               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x002a, t01=0x0160}
0x430a…4316               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x0176}
0x4316…4326               Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x002a, t01=0x0182}
0x4326…4336 (43, 0, 400)  Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002b, t01=0x0004}
0x4336…4344               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0014}
0x4344…434e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0022}
0x434e…436a               Head {h00=0x0018, h01=0x0050, text=»* SET REQUEST TIMER «, t00=0x002b, t01=0x002c}
0x436a…4388               Head {h00=0x001a, h01=0x0050, text=»* A1 = TIME OUT VALUE «, t00=0x002b, t01=0x0048}
0x4388…43a2               Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x002b, t01=0x0066}
0x43a2…43ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0080}
0x43ac…43c0               Head {h00=0x0010, h01=0x0050, text=»REQTIM EQU *«, t00=0x002b, t01=0x008a}
0x43c0…43d8               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x002b, t01=0x009e}
0x43d8…43ec               Head {h00=0x0010, h01=0x0050, text=» LDK A7,/B9 «, t00=0x002b, t01=0x00b6}
0x43ec…43f8               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002b, t01=0x00ca}
0x43f8…4408               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x002b, t01=0x00d6}
0x4408…4418               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002b, t01=0x00e6}
0x4418…4426               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x00f6}
0x4426…442e               Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0104}
0x442e…4438               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x010c}
0x4438…4442               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0116}
0x4442…4484               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002b, t01=0x0120}
0x4484…448e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0162}
0x448e…449e               Head {h00=0x000c, h01=0x0050, text=»* RETURN«, t00=0x002b, t01=0x016c}
0x449e…44a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x017c}
0x44a8…44ee               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002b, t01=0x0186}
0x44ee…44f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x003c}
0x44f8…450e               Head {h00=0x0012, h01=0x0050, text=»RETURN RTN A14«, t00=0x002c, t01=0x0046}
0x450e…451c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x005c}
0x451c…4526               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x006a}
0x4526…4566               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002c, t01=0x0074}
0x4566…4570               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00b4}
0x4570…4584               Head {h00=0x0010, h01=0x0050, text=»*     CRLEFT«, t00=0x002c, t01=0x00be}
0x4584…458e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00d2}
0x458e…45c8               Head {h00=0x0036, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS TO LEFT«, t00=0x002c, t01=0x00dc}
0x45c8…45d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0116}
0x45d2…4612               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002c, t01=0x0120}
0x4612…461c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0160}
0x461c…4630               Head {h00=0x0010, h01=0x0050, text=»CRLEFT EQU *«, t00=0x002c, t01=0x016a}
0x4630…465e               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002c, t01=0x017e}
0x465e…4670               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x002d, t01=0x001c}
0x4670…4698               Head {h00=0x0024, h01=0x0050, text=» RF(NN) CRL050 NOT LEFTMOST POS «, t00=0x002d, t01=0x002e}
0x4698…46b0               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x002d, t01=0x0056}
0x46b0…46c8               Head {h00=0x0014, h01=0x0050, text=»CRL050 RF CRH100«, t00=0x002d, t01=0x006e}
0x46c8…46d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0086}
0x46d2…4712               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002d, t01=0x0090}
0x4712…471c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00d0}
0x471c…4730               Head {h00=0x0010, h01=0x0050, text=»*     CRRIGT«, t00=0x002d, t01=0x00da}
0x4730…473a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00ee}
0x473a…477a               Head {h00=0x003c, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS. TO THE RIGHT«, t00=0x002d, t01=0x00f8}
0x477a…4784               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0138}
0x4784…47c4               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002d, t01=0x0142}
0x47c4…47ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0182}
0x47ce…47e4               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x002d, t01=0x018c}
0x47e4…47ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0012}
0x47ee…4802               Head {h00=0x0010, h01=0x0050, text=»CRRIGT EQU *«, t00=0x002e, t01=0x001c}
0x4802…4830               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002e, t01=0x0030}
0x4830…4842               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x002e, t01=0x005e}
0x4842…4866               Head {h00=0x0020, h01=0x0050, text=» CWK A2,LBVDU END OF BUFFER?«, t00=0x002e, t01=0x0070}
0x4866…487e               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRR050 NO«, t00=0x002e, t01=0x0094}
0x487e…4890               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x002e, t01=0x00ac}
0x4890…48a8               Head {h00=0x0014, h01=0x0050, text=»CRR050 RF CRH100«, t00=0x002e, t01=0x00be}
0x48a8…48b6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00d6}
0x48b6…48c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00e4}
0x48c0…4904               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x002e, t01=0x00ee}
0x4904…490e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0132}
0x490e…491e               Head {h00=0x000c, h01=0x0050, text=»* CRDOWN«, t00=0x002e, t01=0x013c}
0x491e…4928               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x014c}
0x4928…4968               Head {h00=0x003c, h01=0x0050, text=»* THE MODULE MOVES THE CURSOR TO NEXT ROW. SAME COLUMN. «, t00=0x002e, t01=0x0156}
0x4968…4972               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0008}
0x4972…49b6               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002f, t01=0x0012}
0x49b6…49c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0056}
0x49c0…49d4               Head {h00=0x0010, h01=0x0050, text=»CRDOWN EQU *«, t00=0x002f, t01=0x0060}
0x49d4…49fe               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x002f, t01=0x0074}
0x49fe…4a14               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LLINE«, t00=0x002f, t01=0x009e}
0x4a14…4a34               Head {h00=0x001c, h01=0x0050, text=» CWK A2,LBVDU LAST LINE?«, t00=0x002f, t01=0x00b4}
0x4a34…4a4c               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRD050 NO«, t00=0x002f, t01=0x00d4}
0x4a4c…4a62               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LBVDU«, t00=0x002f, t01=0x00ec}
0x4a62…4a7a               Head {h00=0x0014, h01=0x0050, text=»CRD050 RF CRH100«, t00=0x002f, t01=0x0102}
0x4a7a…4a84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x011a}
0x4a84…4aca               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002f, t01=0x0124}
0x4aca…4ad4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x016a}
0x4ad4…4ae2               Head {h00=0x000a, h01=0x0050, text=»* CRUP«, t00=0x002f, t01=0x0174}
0x4ae2…4aec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0182}
0x4aec…4b18               Head {h00=0x0028, h01=0x0050, text=»* MOVE CURSOR ONE LINE UP. SAME COL.«, t00=0x002f, t01=0x018c}
0x4b18…4b22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0028}
0x4b22…4b68               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0030, t01=0x0032}
0x4b68…4b72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0078}
0x4b72…4b84               Head {h00=0x000e, h01=0x0050, text=»CRUP EQU *«, t00=0x0030, t01=0x0082}
0x4b84…4bb2               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x0030, t01=0x0094}
0x4bb2…4bc8               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LLINE«, t00=0x0030, t01=0x00c2}
0x4bc8…4bea               Head {h00=0x001e, h01=0x0050, text=» RF(NN) CRU050 UPMOST LINE«, t00=0x0030, t01=0x00d8}
0x4bea…4c00               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LBVDU«, t00=0x0030, t01=0x00fa}
0x4c00…4c18               Head {h00=0x0014, h01=0x0050, text=»CRU050 RF CRH100«, t00=0x0030, t01=0x0110}
0x4c18…4c26               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0128}
0x4c26…4c30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0136}
0x4c30…4c6e               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0030, t01=0x0140}
0x4c6e…4c78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x017e}
0x4c78…4c88               Head {h00=0x000c, h01=0x0050, text=»* CRHOME«, t00=0x0030, t01=0x0188}
0x4c88…4c92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0008}
0x4c92…4cb6               Head {h00=0x0020, h01=0x0050, text=»* HOME POSITIONING OF CURSOR«, t00=0x0031, t01=0x0012}
0x4cb6…4cc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0036}
0x4cc0…4cfe               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0031, t01=0x0040}
0x4cfe…4d08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x007e}
0x4d08…4d1c               Head {h00=0x0010, h01=0x0050, text=»CRHOME EQU *«, t00=0x0031, t01=0x0088}
0x4d1c…4d2e               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0031, t01=0x009c}
0x4d2e…4d42               Head {h00=0x0010, h01=0x0050, text=»CRH100 EQU *«, t00=0x0031, t01=0x00ae}
0x4d42…4d70               Head {h00=0x002a, h01=0x0050, text=» ST A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x0031, t01=0x00c2}
0x4d70…4d94               Head {h00=0x0020, h01=0x0050, text=» CF A14,ATMASB UPDATE ATTRIB«, t00=0x0031, t01=0x00f0}
0x4d94…4dba               Head {h00=0x0022, h01=0x0050, text=» CF A14,SETCUR DISPLAY CURSOR «, t00=0x0031, t01=0x0114}
0x4dba…4dca               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x013a}
0x4dca…4dd8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x014a}
0x4dd8…4de2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0158}
0x4de2…4e20               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0031, t01=0x0162}
0x4e20…4e2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0010}
0x4e2a…4e38               Head {h00=0x000a, h01=0x0050, text=»* CRNL«, t00=0x0032, t01=0x001a}
0x4e38…4e42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0028}
0x4e42…4e78               Head {h00=0x0032, h01=0x0050, text=»* CURSOR IN FIRST UNPROTECTED POS ON NEW LINE «, t00=0x0032, t01=0x0032}
0x4e78…4e82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0068}
0x4e82…4ec0               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0032, t01=0x0072}
0x4ec0…4eca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00b0}
0x4eca…4edc               Head {h00=0x000e, h01=0x0050, text=»CRNL EQU *«, t00=0x0032, t01=0x00ba}
0x4edc…4f06               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0032, t01=0x00cc}
0x4f06…4f26               Head {h00=0x001c, h01=0x0050, text=» ADKL A2,LLINE NEXT LINE«, t00=0x0032, t01=0x00f6}
0x4f26…4f3c               Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x0032, t01=0x0116}
0x4f3c…4f52               Head {h00=0x0012, h01=0x0050, text=» RF(L) CRN050 «, t00=0x0032, t01=0x012c}
0x4f52…4f70               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND «, t00=0x0032, t01=0x0142}
0x4f70…4f7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0160}
0x4f7a…4f98               Head {h00=0x001a, h01=0x0050, text=»* COMPUTE LEFTMOST POS«, t00=0x0032, t01=0x016a}
0x4f98…4fa2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0188}
0x4fa2…4fba (51, 0, 400)  Head {h00=0x0014, h01=0x0050, text=»CRN050 LDK A1,0 «, t00=0x0033, t01=0x0004}
0x4fba…4fd6               Head {h00=0x0018, h01=0x0050, text=»CRN100 SUKL A2,LLINE«, t00=0x0033, t01=0x001c}
0x4fd6…4fec               Head {h00=0x0012, h01=0x0050, text=» RF(N) CRN120 «, t00=0x0033, t01=0x0038}
0x4fec…5002               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,LLINE«, t00=0x0033, t01=0x004e}
0x5002…5014               Head {h00=0x000e, h01=0x0050, text=» RB CRN100«, t00=0x0033, t01=0x0064}
0x5014…504a               Head {h00=0x0032, h01=0x0050, text=»CRN120 ST A1,PCURS,TCABAS STORE CURSOR ADDRESS«, t00=0x0033, t01=0x0076}
0x504a…5058               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x00ac}
0x5058…5060               Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x00ba}
0x5060…50aa               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0033, t01=0x00c2}
0x50aa…50bc               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0033, t01=0x010c}
0x50bc…50ee               Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x0033, t01=0x011e}
0x50ee…5100               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0033, t01=0x0150}
0x5100…5128               Head {h00=0x0024, h01=0x0050, text=» RF(Z) CRN130 NO ATTRIBUTE FOUND«, t00=0x0033, t01=0x0162}
0x5128…513c               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x0033, t01=0x018a}
0x513c…5160               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TAB PROTECTED FIELD «, t00=0x0034, t01=0x000e}
0x5160…5192               Head {h00=0x002e, h01=0x0050, text=» CW A2,PCURS,TCABAS CURSOR ON ATTRIBUTE ??«, t00=0x0034, t01=0x0032}
0x5192…51ae               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN150 NO!! «, t00=0x0034, t01=0x0064}
0x51ae…51da               Head {h00=0x0028, h01=0x0050, text=» CWK A2,1919 LAST SCREEN POSITION?? «, t00=0x0034, t01=0x0080}
0x51da…51f6               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN140 NO!! «, t00=0x0034, t01=0x00ac}
0x51f6…5210               Head {h00=0x0016, h01=0x0050, text=»CRN130 LDKL A2,-1 «, t00=0x0034, t01=0x00c8}
0x5210…5228               Head {h00=0x0014, h01=0x0050, text=»CRN140 ADK A2,1 «, t00=0x0034, t01=0x00e2}
0x5228…5244               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x0034, t01=0x00fa}
0x5244…5270               Head {h00=0x0028, h01=0x0050, text=»CRN150 CF A14,SETCUR POSITION CURSOR«, t00=0x0034, t01=0x0116}
0x5270…5280               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0034, t01=0x0142}
0x5280…52cc               Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0034, t01=0x0152}
0x52cc…52da               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x000e}
0x52da…52e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x001c}
0x52e4…5320               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0035, t01=0x0026}
0x5320…532a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0062}
0x532a…5338               Head {h00=0x000a, h01=0x0050, text=»* TAB «, t00=0x0035, t01=0x006c}
0x5338…5342               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x007a}
0x5342…5378               Head {h00=0x0032, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHAR. LOCATION «, t00=0x0035, t01=0x0084}
0x5378…53a4               Head {h00=0x0028, h01=0x0050, text=»* OF THE NEXT UNPROTECTED DATA FIELD«, t00=0x0035, t01=0x00ba}
0x53a4…53ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00e6}
0x53ae…53ea               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0035, t01=0x00f0}
0x53ea…53f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x012c}
0x53f4…542a               Head {h00=0x0032, h01=0x0050, text=»* A1=END OF BUFFER PAREM.    0=EOB NOT REACHED«, t00=0x0035, t01=0x0136}
0x542a…543c               Head {h00=0x000e, h01=0x0050, text=»*   2=EOB «, t00=0x0035, t01=0x016c}
0x543c…545c               Head {h00=0x001c, h01=0x0050, text=»*   3=ATTRIB. IN EOB POS«, t00=0x0035, t01=0x017e}
0x545c…547e               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x0036, t01=0x000e}
0x547e…5494               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTGR«, t00=0x0036, t01=0x0030}
0x5494…549e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0046}
0x549e…54b0               Head {h00=0x000e, h01=0x0050, text=»TAB EQU * «, t00=0x0036, t01=0x0050}
0x54b0…54c2               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x0036, t01=0x0062}
0x54c2…54ec               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0036, t01=0x0074}
0x54ec…551a               Head {h00=0x002a, h01=0x0050, text=»TAB100 CF A14,ATMASF SEARCH ATTRIBUTE «, t00=0x0036, t01=0x009e}
0x551a…553a               Head {h00=0x001c, h01=0x0050, text=» CWK A1,0 END OF BUFFER?«, t00=0x0036, t01=0x00cc}
0x553a…5554               Head {h00=0x0016, h01=0x0050, text=» RF(G) TAB300 YES «, t00=0x0036, t01=0x00ec}
0x5554…5566               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0036, t01=0x0106}
0x5566…558c               Head {h00=0x0022, h01=0x0050, text=»TAB150 ANK A3,/10 UNPROTECTED?«, t00=0x0036, t01=0x0118}
0x558c…55a6               Head {h00=0x0016, h01=0x0050, text=» RF(E) TAB200 YES «, t00=0x0036, t01=0x013e}
0x55a6…55c6               Head {h00=0x001c, h01=0x0050, text=» RB TAB100 NEXT ATTRIB. «, t00=0x0036, t01=0x0158}
0x55c6…55e8               Head {h00=0x001e, h01=0x0050, text=»TAB200 ST A2,PCURS,TCABAS «, t00=0x0036, t01=0x0178}
0x55e8…5612               Head {h00=0x0026, h01=0x0050, text=» CF A14,SETCUR DISPLAY NEW CURSOR «, t00=0x0037, t01=0x000a}
0x5612…5622               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0037, t01=0x0034}
0x5622…563a               Head {h00=0x0014, h01=0x0050, text=»TAB300 LDK A2,0 «, t00=0x0037, t01=0x0044}
0x563a…566a               Head {h00=0x002c, h01=0x0050, text=» CWK A1,3 ATTRIBUTE IN LAST POSITION ?? «, t00=0x0037, t01=0x005c}
0x566a…5678               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x008c}
0x5678…56b8               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0037, t01=0x009a}
0x56b8…56d4               Head {h00=0x0018, h01=0x0050, text=» RF(NE) TAB350 NO!! «, t00=0x0037, t01=0x00da}
0x56d4…5700               Head {h00=0x0028, h01=0x0050, text=» ANK A5,1 WHOLE BUFFER CONTROLLED ??«, t00=0x0037, t01=0x00f6}
0x5700…571c               Head {h00=0x0018, h01=0x0050, text=» RB(Z) TAB200 YES!! «, t00=0x0037, t01=0x0122}
0x571c…5730               Head {h00=0x0010, h01=0x0050, text=» SUR A5,A5  «, t00=0x0037, t01=0x013e}
0x5730…5752               Head {h00=0x001e, h01=0x0050, text=» RB TAB150 CHECK ATTRIBUTE«, t00=0x0037, t01=0x0152}
0x5752…5766               Head {h00=0x0010, h01=0x0050, text=»TAB350 EQU *«, t00=0x0037, t01=0x0174}
0x5766…57a6               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0037, t01=0x0188}
0x57a6…57ce               Head {h00=0x0024, h01=0x0050, text=» ANK A5,1 WHOLE BUFF. CONTROLED?«, t00=0x0038, t01=0x0038}
0x57ce…57e6               Head {h00=0x0014, h01=0x0050, text=» RF(G) TAB400 NO«, t00=0x0038, t01=0x0060}
0x57e6…581a               Head {h00=0x0030, h01=0x0050, text=» RB TAB200 ALL PROT. OR NON-FORMATTED BUFF. «, t00=0x0038, t01=0x0078}
0x581a…5832               Head {h00=0x0014, h01=0x0050, text=»TAB400 LDK A5,0 «, t00=0x0038, t01=0x00ac}
0x5832…5844               Head {h00=0x000e, h01=0x0050, text=» RB TAB100«, t00=0x0038, t01=0x00c4}
0x5844…5852               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x00d6}
0x5852…585c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00e4}
0x585c…58a0               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0038, t01=0x00ee}
0x58a0…58aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0132}
0x58aa…58b8               Head {h00=0x000a, h01=0x0050, text=»* DUP «, t00=0x0038, t01=0x013c}
0x58b8…58c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x014a}
0x58c2…58da               Head {h00=0x0014, h01=0x0050, text=»* DUPLICATE KEY «, t00=0x0038, t01=0x0154}
0x58da…5918               Head {h00=0x003a, h01=0x0050, text=»* OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x0038, t01=0x016c}
0x5918…5956               Head {h00=0x003a, h01=0x0050, text=»* TO BE ENTERED INTO THE DISPLAY BUFFER AND A STANDARD«, t00=0x0039, t01=0x001a}
0x5956…5982               Head {h00=0x0028, h01=0x0050, text=»* TAB KEY OPERATION TO BE PERFORMED «, t00=0x0039, t01=0x0058}
0x5982…598c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0084}
0x598c…59d0               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0039, t01=0x008e}
0x59d0…59da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00d2}
0x59da…59ec               Head {h00=0x000e, h01=0x0050, text=»DUP EQU * «, t00=0x0039, t01=0x00dc}
0x59ec…5a16               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0039, t01=0x00ee}
0x5a16…5a50               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE«, t00=0x0039, t01=0x0118}
0x5a50…5a66               Head {h00=0x0012, h01=0x0050, text=» LDK A2,DUPCH «, t00=0x0039, t01=0x0152}
0x5a66…5a9a               Head {h00=0x0030, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFF. ADDR.«, t00=0x0039, t01=0x0168}
0x5a9a…5aac               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x003a, t01=0x000c}
0x5aac…5ac0               Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x003a, t01=0x001e}
0x5ac0…5ad4               Head {h00=0x0010, h01=0x0050, text=» CF A14,TAB «, t00=0x003a, t01=0x0032}
0x5ad4…5ae4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003a, t01=0x0046}
0x5ae4…5af2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0056}
0x5af2…5afc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0064}
0x5afc…5b40               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003a, t01=0x006e}
0x5b40…5b4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00b2}
0x5b4a…5b64               Head {h00=0x0016, h01=0x0050, text=»*       FIELD MARK«, t00=0x003a, t01=0x00bc}
0x5b64…5b6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00d6}
0x5b6e…5bb2               Head {h00=0x0040, h01=0x0050, text=»*       OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x003a, t01=0x00e0}
0x5bb2…5bf2               Head {h00=0x003c, h01=0x0050, text=»*       TO BE ENTERED IN THE DISPLAY BUFFER IN ADDITION «, t00=0x003a, t01=0x0124}
0x5bf2…5c22               Head {h00=0x002c, h01=0x0050, text=»*       TO THE DC CHARACTER TRANSMITTED «, t00=0x003a, t01=0x0164}
0x5c22…5c2c (59, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0004}
0x5c2c…5c6e               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003b, t01=0x000e}
0x5c6e…5c78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0050}
0x5c78…5c8c               Head {h00=0x0010, h01=0x0050, text=»FLDMRK EQU *«, t00=0x003b, t01=0x005a}
0x5c8c…5cb4               Head {h00=0x0024, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE??«, t00=0x003b, t01=0x006e}
0x5cb4…5cee               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE«, t00=0x003b, t01=0x0096}
0x5cee…5d02               Head {h00=0x0010, h01=0x0050, text=» LDK A2,FMCH«, t00=0x003b, t01=0x00d0}
0x5d02…5d38               Head {h00=0x0032, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFFER ADDR. «, t00=0x003b, t01=0x00e4}
0x5d38…5d4a               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x003b, t01=0x011a}
0x5d4a…5d5e               Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x003b, t01=0x012c}
0x5d5e…5d6e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x0140}
0x5d6e…5d7c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0150}
0x5d7c…5d86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x015e}
0x5d86…5dc8               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003b, t01=0x0168}
0x5dc8…5dd2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x001a}
0x5dd2…5de8               Head {h00=0x0012, h01=0x0050, text=»*       RDHOME«, t00=0x003c, t01=0x0024}
0x5de8…5df2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x003a}
0x5df2…5e10               Head {h00=0x001a, h01=0x0050, text=»*       READY HOME KEY«, t00=0x003c, t01=0x0044}
0x5e10…5e4c               Head {h00=0x0038, h01=0x0050, text=»*       OPERATION OF THIS KEY CAUSES THE CURSOR TOBE«, t00=0x003c, t01=0x0062}
0x5e4c…5e8a               Head {h00=0x003a, h01=0x0050, text=»*        POSITIONED AT THE FIRST UNPROTECTED CHARACTER«, t00=0x003c, t01=0x009e}
0x5e8a…5ea8               Head {h00=0x001a, h01=0x0050, text=»*       ON THE SCREEN «, t00=0x003c, t01=0x00dc}
0x5ea8…5eb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00fa}
0x5eb2…5ef2               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003c, t01=0x0104}
0x5ef2…5efc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0144}
0x5efc…5f18               Head {h00=0x0018, h01=0x0050, text=»RDHOME LDKL A4,BVDU «, t00=0x003c, t01=0x014e}
0x5f18…5f42               Head {h00=0x0026, h01=0x0050, text=» ADR A4,TCABAS VDU BUFFER ADDRESS «, t00=0x003c, t01=0x016a}
0x5f42…5f72 (61, 0, 400)  Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x003d, t01=0x0004}
0x5f72…5f86               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003d, t01=0x0034}
0x5f86…5f9a               Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x003d, t01=0x0048}
0x5f9a…5fb0               Head {h00=0x0012, h01=0x0050, text=» RF(NL) RDH10 «, t00=0x003d, t01=0x005c}
0x5fb0…5fc4               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003d, t01=0x0072}
0x5fc4…5fec               Head {h00=0x0024, h01=0x0050, text=» ABL(Z) CRHOME UNPROTECTED FIELD«, t00=0x003d, t01=0x0086}
0x5fec…600a               Head {h00=0x001a, h01=0x0050, text=»RDH10 CM PCURS,TCABAS «, t00=0x003d, t01=0x00ae}
0x600a…603a               Head {h00=0x002c, h01=0x0050, text=» CF A14,TAB SEARCH 1ST UNPROTECTED FIELD«, t00=0x003d, t01=0x00cc}
0x603a…604a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003d, t01=0x00fc}
0x604a…6058               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x010c}
0x6058…6062               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x011a}
0x6062…60a0               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003d, t01=0x0124}
0x60a0…60aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0162}
0x60aa…60ba               Head {h00=0x000c, h01=0x0050, text=»* BAKTAB«, t00=0x003d, t01=0x016c}
0x60ba…60c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x017c}
0x60c4…60fe               Head {h00=0x0036, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHARACTER LOCATION «, t00=0x003d, t01=0x0186}
0x60fe…6134               Head {h00=0x0032, h01=0x0050, text=»* OF THE NEXT PRECIDING UNPROTECTED DATA FIELD«, t00=0x003e, t01=0x0030}
0x6134…613e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0066}
0x613e…617a               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x003e, t01=0x0070}
0x617a…6184               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00ac}
0x6184…61a6               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x003e, t01=0x00b6}
0x61a6…61bc               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x003e, t01=0x00d8}
0x61bc…61d0               Head {h00=0x0010, h01=0x0050, text=»BAKTAB EQU *«, t00=0x003e, t01=0x00ee}
0x61d0…61e2               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x003e, t01=0x0102}
0x61e2…620c               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x003e, t01=0x0114}
0x620c…6232               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x003e, t01=0x013e}
0x6232…6254               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR? «, t00=0x003e, t01=0x0164}
0x6254…626e               Head {h00=0x0016, h01=0x0050, text=» RF(NG) BAK100 YES«, t00=0x003e, t01=0x0186}
0x626e…6294               Head {h00=0x0022, h01=0x0050, text=» CWK A2,0 UPPER LEFTMOST POS? «, t00=0x003f, t01=0x0010}
0x6294…62ae               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x003f, t01=0x0036}
0x62ae…62c0               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003f, t01=0x0050}
0x62c0…62ec               Head {h00=0x0028, h01=0x0050, text=»BAK100 CWK A2,0 UPPER LEFTMOST POS? «, t00=0x003f, t01=0x0062}
0x62ec…6306               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x003f, t01=0x008e}
0x6306…631e               Head {h00=0x0014, h01=0x0050, text=»BAK200 SUK A2,1 «, t00=0x003f, t01=0x00a8}
0x631e…6346               Head {h00=0x0024, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE «, t00=0x003f, t01=0x00c0}
0x6346…638a               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003f, t01=0x00e8}
0x638a…639c               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003f, t01=0x012c}
0x639c…63be               Head {h00=0x001e, h01=0x0050, text=» RF(Z) BAK400 NO ATTRIBUTE«, t00=0x003f, t01=0x013e}
0x63be…63f6               Head {h00=0x0034, h01=0x0050, text=» RF(N) BAK250 ATTRIBUTE FOUND. NOT IN LAST POS. «, t00=0x003f, t01=0x0160}
0x63f6…642a               Head {h00=0x0030, h01=0x0050, text=» SUR A2,A2 ATTRIBUTE FOUND IN LAST POSITION «, t00=0x0040, t01=0x0008}
0x642a…643c               Head {h00=0x000e, h01=0x0050, text=» RF BAK300«, t00=0x0040, t01=0x003c}
0x643c…6450               Head {h00=0x0010, h01=0x0050, text=»BAK250 EQU *«, t00=0x0040, t01=0x004e}
0x6450…6492               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0040, t01=0x0062}
0x6492…64b0               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x0040, t01=0x00a4}
0x64b0…64ca               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK100 YES«, t00=0x0040, t01=0x00c2}
0x64ca…64dc               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0040, t01=0x00dc}
0x64dc…64fe               Head {h00=0x001e, h01=0x0050, text=»BAK300 ST A2,PCURS,TCABAS «, t00=0x0040, t01=0x00ee}
0x64fe…6520               Head {h00=0x001e, h01=0x0050, text=» CF A14,SETCUR SET CURSOR «, t00=0x0040, t01=0x0110}
0x6520…6530               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0040, t01=0x0132}
0x6530…655e               Head {h00=0x002a, h01=0x0050, text=»BAK400 SUK A5,1 WHOLE BUFF CONTROLLED?«, t00=0x0040, t01=0x0142}
0x655e…6578               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) BAK300 YES«, t00=0x0040, t01=0x0170}
0x6578…65a4               Head {h00=0x0028, h01=0x0050, text=» LDKL A2,LBVDU-1 END BUFFER ADDRESS «, t00=0x0040, t01=0x018a}
0x65a4…65ca               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x0041, t01=0x0026}
0x65ca…65ee               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x0041, t01=0x004c}
0x65ee…6606               Head {h00=0x0014, h01=0x0050, text=» RB(G) BAK200 NO«, t00=0x0041, t01=0x0070}
0x6606…6624               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x0041, t01=0x0088}
0x6624…663e               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK200 YES«, t00=0x0041, t01=0x00a6}
0x663e…6670               Head {h00=0x002e, h01=0x0050, text=» ST A3,ATTRIB,TCABAS UPDATE NEW ATTRIBUTE «, t00=0x0041, t01=0x00c0}
0x6670…668c               Head {h00=0x0018, h01=0x0050, text=» ST A2,CURATT,TCABAS«, t00=0x0041, t01=0x00f2}
0x668c…66d4               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0041, t01=0x010e}
0x66d4…66e6               Head {h00=0x000e, h01=0x0050, text=» RB BAK200«, t00=0x0041, t01=0x0156}
0x66e6…672e               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0041, t01=0x0168}
0x672e…673c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x0020}
0x673c…6746               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x002e}
0x6746…6788               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0042, t01=0x0038}
0x6788…6792               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x007a}
0x6792…67a0               Head {h00=0x000a, h01=0x0050, text=»* CHAR«, t00=0x0042, t01=0x0084}
0x67a0…67aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0092}
0x67aa…67e8               Head {h00=0x003a, h01=0x0050, text=»* ALPHABETIC AND SPECIAL CHAR UPDATING AND DISPLAYING «, t00=0x0042, t01=0x009c}
0x67e8…67f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00da}
0x67f2…6834               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0042, t01=0x00e4}
0x6834…683e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0126}
0x683e…6852               Head {h00=0x0010, h01=0x0050, text=»LCASPW EQU *«, t00=0x0042, t01=0x0130}
0x6852…6882               Head {h00=0x002c, h01=0x0050, text=» SUK A2,/50 CONVERT TO LOWER CASE P - W «, t00=0x0042, t01=0x0144}
0x6882…68a4               Head {h00=0x001e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS«, t00=0x0042, t01=0x0174}
0x68a4…68ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0008}
0x68ae…68c0               Head {h00=0x000e, h01=0x0050, text=»CHAR EQU *«, t00=0x0043, t01=0x0012}
0x68c0…68ea               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0043, t01=0x0024}
0x68ea…691c               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x0043, t01=0x004e}
0x691c…6940               Head {h00=0x0020, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIB?«, t00=0x0043, t01=0x0080}
0x6940…695a               Head {h00=0x0016, h01=0x0050, text=» RF(E) CHA300 YES «, t00=0x0043, t01=0x00a4}
0x695a…6990               Head {h00=0x0032, h01=0x0050, text=»CHA100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0043, t01=0x00be}
0x6990…69a2               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0043, t01=0x00f4}
0x69a2…69c8               Head {h00=0x0022, h01=0x0050, text=» ANK A4,/10 PROTECTRED FIELD? «, t00=0x0043, t01=0x0106}
0x69c8…69e2               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CHA300 YES«, t00=0x0043, t01=0x012c}
0x69e2…69fa               Head {h00=0x0014, h01=0x0050, text=»CHA200 LDR A4,A3«, t00=0x0043, t01=0x0146}
0x69fa…6a1c               Head {h00=0x001e, h01=0x0050, text=» ANK A4,/8 NUMERIC FIELD? «, t00=0x0043, t01=0x015e}
0x6a1c…6a34               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x0043, t01=0x0180}
0x6a34…6a64               Head {h00=0x002c, h01=0x0050, text=»CHA300 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x0044, t01=0x0008}
0x6a64…6a6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0038}
0x6a6e…6a80               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0044, t01=0x0042}
0x6a80…6aa6               Head {h00=0x0022, h01=0x0050, text=»* UPDATING OF FIELD SEPARATOR «, t00=0x0044, t01=0x0054}
0x6aa6…6ab6               Head {h00=0x000c, h01=0x0050, text=»*    DK4«, t00=0x0044, t01=0x007a}
0x6ab6…6ac0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x008a}
0x6ac0…6ada               Head {h00=0x0016, h01=0x0050, text=»CHARFS EQU *  DK4 «, t00=0x0044, t01=0x0094}
0x6ada…6af4               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  DK4«, t00=0x0044, t01=0x00ae}
0x6af4…6b1c               Head {h00=0x0024, h01=0x0050, text=» LDK A2,/26 LOAD CHARACTER & DK4«, t00=0x0044, t01=0x00c8}
0x6b1c…6b5e               Head {h00=0x003e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS RESTORE CHARACTER IN BUFFER DK4«, t00=0x0044, t01=0x00f0}
0x6b5e…6b70               Head {h00=0x000e, h01=0x0050, text=» XIF   DK4«, t00=0x0044, t01=0x0132}
0x6b70…6b92               Head {h00=0x001e, h01=0x0050, text=» RB CHAR  DISPLAY CHAR DK4«, t00=0x0044, t01=0x0144}
0x6b92…6b9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0166}
0x6b9c…6baa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x0170}
0x6baa…6bf2               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0044, t01=0x017e}
0x6bf2…6bfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0036}
0x6bfc…6c26               Head {h00=0x0026, h01=0x0050, text=»*   Z E R O : 3    TRIPLE ZERO KEY«, t00=0x0045, t01=0x0040}
0x6c26…6c52               Head {h00=0x0028, h01=0x0050, text=»*   Z E R O : 2     DOUBLE ZERO KEY «, t00=0x0045, t01=0x006a}
0x6c52…6c5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0096}
0x6c5c…6c96               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0045, t01=0x00a0}
0x6c96…6c9e               Head {h00=0x0004, h01=0x0050, t00=0x0045, t01=0x00da}
0x6c9e…6cb2               Head {h00=0x0010, h01=0x0050, text=»ZERO:3 EQU *«, t00=0x0045, t01=0x00e2}
0x6cb2…6cd6               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0045, t01=0x00f6}
0x6cd6…6d12               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0045, t01=0x011a}
0x6d12…6d38               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0045, t01=0x0156}
0x6d38…6d40               Head {h00=0x0004, h01=0x0050, t00=0x0045, t01=0x017c}
0x6d40…6d54               Head {h00=0x0010, h01=0x0050, text=»ZERO:2 EQU *«, t00=0x0045, t01=0x0184}
0x6d54…6d78               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0046, t01=0x0008}
0x6d78…6db4               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0046, t01=0x002c}
0x6db4…6dda               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0046, t01=0x0068}
0x6dda…6e00               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0046, t01=0x008e}
0x6e00…6e18               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0046, t01=0x00b4}
0x6e18…6e22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00cc}
0x6e22…6e64               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0046, t01=0x00d6}
0x6e64…6e6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0118}
0x6e6e…6e7c               Head {h00=0x000a, h01=0x0050, text=»* NUM «, t00=0x0046, t01=0x0122}
0x6e7c…6e86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0130}
0x6e86…6eac               Head {h00=0x0022, h01=0x0050, text=»* DISPLAY AND UPDATE NUMERICS «, t00=0x0046, t01=0x013a}
0x6eac…6eb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0160}
0x6eb6…6ef8               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0046, t01=0x016a}
0x6ef8…6f02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x001c}
0x6f02…6f16               Head {h00=0x0010, h01=0x0050, text=»NUMCOM EQU *«, t00=0x0047, t01=0x0026}
0x6f16…6f2a               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2C «, t00=0x0047, t01=0x003a}
0x6f2a…6f4c               Head {h00=0x001e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS«, t00=0x0047, t01=0x004e}
0x6f4c…6f56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0070}
0x6f56…6f68               Head {h00=0x000e, h01=0x0050, text=»NUM EQU * «, t00=0x0047, t01=0x007a}
0x6f68…6f92               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0047, t01=0x008c}
0x6f92…6fc4               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x0047, t01=0x00b6}
0x6fc4…6fec               Head {h00=0x0024, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIBUTE? «, t00=0x0047, t01=0x00e8}
0x6fec…7006               Head {h00=0x0016, h01=0x0050, text=» RF(E) NUM200 YES «, t00=0x0047, t01=0x0110}
0x7006…703c               Head {h00=0x0032, h01=0x0050, text=»NUM100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0047, t01=0x012a}
0x703c…704e               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0047, t01=0x0160}
0x704e…7072               Head {h00=0x0020, h01=0x0050, text=» ANK A4,/10 PROTECTED FIELD?«, t00=0x0047, t01=0x0172}
0x7072…708a               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x0048, t01=0x0008}
0x708a…70ba               Head {h00=0x002c, h01=0x0050, text=»NUM200 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x0048, t01=0x0020}
0x70ba…70c8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0050}
0x70c8…70d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x005e}
0x70d2…7114               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0048, t01=0x0068}
0x7114…711e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00aa}
0x711e…712e               Head {h00=0x000c, h01=0x0050, text=»* ANCOMM«, t00=0x0048, t01=0x00b4}
0x712e…7138               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00c4}
0x7138…7178               Head {h00=0x003c, h01=0x0050, text=»* COMMON SUBMODULE FOR ALPHANUMERIC CHAR. DISPLAYING AND«, t00=0x0048, t01=0x00ce}
0x7178…718a               Head {h00=0x000e, h01=0x0050, text=»* UPDATING«, t00=0x0048, t01=0x010e}
0x718a…7194               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0120}
0x7194…71d6               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0048, t01=0x012a}
0x71d6…71e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x016c}
0x71e0…71f4               Head {h00=0x0010, h01=0x0050, text=»ANCOMM EQU *«, t00=0x0048, t01=0x0176}
0x71f4…721a               Head {h00=0x0022, h01=0x0050, text=» LC* A4,ECBKB+ECBBA,CREBAS  =1«, t00=0x0048, t01=0x018a}
0x721a…722e               Head {h00=0x0010, h01=0x0050, text=»ANC005 EQU *«, t00=0x0049, t01=0x0020}
0x722e…7244               Head {h00=0x0012, h01=0x0050, text=» LDKL A6,BVDU «, t00=0x0049, t01=0x0034}
0x7244…725a               Head {h00=0x0012, h01=0x0050, text=» ADR A6,TCABAS«, t00=0x0049, t01=0x004a}
0x725a…726c               Head {h00=0x000e, h01=0x0050, text=» ADR A6,A2«, t00=0x0049, t01=0x0060}
0x726c…7274               Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x0072}
0x7274…729e               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0049, t01=0x007a}
0x729e…72ba               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ANC010 YES!!«, t00=0x0049, t01=0x00a4}
0x72ba…72dc               Head {h00=0x001e, h01=0x0050, text=» SCR A4,A6 UPDATE VDU BUFF«, t00=0x0049, t01=0x00c0}
0x72dc…730a               Head {h00=0x002a, h01=0x0050, text=»ANC010 LDR A7,A6 SAVE CURSOR POSITION «, t00=0x0049, t01=0x00e2}
0x730a…7326               Head {h00=0x0018, h01=0x0050, text=» LD A5,CURATT,TCABAS«, t00=0x0049, t01=0x0110}
0x7326…7352               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0049, t01=0x012c}
0x7352…736c               Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC100 YES «, t00=0x0049, t01=0x0158}
0x736c…7390               Head {h00=0x0020, h01=0x0050, text=» SUR A6,A2 BVDU START ADDR. «, t00=0x0049, t01=0x0172}
0x7390…73ae               Head {h00=0x001a, h01=0x0050, text=» ADR A6,A5 ATTRIB. POS«, t00=0x004a, t01=0x0008}
0x73ae…73de               Head {h00=0x002c, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x004a, t01=0x0026}
0x73de…73fa               Head {h00=0x0018, h01=0x0050, text=» ORK A3,1 MDT-BIT ON«, t00=0x004a, t01=0x0056}
0x73fa…740c               Head {h00=0x000e, h01=0x0050, text=» SCR A3,A6«, t00=0x004a, t01=0x0072}
0x740c…7420               Head {h00=0x0010, h01=0x0050, text=»ANC100 EQU *«, t00=0x004a, t01=0x0084}
0x7420…7438               Head {h00=0x0014, h01=0x0050, text=» IFT IN:DL=1  =3«, t00=0x004a, t01=0x0098}
0x7438…7462               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x004a, t01=0x00b0}
0x7462…747c               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC120 NO!!«, t00=0x004a, t01=0x00da}
0x747c…74b0               Head {h00=0x0030, h01=0x0050, text=» LCR A1,A7 GET CHARACTER AT CURSOR POSITION «, t00=0x004a, t01=0x00f4}
0x74b0…74c4               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/7F «, t00=0x004a, t01=0x0128}
0x74c4…74e0               Head {h00=0x0018, h01=0x0050, text=» CWK A1,NULL NULL?? «, t00=0x004a, t01=0x013c}
0x74e0…74fc               Head {h00=0x0018, h01=0x0050, text=» RF(NE) INS:10 NO!! «, t00=0x004a, t01=0x0158}
0x74fc…7524               Head {h00=0x0024, h01=0x0050, text=» SCR A4,A7 STORE INPUT CHARACTER«, t00=0x004a, t01=0x0174}
0x7524…7536               Head {h00=0x000e, h01=0x0050, text=» XIF   =3 «, t00=0x004b, t01=0x000c}
0x7536…754a               Head {h00=0x0010, h01=0x0050, text=»ANC120 EQU *«, t00=0x004b, t01=0x001e}
0x754a…7552               Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x0032}
0x7552…7588               Head {h00=0x0032, h01=0x0050, text=» LDK A5,/2B CURSOR NOT MOVED BEFORE DISPLAYING«, t00=0x004b, t01=0x003a}
0x7588…75ac               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBVDU+ECBBA,CREBAS  «, t00=0x004b, t01=0x0070}
0x75ac…75c4               Head {h00=0x0014, h01=0x0050, text=» SC A5,1,A1  =1 «, t00=0x004b, t01=0x0094}
0x75c4…75d8               Head {h00=0x0010, h01=0x0050, text=» LDK A5,/1E «, t00=0x004b, t01=0x00ac}
0x75d8…75f2               Head {h00=0x0016, h01=0x0050, text=» ADK A1,2 NEXT POS«, t00=0x004b, t01=0x00c0}
0x75f2…761e               Head {h00=0x0028, h01=0x0050, text=» SCR A5,A1 LOW INT, STORE IN BUFFER «, t00=0x004b, t01=0x00da}
0x761e…7630               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A3«, t00=0x004b, t01=0x0106}
0x7630…7658               Head {h00=0x0024, h01=0x0050, text=» ANK A3,/4 STANDARD DISPLAYING? «, t00=0x004b, t01=0x0118}
0x7658…7672               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC200 YES «, t00=0x004b, t01=0x0140}
0x7672…769c               Head {h00=0x0026, h01=0x0050, text=» ANK A6,/2 INTENSIFIED DISPLAYING?«, t00=0x004b, t01=0x015a}
0x769c…76b6               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC150 YES «, t00=0x004b, t01=0x0184}
0x76b6…76d4               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD SPACE«, t00=0x004c, t01=0x000e}
0x76d4…76f6               Head {h00=0x001e, h01=0x0050, text=» RF ANC250 NON DISPLAYING «, t00=0x004c, t01=0x002c}
0x76f6…7722               Head {h00=0x0028, h01=0x0050, text=»ANC150 LDK A5,/1F SET HIGH INTENSITY«, t00=0x004c, t01=0x004e}
0x7722…7744               Head {h00=0x001e, h01=0x0050, text=» SCR A5,A1 STORE IN BUFFER«, t00=0x004c, t01=0x007a}
0x7744…7770               Head {h00=0x0028, h01=0x0050, text=»ANC200 LDR A2,A4 UPDATE A2 WITH CHAR«, t00=0x004c, t01=0x009c}
0x7770…77a4               Head {h00=0x0030, h01=0x0050, text=»ANC250 CF A14,WCHAR DISPLAY CHAR AND CURSOR «, t00=0x004c, t01=0x00c8}
0x77a4…77ce               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x004c, t01=0x00fc}
0x77ce…77fc               Head {h00=0x002a, h01=0x0050, text=» CWK A4,DUPCH  DONT ADD IF IN DUP DK6 «, t00=0x004c, t01=0x0126}
0x77fc…7816               Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC252  DK6«, t00=0x004c, t01=0x0154}
0x7816…7828               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x004c, t01=0x016e}
0x7828…783c               Head {h00=0x0010, h01=0x0050, text=»ANC252 EQU *«, t00=0x004c, t01=0x0180}
0x783c…7852 (77, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x004d, t01=0x0004}
0x7852…7868               Head {h00=0x0012, h01=0x0050, text=» RF(NE) ANC255«, t00=0x004d, t01=0x001a}
0x7868…787a               Head {h00=0x000e, h01=0x0050, text=» LDKL A2,0«, t00=0x004d, t01=0x0030}
0x787a…788e               Head {h00=0x0010, h01=0x0050, text=»ANC255 EQU *«, t00=0x004d, t01=0x0042}
0x788e…78aa               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x004d, t01=0x0056}
0x78aa…78d0               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x004d, t01=0x0072}
0x78d0…78f4               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x004d, t01=0x0098}
0x78f4…790c               Head {h00=0x0014, h01=0x0050, text=» RF(G) ANC300 NO«, t00=0x004d, t01=0x00bc}
0x790c…7914               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x00d4}
0x7914…7940               Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB SKIP TO NEXT UNPROTECTED«, t00=0x004d, t01=0x00dc}
0x7940…7954               Head {h00=0x0010, h01=0x0050, text=»ANC300 EQU *«, t00=0x004d, t01=0x0108}
0x7954…7978               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBCW,A8 CONTROL WORD«, t00=0x004d, t01=0x011c}
0x7978…799c               Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' LINE POSITION «, t00=0x004d, t01=0x0140}
0x799c…79c8               Head {h00=0x0028, h01=0x0050, text=» SUK A1,80 LAST POSITION ON LINE ?? «, t00=0x004d, t01=0x0164}
0x79c8…79e4               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ANC350 NO!!!«, t00=0x004d, t01=0x0190}
0x79e4…7a22               Head {h00=0x003a, h01=0x0050, text=» CF A14,SETCUR POSITION CURSOR TO 1:ST POS. NEXT LINE «, t00=0x004e, t01=0x001c}
0x7a22…7a36               Head {h00=0x0010, h01=0x0050, text=»ANC350 EQU *«, t00=0x004e, t01=0x005a}
0x7a36…7a46               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004e, t01=0x006e}
0x7a46…7a5a               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x004e, t01=0x007e}
0x7a5a…7a68               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x0092}
0x7a68…7a70               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x00a0}
0x7a70…7aac               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x004e, t01=0x00a8}
0x7aac…7ab6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00e4}
0x7ab6…7af6               Head {h00=0x003c, h01=0x0050, text=»*   DELETE CHARACTER AT CURSOR POSITION. SHIFT CARACTERS«, t00=0x004e, t01=0x00ee}
0x7af6…7b28               Head {h00=0x002e, h01=0x0050, text=»*   AT SAME LINE ONE POSITION TO THE LEFT «, t00=0x004e, t01=0x012e}
0x7b28…7b32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0160}
0x7b32…7b76               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x004e, t01=0x016a}
0x7b76…7b7e               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x001e}
0x7b7e…7b92               Head {h00=0x0010, h01=0x0050, text=»DELETE EQU *«, t00=0x004f, t01=0x0026}
0x7b92…7ba6               Head {h00=0x0010, h01=0x0050, text=» LDKL A6,-1 «, t00=0x004f, t01=0x003a}
0x7ba6…7bd0               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS CURSOR ADDRESS«, t00=0x004f, t01=0x004e}
0x7bd0…7bfc               Head {h00=0x0028, h01=0x0050, text=»DEL:10 ADK A6,80 END OF LINE POINTER«, t00=0x004f, t01=0x0078}
0x7bfc…7c2e               Head {h00=0x002e, h01=0x0050, text=» CWR A6,A2 LAST POSITION ON CURRENT LINE??«, t00=0x004f, t01=0x00a4}
0x7c2e…7c56               Head {h00=0x0024, h01=0x0050, text=» RB(L) DEL:10 NO!! TRY NEXT LINE«, t00=0x004f, t01=0x00d6}
0x7c56…7c5e               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x00fe}
0x7c5e…7c8c               Head {h00=0x002a, h01=0x0050, text=» CF A14,S:ATT SEARCH ATTRIBUTE FORWARD«, t00=0x004f, t01=0x0106}
0x7c8c…7cb0               Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 ATTRIBUTE FOUND ??«, t00=0x004f, t01=0x0134}
0x7cb0…7cca               Head {h00=0x0016, h01=0x0050, text=» RF(Z) DEL:20 NO!!«, t00=0x004f, t01=0x0158}
0x7cca…7cfc               Head {h00=0x002e, h01=0x0050, text=» CWR A2,A6 ATTRIBUTE AFTER END OF LINE ?? «, t00=0x004f, t01=0x0172}
0x7cfc…7d18               Head {h00=0x0018, h01=0x0050, text=» RF(G) DEL:20 YES!! «, t00=0x0050, t01=0x0014}
0x7d18…7d38               Head {h00=0x001c, h01=0x0050, text=» SUK A2,1 SKIP ATTRIBUTE«, t00=0x0050, t01=0x0030}
0x7d38…7d4a               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A2«, t00=0x0050, t01=0x0050}
0x7d4a…7d62               Head {h00=0x0014, h01=0x0050, text=»DEL:20 LDR A2,A6«, t00=0x0050, t01=0x0062}
0x7d62…7d6a               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x007a}
0x7d6a…7d72               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x0082}
0x7d72…7d86               Head {h00=0x0010, h01=0x0050, text=» LDK A1,BVDU«, t00=0x0050, t01=0x008a}
0x7d86…7db4               Head {h00=0x002a, h01=0x0050, text=» ADR A1,TCABAS ABSOLUTE BUFFER ADDRESS«, t00=0x0050, t01=0x009e}
0x7db4…7dd8               Head {h00=0x0020, h01=0x0050, text=» ADR A2,A1 END OF FIELD/LINE«, t00=0x0050, t01=0x00cc}
0x7dd8…7e04               Head {h00=0x0028, h01=0x0050, text=» AD A1,PCURS,TCABAS CURSOR POSITION «, t00=0x0050, t01=0x00f0}
0x7e04…7e0c               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x011c}
0x7e0c…7e3e               Head {h00=0x002e, h01=0x0050, text=»DEL:30 CWR A2,A1 ALL CHARACTERS SHIFTED ??«, t00=0x0050, t01=0x0124}
0x7e3e…7e5a               Head {h00=0x0018, h01=0x0050, text=» RF(E) DEL:40 YES!! «, t00=0x0050, t01=0x0156}
0x7e5a…7e7c               Head {h00=0x001e, h01=0x0050, text=» LC A3,1,A1 GET CHARACTER «, t00=0x0050, t01=0x0172}
0x7e7c…7ea0 (81, 0, 400)  Head {h00=0x0020, h01=0x0050, text=» ORK A3,/80 SET MODIFIED BIT«, t00=0x0051, t01=0x0004}
0x7ea0…7ece               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A1 SHIFT CHARACTER 1 POS. LEFT«, t00=0x0051, t01=0x0028}
0x7ece…7ee0               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0051, t01=0x0056}
0x7ee0…7f06               Head {h00=0x0022, h01=0x0050, text=» RB DEL:30 GET NEXT CHARACTER «, t00=0x0051, t01=0x0068}
0x7f06…7f0e               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x008e}
0x7f0e…7f16               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x0096}
0x7f16…7f44               Head {h00=0x002a, h01=0x0050, text=»DEL:40 LDK A3,NULL+/80 NULL CHARACTER «, t00=0x0051, t01=0x009e}
0x7f44…7f72               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A2 STORE AT END OF FIELD/LINE «, t00=0x0051, t01=0x00cc}
0x7f72…7f98               Head {h00=0x0022, h01=0x0050, text=» LD A3,ATTRIB,TCABAS ATTRIBUTE«, t00=0x0051, t01=0x00fa}
0x7f98…7fc0               Head {h00=0x0024, h01=0x0050, text=» ORK A3,1 SET MODIFIED FIELD BIT«, t00=0x0051, t01=0x0120}
0x7fc0…7fc8               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x0148}
0x7fc8…7ffe               Head {h00=0x0032, h01=0x0050, text=» LD A1,CURATT,TCABAS CURRENT ATTRIBUTE ADDRESS«, t00=0x0051, t01=0x0150}
0x7ffe…802c               Head {h00=0x002a, h01=0x0050, text=» CWK A1,LBVDU+1 UNFORMATTED SCREEN ???«, t00=0x0051, t01=0x0186}
0x802c…8048               Head {h00=0x0018, h01=0x0050, text=» RF(E) INS:60 YES!!!«, t00=0x0052, t01=0x0024}
0x8048…805e               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,BVDU «, t00=0x0052, t01=0x0040}
0x805e…8090               Head {h00=0x002e, h01=0x0050, text=» ADR A1,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x0052, t01=0x0056}
0x8090…80b6               Head {h00=0x0022, h01=0x0050, text=» SCR A3,A1 SAVE NEW ATTRIBUTE «, t00=0x0052, t01=0x0088}
0x80b6…80e0               Head {h00=0x0026, h01=0x0050, text=» RF INS:60 DISPLAY MODIFIED FIELD «, t00=0x0052, t01=0x00ae}
0x80e0…80ee               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x00d8}
0x80ee…80f6               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x00e6}
0x80f6…813c               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0052, t01=0x00ee}
0x813c…8146               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0134}
0x8146…818a               Head {h00=0x0040, h01=0x0050, text=»*   INSERT CHARACTER AT CURSOR POSITION. SHIFT CHARACTERS IN«, t00=0x0052, t01=0x013e}
0x818a…81ca               Head {h00=0x003c, h01=0x0050, text=»*   SAME FIELD , EXCEPT NULLS, ONE POSITION TO THE RIGHT«, t00=0x0052, t01=0x0182}
0x81ca…81d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0032}
0x81d4…8210               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0053, t01=0x003c}
0x8210…8218               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0078}
0x8218…822c               Head {h00=0x0010, h01=0x0050, text=»INSERT EQU *«, t00=0x0053, t01=0x0080}
0x822c…8254               Head {h00=0x0024, h01=0x0050, text=» IM MODE,TCABAS SET INSERT MODE «, t00=0x0053, t01=0x0094}
0x8254…8286               Head {h00=0x002e, h01=0x0050, text=» CF A14,LIOLON TURN ON "INSERT MODE" LAMP «, t00=0x0053, t01=0x00bc}
0x8286…8296               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0053, t01=0x00ee}
0x8296…829e               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x00fe}
0x829e…82a6               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0106}
0x82a6…82c0               Head {h00=0x0016, h01=0x0050, text=»INS:10 LDR A6,A7  «, t00=0x0053, t01=0x010e}
0x82c0…82d4               Head {h00=0x0010, h01=0x0050, text=» LDR A9,A4  «, t00=0x0053, t01=0x0128}
0x82d4…8300               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN??«, t00=0x0053, t01=0x013c}
0x8300…831c               Head {h00=0x0018, h01=0x0050, text=» RF(NE) INS:20 NO!! «, t00=0x0053, t01=0x0168}
0x831c…8334               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x0053, t01=0x0184}
0x8334…8346               Head {h00=0x000e, h01=0x0050, text=» RF INS:30«, t00=0x0054, t01=0x000c}
0x8346…834e               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x001e}
0x834e…8356               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x0026}
0x8356…838a               Head {h00=0x0030, h01=0x0050, text=»INS:20 CF A14,S:ATT SEARCH ATTRIBUTE FORWARD«, t00=0x0054, t01=0x002e}
0x838a…8392               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x0062}
0x8392…839a               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x006a}
0x839a…83be               Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 ATTRIBUTE FOUND ??«, t00=0x0054, t01=0x0072}
0x83be…83d8               Head {h00=0x0016, h01=0x0050, text=» RF(Z) INS:30 NO!!«, t00=0x0054, t01=0x0096}
0x83d8…83ea               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0054, t01=0x00b0}
0x83ea…83f2               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x00c2}
0x83f2…840e               Head {h00=0x0018, h01=0x0050, text=»INS:30 ADR A2,TCABAS«, t00=0x0054, t01=0x00ca}
0x840e…8448               Head {h00=0x0036, h01=0x0050, text=» ADK A2,BVDU ADD BUFFER DISPLACEMENT IN WORK-BLOCK«, t00=0x0054, t01=0x00e6}
0x8448…847a               Head {h00=0x002e, h01=0x0050, text=» CF A14,S:NULL SEARCH FIRST NULL CHARACTER«, t00=0x0054, t01=0x0120}
0x847a…84ac               Head {h00=0x002e, h01=0x0050, text=»INS:40 CWR A2,A6 ALL CHARACTERS SHIFTED ??«, t00=0x0054, t01=0x0152}
0x84ac…84c8               Head {h00=0x0018, h01=0x0050, text=» RF(E) INS:50 YES!! «, t00=0x0054, t01=0x0184}
0x84c8…84ea               Head {h00=0x001e, h01=0x0050, text=» LC A3,-1,A2 GET CHARACTER«, t00=0x0055, t01=0x0010}
0x84ea…850e               Head {h00=0x0020, h01=0x0050, text=» ORK A3,/80 SET MODIFIED BIT«, t00=0x0055, t01=0x0032}
0x850e…853c               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A2 SHIFT CHAR ONE POS TO RIGHT«, t00=0x0055, t01=0x0056}
0x853c…854e               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0055, t01=0x0084}
0x854e…8574               Head {h00=0x0022, h01=0x0050, text=» RB INS:40 GET NEXT CHARACTER «, t00=0x0055, t01=0x0096}
0x8574…857c               Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x00bc}
0x857c…8584               Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x00c4}
0x8584…85b0               Head {h00=0x0028, h01=0x0050, text=»INS:50 ORKL A9,/80 SET MODIFIED BIT «, t00=0x0055, t01=0x00cc}
0x85b0…85e2               Head {h00=0x002e, h01=0x0050, text=» SCR A9,A6 SAVE INPUT CHARACTER IN BUFFER «, t00=0x0055, t01=0x00f8}
0x85e2…8614               Head {h00=0x002e, h01=0x0050, text=» IM PCURS,TCABAS INCREMENT CURSOR POSITION«, t00=0x0055, t01=0x012a}
0x8614…8628               Head {h00=0x0010, h01=0x0050, text=»INS:60 EQU *«, t00=0x0055, t01=0x015c}
0x8628…8656               Head {h00=0x002a, h01=0x0050, text=» CF A14,DISPL DISPLAY MODIFIED FIELDS «, t00=0x0055, t01=0x0170}
0x8656…8682               Head {h00=0x0028, h01=0x0050, text=» LD A2,PCURS,TCABAS CURSOR POSITION «, t00=0x0056, t01=0x000e}
0x8682…8694               Head {h00=0x000e, h01=0x0050, text=» RB ANC252«, t00=0x0056, t01=0x003a}
0x8694…86a0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x004c}
0x86a0…86ae               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x0058}
0x86ae…86b6               Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0066}
0x86b6…86f8               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0056, t01=0x006e}
0x86f8…8702               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00b0}
0x8702…873a               Head {h00=0x0034, h01=0x0050, text=»*   SEARCH FIRST NULL CHARACTER AFTER CURSOR POS«, t00=0x0056, t01=0x00ba}
0x873a…8744               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00f2}
0x8744…8782               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0056, t01=0x00fc}
0x8782…878a               Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x013a}
0x878a…879e               Head {h00=0x0010, h01=0x0050, text=»S:NULL EQU *«, t00=0x0056, t01=0x0142}
0x879e…87b0               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0056, t01=0x0156}
0x87b0…87b8               Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0168}
0x87b8…87d0               Head {h00=0x0014, h01=0x0050, text=»S:NU10 CWR A1,A2«, t00=0x0056, t01=0x0170}
0x87d0…87e6               Head {h00=0x0012, h01=0x0050, text=» RF(E) S:NU30 «, t00=0x0056, t01=0x0188}
0x87e6…8806               Head {h00=0x001c, h01=0x0050, text=» LCR A3,A1 GET CHARACTER«, t00=0x0057, t01=0x000e}
0x8806…8830               Head {h00=0x0026, h01=0x0050, text=» ANK A3,/7F MASK AWAY MODIFIED BIT«, t00=0x0057, t01=0x002e}
0x8830…8854               Head {h00=0x0020, h01=0x0050, text=» CWK A3,NULL NULL CHARACTER «, t00=0x0057, t01=0x0058}
0x8854…8870               Head {h00=0x0018, h01=0x0050, text=» RF(E) S:NU20 YES!! «, t00=0x0057, t01=0x007c}
0x8870…8882               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0057, t01=0x0098}
0x8882…88b0               Head {h00=0x002a, h01=0x0050, text=» RB S:NU10 CHECK NEXT BUFFER CHARACTER«, t00=0x0057, t01=0x00aa}
0x88b0…88b8               Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x00d8}
0x88b8…88e6               Head {h00=0x002a, h01=0x0050, text=»S:NU20 LDR A2,A1 ADDRESS OF FIRST NULL«, t00=0x0057, t01=0x00e0}
0x88e6…88fc               Head {h00=0x0012, h01=0x0050, text=»S:NU30 RTN A14«, t00=0x0057, t01=0x010e}
0x88fc…890a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x0124}
0x890a…8914               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0132}
0x8914…8956               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0057, t01=0x013c}
0x8956…8960               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x017e}
0x8960…8970               Head {h00=0x000c, h01=0x0050, text=»* CANCEL«, t00=0x0057, t01=0x0188}
0x8970…897a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0008}
0x897a…89b8               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0058, t01=0x0012}
0x89b8…89e0               Head {h00=0x0024, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER «, t00=0x0058, t01=0x0050}
0x89e0…89ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0078}
0x89ea…8a2c               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0058, t01=0x0082}
0x8a2c…8a36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00c4}
0x8a36…8a4a               Head {h00=0x0010, h01=0x0050, text=»CANCEL EQU *«, t00=0x0058, t01=0x00ce}
0x8a4a…8a5c               Head {h00=0x000e, h01=0x0050, text=»PA2 EQU * «, t00=0x0058, t01=0x00e2}
0x8a5c…8a7a               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/2E CANCEL POS«, t00=0x0058, t01=0x00f4}
0x8a7a…8a8e               Head {h00=0x0010, h01=0x0050, text=»CAN100 EQU *«, t00=0x0058, t01=0x0112}
0x8a8e…8ab6               Head {h00=0x0024, h01=0x0050, text=» LC A2,TASCII,A2 GET ASCII CODE «, t00=0x0058, t01=0x0126}
0x8ab6…8aca               Head {h00=0x0010, h01=0x0050, text=»CAN200 EQU *«, t00=0x0058, t01=0x014e}
0x8aca…8afc               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x0058, t01=0x0162}
0x8afc…8b28 (89, 0, 400)  Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0059, t01=0x0004}
0x8b28…8b38               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0059, t01=0x0030}
0x8b38…8b42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0040}
0x8b42…8b4a               Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x004a}
0x8b4a…8b5c               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0059, t01=0x0052}
0x8b5c…8b64               Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x0064}
0x8b64…8b6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x006c}
0x8b6e…8b78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0076}
0x8b78…8bc2               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM ATTENTION KEY IS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x0059, t01=0x0080}
0x8bc2…8c00               Head {h00=0x003a, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PA1.CANCEL OR PA3 «, t00=0x0059, t01=0x00ca}
0x8c00…8c0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0108}
0x8c0a…8c14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0112}
0x8c14…8c26               Head {h00=0x000e, h01=0x0050, text=»PAEX EQU *«, t00=0x0059, t01=0x011c}
0x8c26…8c3c               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PAEXA«, t00=0x0059, t01=0x012e}
0x8c3c…8c58               Head {h00=0x0018, h01=0x0050, text=» ST A1,RDMORE,TCABAS«, t00=0x0059, t01=0x0144}
0x8c58…8c68               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0059, t01=0x0160}
0x8c68…8c7c               Head {h00=0x0010, h01=0x0050, text=»PAEXA EQU * «, t00=0x0059, t01=0x0170}
0x8c7c…8c96               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x0059, t01=0x0184}
0x8c96…8cba               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CHECK IF NUM.1-3«, t00=0x005a, t01=0x000e}
0x8cba…8cdc               Head {h00=0x001e, h01=0x0050, text=» RF(L) PFERR ILLEGAL CHAR.«, t00=0x005a, t01=0x0032}
0x8cdc…8d00               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/2 CHECK IF NUM.1-3 «, t00=0x005a, t01=0x0054}
0x8d00…8d18               Head {h00=0x0014, h01=0x0050, text=» IFF PA49=1  DK3«, t00=0x005a, t01=0x0078}
0x8d18…8d3a               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL CHAR.«, t00=0x005a, t01=0x0090}
0x8d3a…8d4c               Head {h00=0x000e, h01=0x0050, text=» XIF   DK3«, t00=0x005a, t01=0x00b2}
0x8d4c…8d64               Head {h00=0x0014, h01=0x0050, text=» IFT PA49=1  DK3«, t00=0x005a, t01=0x00c4}
0x8d64…8d84               Head {h00=0x001c, h01=0x0050, text=» RF(G) PAEXB PA 4-9? DK3«, t00=0x005a, t01=0x00dc}
0x8d84…8d96               Head {h00=0x000e, h01=0x0050, text=» XIF   DK3«, t00=0x005a, t01=0x00fc}
0x8d96…8da8               Head {h00=0x000e, h01=0x0050, text=» RF(Z) PA3«, t00=0x005a, t01=0x010e}
0x8da8…8dba               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x005a, t01=0x0120}
0x8dba…8dcc               Head {h00=0x000e, h01=0x0050, text=» RB(Z) PA2«, t00=0x005a, t01=0x0132}
0x8dcc…8ddc               Head {h00=0x000c, h01=0x0050, text=» RF PA1 «, t00=0x005a, t01=0x0144}
0x8ddc…8e06               Head {h00=0x0026, h01=0x0050, text=» RTN A14 RETURN TO MAIN READ LOOP «, t00=0x005a, t01=0x0154}
0x8e06…8e0e               Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x017e}
0x8e0e…8e1a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0186}
0x8e1a…8e28 (91, 0, 400)  Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005b, t01=0x0004}
0x8e28…8e30               Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x0012}
0x8e30…8e3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x001a}
0x8e3a…8e64               Head {h00=0x0026, h01=0x0050, text=»*    PA1    PROGRAM ATTENTION KEY «, t00=0x005b, t01=0x0024}
0x8e64…8e6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x004e}
0x8e6e…8e78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0058}
0x8e78…8e8a               Head {h00=0x000e, h01=0x0050, text=»PA1 EQU * «, t00=0x005b, t01=0x0062}
0x8e8a…8ea6               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2C PA1 POS «, t00=0x005b, t01=0x0074}
0x8ea6…8eb8               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x005b, t01=0x0090}
0x8eb8…8ec2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00a2}
0x8ec2…8ecc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00ac}
0x8ecc…8ef4               Head {h00=0x0024, h01=0x0050, text=»*    PA3   PROGRAM ATTENTION KEY«, t00=0x005b, t01=0x00b6}
0x8ef4…8efe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00de}
0x8efe…8f08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00e8}
0x8f08…8f1a               Head {h00=0x000e, h01=0x0050, text=»PA3 EQU * «, t00=0x005b, t01=0x00f2}
0x8f1a…8f36               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2B PA3 POS «, t00=0x005b, t01=0x0104}
0x8f36…8f48               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x005b, t01=0x0120}
0x8f48…8f52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0132}
0x8f52…8f72               Head {h00=0x001c, h01=0x0050, text=»* PA4 - PA10 (ALFASKOP) «, t00=0x005b, t01=0x013c}
0x8f72…8f8a               Head {h00=0x0014, h01=0x0050, text=» IFT PA49=1  DK3«, t00=0x005b, t01=0x015c}
0x8f8a…8fa2               Head {h00=0x0014, h01=0x0050, text=»PAEXB EQU *  DK3«, t00=0x005b, t01=0x0174}
0x8fa2…8fba               Head {h00=0x0014, h01=0x0050, text=» SUK A2,/6  DK3 «, t00=0x005b, t01=0x018c}
0x8fba…8fd4               Head {h00=0x0016, h01=0x0050, text=» RF(G) PFERR  DK3 «, t00=0x005c, t01=0x0014}
0x8fd4…8ff6               Head {h00=0x001e, h01=0x0050, text=» ADK A2,/69 SET PA4-9 DK3 «, t00=0x005c, t01=0x002e}
0x8ff6…900e               Head {h00=0x0014, h01=0x0050, text=» RB CAN200  DK3 «, t00=0x005c, t01=0x0050}
0x900e…9020               Head {h00=0x000e, h01=0x0050, text=» XIF   DK3«, t00=0x005c, t01=0x0068}
0x9020…902a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x007a}
0x902a…903e               Head {h00=0x0010, h01=0x0050, text=»PA410 EQU * «, t00=0x005c, t01=0x0084}
0x903e…9052               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x005c, t01=0x0098}
0x9052…9064               Head {h00=0x000e, h01=0x0050, text=» RB CAN200«, t00=0x005c, t01=0x00ac}
0x9064…9072               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005c, t01=0x00be}
0x9072…907c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00cc}
0x907c…90bc               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x005c, t01=0x00d6}
0x90bc…90c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0116}
0x90c6…90d6               Head {h00=0x000c, h01=0x0050, text=»* ENTER «, t00=0x005c, t01=0x0120}
0x90d6…90e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0130}
0x90e0…911c               Head {h00=0x0038, h01=0x0050, text=»* PROGRAM FUNCTION KEY WHICH CAUSES AN I/O OPERATION«, t00=0x005c, t01=0x013a}
0x911c…915c               Head {h00=0x003c, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER FOLLOWED BY AN SBA ORDER«, t00=0x005c, t01=0x0176}
0x915c…9198               Head {h00=0x0038, h01=0x0050, text=»* ATTRIBUTE ADDRESS AND TEXT FOR EACH MODIFIED FIELD«, t00=0x005d, t01=0x0026}
0x9198…91b6               Head {h00=0x001a, h01=0x0050, text=»* NULLS ARE SUPRESSED «, t00=0x005d, t01=0x0062}
0x91b6…91c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0080}
0x91c0…9202               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x005d, t01=0x008a}
0x9202…920c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00cc}
0x920c…9220               Head {h00=0x0010, h01=0x0050, text=»ENTER EQU * «, t00=0x005d, t01=0x00d6}
0x9220…923e               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/3D ENTER POS «, t00=0x005d, t01=0x00ea}
0x923e…9252               Head {h00=0x0010, h01=0x0050, text=»ENT100 EQU *«, t00=0x005d, t01=0x0108}
0x9252…927c               Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x005d, t01=0x011c}
0x927c…92ae               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x005d, t01=0x0146}
0x92ae…92e0               Head {h00=0x002e, h01=0x0050, text=» CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT «, t00=0x005d, t01=0x0178}
0x92e0…92f4               Head {h00=0x0010, h01=0x0050, text=»ENT200 EQU *«, t00=0x005e, t01=0x001a}
0x92f4…9304               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005e, t01=0x002e}
0x9304…930e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x003e}
0x930e…9316               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x0048}
0x9316…9328               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x005e, t01=0x0050}
0x9328…9330               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x0062}
0x9330…933a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x006a}
0x933a…9344               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0074}
0x9344…938e               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM FUNCTION KEY IOS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x005e, t01=0x007e}
0x938e…93c2               Head {h00=0x0030, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PF1-PF12«, t00=0x005e, t01=0x00c8}
0x93c2…93cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00fc}
0x93cc…93d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0106}
0x93d6…93e8               Head {h00=0x000e, h01=0x0050, text=»PFEX EQU *«, t00=0x005e, t01=0x0110}
0x93e8…93fe               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PFEXA«, t00=0x005e, t01=0x0122}
0x93fe…9410               Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x005e, t01=0x0138}
0x9410…9424               Head {h00=0x0010, h01=0x0050, text=»PFEXA EQU * «, t00=0x005e, t01=0x014a}
0x9424…943e               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005e, t01=0x015e}
0x943e…945e               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL CHAR ?«, t00=0x005e, t01=0x0178}
0x945e…948e               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING «, t00=0x005f, t01=0x0008}
0x948e…94b8               Head {h00=0x0026, h01=0x0050, text=» RF(Z) PF0 FIRST NUM. 0 GO TO PF0 «, t00=0x005f, t01=0x0038}
0x94b8…94da               Head {h00=0x001e, h01=0x0050, text=» SUK A2,/1 FIRST NUM. 1 ? «, t00=0x005f, t01=0x0062}
0x94da…94fc               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL NUM. «, t00=0x005f, t01=0x0084}
0x94fc…9512               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PF1A «, t00=0x005f, t01=0x00a6}
0x9512…9524               Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x005f, t01=0x00bc}
0x9524…9536               Head {h00=0x000e, h01=0x0050, text=»PF1A EQU *«, t00=0x005f, t01=0x00ce}
0x9536…9550               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005f, t01=0x00e0}
0x9550…9570               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL NUM.? «, t00=0x005f, t01=0x00fa}
0x9570…95a0               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005f, t01=0x011a}
0x95a0…95be               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/2 LEGAL NUM ?«, t00=0x005f, t01=0x014a}
0x95be…95ee               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005f, t01=0x0168}
0x95ee…960e               Head {h00=0x001c, h01=0x0050, text=» ADK A2,/3C PF10-12 POS «, t00=0x0060, t01=0x0008}
0x960e…9620               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x0060, t01=0x0028}
0x9620…9628               Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x003a}
0x9628…963a               Head {h00=0x000e, h01=0x0050, text=»PF0 EQU * «, t00=0x0060, t01=0x0042}
0x963a…9650               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PF0A «, t00=0x0060, t01=0x0054}
0x9650…9664               Head {h00=0x0010, h01=0x0050, text=»PFNXT EQU * «, t00=0x0060, t01=0x006a}
0x9664…9680               Head {h00=0x0018, h01=0x0050, text=» ST A1,RDMORE,TCABAS«, t00=0x0060, t01=0x007e}
0x9680…9690               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x009a}
0x9690…96a2               Head {h00=0x000e, h01=0x0050, text=»PF0A EQU *«, t00=0x0060, t01=0x00aa}
0x96a2…96bc               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x0060, t01=0x00bc}
0x96bc…96dc               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/31 LEGAL NUM ? «, t00=0x0060, t01=0x00d6}
0x96dc…970c               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x0060, t01=0x00f6}
0x970c…972a               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/8 LEGAL NUM ?«, t00=0x0060, t01=0x0126}
0x972a…975a               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x0060, t01=0x0144}
0x975a…9778               Head {h00=0x001a, h01=0x0050, text=» ADK A2,/39 PF1-9 POS «, t00=0x0060, t01=0x0174}
0x9778…978a (97, 0, 398)  Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x0061, t01=0x0004}
0x978a…9796               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0016}
0x9796…97aa               Head {h00=0x0010, h01=0x0050, text=»PFERR EQU * «, t00=0x0061, t01=0x0022}
0x97aa…97d8               Head {h00=0x002a, h01=0x0050, text=» CF A14,ERROR GO TO ERR-HANDLING RUTIN«, t00=0x0061, t01=0x0036}
0x97d8…9800               Head {h00=0x0024, h01=0x0050, text=» RTN A14 GO TO MAIN READ MODULE «, t00=0x0061, t01=0x0064}
0x9800…9808               Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x008c}
0x9808…9810               Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0094}
0x9810…9820               Head {h00=0x000c, h01=0x0050, text=»PF EQU *«, t00=0x0061, t01=0x009c}
0x9820…9834               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/5C «, t00=0x0061, t01=0x00ac}
0x9834…9846               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x0061, t01=0x00c0}
0x9846…985a               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0061, t01=0x00d2}
0x985a…9868               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x00e6}
0x9868…98ac               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0061, t01=0x00f4}
0x98ac…98b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0138}
0x98b6…98c6               Head {h00=0x000c, h01=0x0050, text=»* OFLINE«, t00=0x0061, t01=0x0142}
0x98c6…9906               Head {h00=0x003c, h01=0x0050, text=»*            THE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND «, t00=0x0061, t01=0x0152}
0x9906…9942 (98, 0, 398)  Head {h00=0x0038, h01=0x0050, text=»*           A BRANCH IS MADE BACK TO CREDIT PROGRAM «, t00=0x0062, t01=0x0004}
0x9942…994c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0040}
0x994c…9992               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0062, t01=0x004a}
0x9992…99a6               Head {h00=0x0010, h01=0x0050, text=»OFLINE EQU *«, t00=0x0062, t01=0x0090}
0x99a6…99bc               Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0062, t01=0x00a4}
0x99bc…99d0               Head {h00=0x0010, h01=0x0050, text=»OFLI05 EQU *«, t00=0x0062, t01=0x00ba}
0x99d0…99e6               Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0062, t01=0x00ce}
0x99e6…99fa               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0062, t01=0x00e4}
0x99fa…9a14               Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x0062, t01=0x00f8}
0x9a14…9a26               Head {h00=0x000e, h01=0x0050, text=» XRK A7,1 «, t00=0x0062, t01=0x0112}
0x9a26…9a40               Head {h00=0x0016, h01=0x0050, text=» ST A7,MAIN,TCABAS«, t00=0x0062, t01=0x0124}
0x9a40…9a74               Head {h00=0x0030, h01=0x0050, text=» CF A14,DCABOR ABORT REQUEST NOT CURRENT MF «, t00=0x0062, t01=0x013e}
0x9a74…9a80               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x0172}
0x9a80…9a94               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0062, t01=0x017e}
0x9a94…9ace (99, 0, 400)  Head {h00=0x0036, h01=0x0050, text=» LDK A1,0 DV ADDRESS ::= 0MESSAGES TO VDU IGNORED «, t00=0x0063, t01=0x0004}
0x9ace…9aec               Head {h00=0x001a, h01=0x0050, text=» LDKL A8,ECBDC MF # 1 «, t00=0x0063, t01=0x003e}
0x9aec…9b16               Head {h00=0x0026, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETERS «, t00=0x0063, t01=0x005c}
0x9b16…9b2a               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0063, t01=0x0086}
0x9b2a…9b48               Head {h00=0x001a, h01=0x0050, text=» LDKL A8,ECBDC2 MF # 2«, t00=0x0063, t01=0x009a}
0x9b48…9b72               Head {h00=0x0026, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETERS «, t00=0x0063, t01=0x00b8}
0x9b72…9b7e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x00e2}
0x9b7e…9b92               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0063, t01=0x00ee}
0x9b92…9ba8               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1OF«, t00=0x0063, t01=0x0102}
0x9ba8…9bbe               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2OF«, t00=0x0063, t01=0x0118}
0x9bbe…9bd4               Head {h00=0x0012, h01=0x0050, text=» CF A14,LSAVOF«, t00=0x0063, t01=0x012e}
0x9bd4…9c00               Head {h00=0x0028, h01=0x0050, text=» CF A14,LIOLON TURN ON OFFLINE LAMP «, t00=0x0063, t01=0x0144}
0x9c00…9c2a               Head {h00=0x0026, h01=0x0050, text=» IM OFFFLG,TCABAS SET OFFLINE FLAG«, t00=0x0063, t01=0x0170}
0x9c2a…9c52               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 SKIP ONE STACK LEVEL«, t00=0x0064, t01=0x000a}
0x9c52…9c80               Head {h00=0x002a, h01=0x0050, text=» LD A13,2,A14 RELOAD REGISTERS A12-A13«, t00=0x0064, t01=0x0032}
0x9c80…9c96               Head {h00=0x0012, h01=0x0050, text=» LD A12,4,A14 «, t00=0x0064, t01=0x0060}
0x9c96…9cbe               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0064, t01=0x0076}
0x9cbe…9cec               Head {h00=0x002a, h01=0x0050, text=» ABL I:RT1 RETURN TO "OFFLINE" PROGRAM«, t00=0x0064, t01=0x009e}
0x9cec…9cf4               Head {h00=0x0004, h01=0x0050, t00=0x0064, t01=0x00cc}
0x9cf4…9d00               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x00d4}
0x9d00…9d14               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0064, t01=0x00e0}
0x9d14…9d22               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x00f4}
0x9d22…9d66               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0064, t01=0x0102}
0x9d66…9d70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0146}
0x9d70…9d8a               Head {h00=0x0016, h01=0x0050, text=»* MAINFRAME CHANGE«, t00=0x0064, t01=0x0150}
0x9d8a…9dd6               Head {h00=0x0048, h01=0x0050, text=»*   THE SWITCH 'MAIN' IS CHANGED, AND THE APPROPRIATE 'SYSTEM' LAMP «, t00=0x0064, t01=0x016a}
0x9dd6…9df4               Head {h00=0x001a, h01=0x0050, text=»*       IS TTURNED ON «, t00=0x0065, t01=0x0026}
0x9df4…9dfe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0044}
0x9dfe…9e4c               Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0065, t01=0x004e}
0x9e4c…9e56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x009c}
0x9e56…9e6a               Head {h00=0x0010, h01=0x0050, text=»MFCHGE EQU *«, t00=0x0065, t01=0x00a6}
0x9e6a…9e80               Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0065, t01=0x00ba}
0x9e80…9e94               Head {h00=0x0010, h01=0x0050, text=»MFCH05 EQU *«, t00=0x0065, t01=0x00d0}
0x9e94…9eaa               Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0065, t01=0x00e4}
0x9eaa…9ec0               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1OF«, t00=0x0065, t01=0x00fa}
0x9ec0…9ed6               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2OF«, t00=0x0065, t01=0x0110}
0x9ed6…9eec               Head {h00=0x0012, h01=0x0050, text=» CF A14,LSAVOF«, t00=0x0065, t01=0x0126}
0x9eec…9f06               Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x0065, t01=0x013c}
0x9f06…9f18               Head {h00=0x000e, h01=0x0050, text=» XRK A1,1 «, t00=0x0065, t01=0x0156}
0x9f18…9f2e               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MFCH10«, t00=0x0065, t01=0x0168}
0x9f2e…9f44               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1ON«, t00=0x0065, t01=0x017e}
0x9f44…9f56 (102, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF MFCH90«, t00=0x0066, t01=0x0004}
0x9f56…9f6a               Head {h00=0x0010, h01=0x0050, text=»MFCH10 EQU *«, t00=0x0066, t01=0x0016}
0x9f6a…9f80               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2ON«, t00=0x0066, t01=0x002a}
0x9f80…9f94               Head {h00=0x0010, h01=0x0050, text=»MFCH90 EQU *«, t00=0x0066, t01=0x0040}
0x9f94…9fae               Head {h00=0x0016, h01=0x0050, text=» ST A1,MAIN,TCABAS«, t00=0x0066, t01=0x0054}
0x9fae…9fbe               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0066, t01=0x006e}
0x9fbe…9fca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0066, t01=0x007e}
0x9fca…9fd8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x008a}
0x9fd8…9fe2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0098}
0x9fe2…a022               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0066, t01=0x00a2}
0xa022…a02c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00e2}
0xa02c…a03c               Head {h00=0x000c, h01=0x0050, text=»* CLEAR «, t00=0x0066, t01=0x00ec}
0xa03c…a046               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00fc}
0xa046…a084               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0066, t01=0x0106}
0xa084…a0c0               Head {h00=0x0038, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER. THE ENTIRE DISPLAY «, t00=0x0066, t01=0x0144}
0xa0c0…a0fe               Head {h00=0x003a, h01=0x0050, text=»* BUFFER IS CLEARED TO NULLS AND CURSOR IS LOCATED IN «, t00=0x0066, t01=0x0180}
0xa0fe…a110               Head {h00=0x000e, h01=0x0050, text=»* HOME POS«, t00=0x0067, t01=0x002e}
0xa110…a11a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0040}
0xa11a…a15a               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0067, t01=0x004a}
0xa15a…a164               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x008a}
0xa164…a178               Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x0067, t01=0x0094}
0xa178…a19c               Head {h00=0x0020, h01=0x0050, text=» LDK A2,/2D POS FOR 'CLEAR' «, t00=0x0067, t01=0x00a8}
0xa19c…a1b4               Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x0067, t01=0x00cc}
0xa1b4…a1e6               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x0067, t01=0x00e4}
0xa1e6…a212               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0067, t01=0x0116}
0xa212…a23c               Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x0067, t01=0x0142}
0xa23c…a24c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0067, t01=0x016c}
0xa24c…a25a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0067, t01=0x017c}
0xa25a…a264               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x018a}
0xa264…a2a8 (104, 0, 400) Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0068, t01=0x0004}
0xa2a8…a2b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0048}
0xa2b2…a2c2               Head {h00=0x000c, h01=0x0050, text=»* EREOF «, t00=0x0068, t01=0x0052}
0xa2c2…a2cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0062}
0xa2cc…a2ec               Head {h00=0x001c, h01=0x0050, text=»* ERASE TO END OF FIELD «, t00=0x0068, t01=0x006c}
0xa2ec…a2f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x008c}
0xa2f6…a33a               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0068, t01=0x0096}
0xa33a…a344               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00da}
0xa344…a358               Head {h00=0x0010, h01=0x0050, text=»EREOF EQU * «, t00=0x0068, t01=0x00e4}
0xa358…a36a               Head {h00=0x000e, h01=0x0050, text=» LDK A6,1 «, t00=0x0068, t01=0x00f8}
0xa36a…a394               Head {h00=0x0026, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE«, t00=0x0068, t01=0x010a}
0xa394…a3b4               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/10 UNPROTECTED?«, t00=0x0068, t01=0x0134}
0xa3b4…a3ce               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE100 YES «, t00=0x0068, t01=0x0154}
0xa3ce…a3e0               Head {h00=0x000e, h01=0x0050, text=» ABL ERROR«, t00=0x0068, t01=0x016e}
0xa3e0…a402               Head {h00=0x001e, h01=0x0050, text=»ERE100 LD A2,PCURS,TCABAS «, t00=0x0068, t01=0x0180}
0xa402…a40a               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x0012}
0xa40a…a436               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0069, t01=0x001a}
0xa436…a43e               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x0046}
0xa43e…a474               Head {h00=0x0032, h01=0x0050, text=» CW A2,CURATT,TCABAS STANDING ON ATTRIBUTE ?? «, t00=0x0069, t01=0x004e}
0xa474…a4a2               Head {h00=0x002a, h01=0x0050, text=» ABL(E) ERROR YES!! TURN ON ERROR LAMP«, t00=0x0069, t01=0x0084}
0xa4a2…a4aa               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x00b2}
0xa4aa…a4d6               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0069, t01=0x00ba}
0xa4d6…a4de               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x00e6}
0xa4de…a50a               Head {h00=0x0028, h01=0x0050, text=»ERE150 CF A14,GBUFFC GET BUFF. CHAR «, t00=0x0069, t01=0x00ee}
0xa50a…a52c               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR«, t00=0x0069, t01=0x011a}
0xa52c…a544               Head {h00=0x0014, h01=0x0050, text=» RF(G) ERE200 NO«, t00=0x0069, t01=0x013c}
0xa544…a55c               Head {h00=0x0014, h01=0x0050, text=»ERE160 LDR A1,A2«, t00=0x0069, t01=0x0154}
0xa55c…a578               Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0069, t01=0x016c}
0xa578…a58c               Head {h00=0x0010, h01=0x0050, text=»ERE170 EQU *«, t00=0x0069, t01=0x0188}
0xa58c…a5a2               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x006a, t01=0x000c}
0xa5a2…a5b8               Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x006a, t01=0x0022}
0xa5b8…a5ca               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x006a, t01=0x0038}
0xa5ca…a5fe               Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE AND REPLASE WITH NULLS «, t00=0x006a, t01=0x004a}
0xa5fe…a62a               Head {h00=0x0028, h01=0x0050, text=» CF A14,DISPL DISPLAY ERASED SCREEN «, t00=0x006a, t01=0x007e}
0xa62a…a634               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00aa}
0xa634…a660               Head {h00=0x0028, h01=0x0050, text=»*   SET MDT BIT IF FORMATTED SCREEN «, t00=0x006a, t01=0x00b4}
0xa660…a66a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00e0}
0xa66a…a672               Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x00ea}
0xa672…a68e               Head {h00=0x0018, h01=0x0050, text=» LD A2,CURATT,TCABAS«, t00=0x006a, t01=0x00f2}
0xa68e…a6a6               Head {h00=0x0014, h01=0x0050, text=» CWK A2,LBVDU+1 «, t00=0x006a, t01=0x010e}
0xa6a6…a6ce               Head {h00=0x0024, h01=0x0050, text=» RF(E) ERE180 UNFORMATTED SCREEN«, t00=0x006a, t01=0x0126}
0xa6ce…a6d6               Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x014e}
0xa6d6…a6ea               Head {h00=0x0010, h01=0x0050, text=» ADK A2,BVDU«, t00=0x006a, t01=0x0156}
0xa6ea…a71c               Head {h00=0x002e, h01=0x0050, text=» ADR A2,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x006a, t01=0x016a}
0xa71c…a73c               Head {h00=0x001c, h01=0x0050, text=» LCR A1,A2 GET ATTRIBUTE«, t00=0x006b, t01=0x000c}
0xa73c…a75a               Head {h00=0x001a, h01=0x0050, text=» ORK A1,1 SET MDT BIT «, t00=0x006b, t01=0x002c}
0xa75a…a76c               Head {h00=0x000e, h01=0x0050, text=» SCR A1,A2«, t00=0x006b, t01=0x004a}
0xa76c…a780               Head {h00=0x0010, h01=0x0050, text=»ERE180 EQU *«, t00=0x006b, t01=0x005c}
0xa780…a790               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006b, t01=0x0070}
0xa790…a7bc               Head {h00=0x0028, h01=0x0050, text=»ERE200 CWK A2,LBVDU-1 END OF BUFFER?«, t00=0x006b, t01=0x0080}
0xa7bc…a7d6               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE300 YES «, t00=0x006b, t01=0x00ac}
0xa7d6…a7e8               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x006b, t01=0x00c6}
0xa7e8…a800               Head {h00=0x0014, h01=0x0050, text=» RB ERE150 NEXT «, t00=0x006b, t01=0x00d8}
0xa800…a82e               Head {h00=0x002a, h01=0x0050, text=»ERE300 SUK A6,1 WHOLW BUFF CONTROLED? «, t00=0x006b, t01=0x00f0}
0xa82e…a844               Head {h00=0x0012, h01=0x0050, text=» RB(N) ERE160 «, t00=0x006b, t01=0x011e}
0xa844…a862               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND.«, t00=0x006b, t01=0x0134}
0xa862…a874               Head {h00=0x000e, h01=0x0050, text=» RB ERE150«, t00=0x006b, t01=0x0152}
0xa874…a882               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006b, t01=0x0164}
0xa882…a88c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0172}
0xa88c…a8cc               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x006b, t01=0x017c}
0xa8cc…a8d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x002c}
0xa8d6…a8e6               Head {h00=0x000c, h01=0x0050, text=»* ERINPT«, t00=0x006c, t01=0x0036}
0xa8e6…a8f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0046}
0xa8f0…a92e               Head {h00=0x003a, h01=0x0050, text=»* CLEARS ALL UNPROTECTED CHARACTER LOCATIONS TO NULLS «, t00=0x006c, t01=0x0050}
0xa92e…a96c               Head {h00=0x003a, h01=0x0050, text=»* AND REPOSITIONS THE CURSOR TO THE FIRST UNPROTECTED «, t00=0x006c, t01=0x008e}
0xa96c…a992               Head {h00=0x0022, h01=0x0050, text=»* CHAR LOCATION ON THE SCREEN «, t00=0x006c, t01=0x00cc}
0xa992…a99c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00f2}
0xa99c…a9dc               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x006c, t01=0x00fc}
0xa9dc…a9e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x013c}
0xa9e6…a9fa               Head {h00=0x0010, h01=0x0050, text=»ERINPT EQU *«, t00=0x006c, t01=0x0146}
0xa9fa…aa26               Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x006c, t01=0x015a}
0xaa26…aa3c               Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x006c, t01=0x0186}
0xaa3c…aa58               Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x006d, t01=0x000c}
0xaa58…aa6e               Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x006d, t01=0x0028}
0xaa6e…aab0               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006d, t01=0x003e}
0xaab0…aac2               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006d, t01=0x0080}
0xaac2…aaea               Head {h00=0x0024, h01=0x0050, text=» RF(Z) ERI:10 NO ATTRIBUTE FOUND«, t00=0x006d, t01=0x0092}
0xaaea…ab1e               Head {h00=0x0030, h01=0x0050, text=» RF(N) ERI:5 ATTRIBUTE NOT IN LAST POSITION «, t00=0x006d, t01=0x00ba}
0xab1e…ab4c               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,-1 ATTRIBUTE IN LAST POSITION«, t00=0x006d, t01=0x00ee}
0xab4c…ab60               Head {h00=0x0010, h01=0x0050, text=»ERI:5 EQU * «, t00=0x006d, t01=0x011c}
0xab60…aba2               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006d, t01=0x0130}
0xaba2…abb4               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x006d, t01=0x0172}
0xabb4…abbc               Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x0184}
0xabbc…abd0               Head {h00=0x0010, h01=0x0050, text=»ERI:10 EQU *«, t00=0x006d, t01=0x018c}
0xabd0…abec               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x006e, t01=0x0010}
0xabec…abfc               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006e, t01=0x002c}
0xabfc…ac0a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x003c}
0xac0a…ac14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x004a}
0xac14…ac58               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006e, t01=0x0054}
0xac58…ac62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0098}
0xac62…ac72               Head {h00=0x000c, h01=0x0050, text=»* ERROR «, t00=0x006e, t01=0x00a2}
0xac72…ac7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00b2}
0xac7c…acae               Head {h00=0x002e, h01=0x0050, text=»* THE MODULE TAKES CARE OF UNALLOWED KEYS «, t00=0x006e, t01=0x00bc}
0xacae…acb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00ee}
0xacb8…acfc               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x006e, t01=0x00f8}
0xacfc…ad06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x013c}
0xad06…ad1a               Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x006e, t01=0x0146}
0xad1a…ad46               Head {h00=0x0028, h01=0x0050, text=» CF A14,LERRON TURN ON 'ERROR' LAMP «, t00=0x006e, t01=0x015a}
0xad46…ad62               Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x006e, t01=0x0186}
0xad62…ad9a               Head {h00=0x0034, h01=0x0050, text=» ORK A5,4 BIT 13:=1,ERROR HANDLING.RESET ALLOWED«, t00=0x006f, t01=0x0012}
0xad9a…adb6               Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x006f, t01=0x004a}
0xadb6…adbe               Head {h00=0x0004, h01=0x0050, t00=0x006f, t01=0x0066}
0xadbe…adc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x006e}
0xadc8…ade8               Head {h00=0x001c, h01=0x0050, text=»*   TURN ON SOUND ALARM «, t00=0x006f, t01=0x0078}
0xade8…adf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0098}
0xadf2…adfa               Head {h00=0x0004, h01=0x0050, t00=0x006f, t01=0x00a2}
0xadfa…ae12               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x006f, t01=0x00aa}
0xae12…ae38               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS VDU-ECB ADDRESS«, t00=0x006f, t01=0x00c2}
0xae38…ae5e               Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBBA,A8 BUFFER ADDRESS«, t00=0x006f, t01=0x00e8}
0xae5e…ae86               Head {h00=0x0024, h01=0x0050, text=» LDK A7,X'2B' CONTROL CHARACTER «, t00=0x006f, t01=0x010e}
0xae86…ae9a               Head {h00=0x0010, h01=0x0050, text=» SC A7,1,A2 «, t00=0x006f, t01=0x0136}
0xae9a…aebe               Head {h00=0x0020, h01=0x0050, text=» LDK A7,X'07' BELL CHARACTER«, t00=0x006f, t01=0x014a}
0xaebe…aed2               Head {h00=0x0010, h01=0x0050, text=» SC A7,2,A2 «, t00=0x006f, t01=0x016e}
0xaed2…aef4               Head {h00=0x001e, h01=0x0050, text=» LDK A7,3 REQUESTED LENGTH«, t00=0x006f, t01=0x0182}
0xaef4…af0c               Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0070, t01=0x0014}
0xaf0c…af2e               Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' SOUND ALARM «, t00=0x0070, t01=0x002c}
0xaf2e…af3a               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0070, t01=0x004e}
0xaf3a…af4a               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0070, t01=0x005a}
0xaf4a…af52               Head {h00=0x0004, h01=0x0050, t00=0x0070, t01=0x006a}
0xaf52…af62               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0070, t01=0x0072}
0xaf62…af78               Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0070, t01=0x0082}
0xaf78…af86               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x0098}
0xaf86…afd0               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0070, t01=0x00a6}
0xafd0…afda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00f0}
0xafda…b006               Head {h00=0x0028, h01=0x0050, text=»*   KEY LOCK STATUS IS SET IN 'KEYS'«, t00=0x0070, t01=0x00fa}
0xb006…b036               Head {h00=0x002c, h01=0x0050, text=»* ON ENTRY  A2 = KEY LOCK VALUE /70-/77 «, t00=0x0070, t01=0x0126}
0xb036…b040               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0156}
0xb040…b08a               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0070, t01=0x0160}
0xb08a…b094               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x001a}
0xb094…b0a6               Head {h00=0x000e, h01=0x0050, text=»KEYL EQU *«, t00=0x0071, t01=0x0024}
0xb0a6…b0d0               Head {h00=0x0026, h01=0x0050, text=» SUK A2,/78 GET NEG KEY LOCK VALUE«, t00=0x0071, t01=0x0036}
0xb0d0…b0f6               Head {h00=0x0022, h01=0x0050, text=» LD A3,KEYS,TCABAS OLD STATUS «, t00=0x0071, t01=0x0060}
0xb0f6…b10a               Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x0071, t01=0x0086}
0xb10a…b11e               Head {h00=0x0010, h01=0x0050, text=»KEYL10 EQU *«, t00=0x0071, t01=0x009a}
0xb11e…b130               Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x0071, t01=0x00ae}
0xb130…b150               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 1 = OFF,0 = ON«, t00=0x0071, t01=0x00c0}
0xb150…b166               Head {h00=0x0012, h01=0x0050, text=» RB(N) KEYL10 «, t00=0x0071, t01=0x00e0}
0xb166…b18a               Head {h00=0x0020, h01=0x0050, text=» ANR A3,A4 CHECK OLD KEY POS«, t00=0x0071, t01=0x00f6}
0xb18a…b1a8               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) KEYL20 WAS ON «, t00=0x0071, t01=0x011a}
0xb1a8…b1c2               Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 WAS OFF«, t00=0x0071, t01=0x0138}
0xb1c2…b1ec               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) KEYL99 NOW OFF, NO CHANGE «, t00=0x0071, t01=0x0152}
0xb1ec…b206               Head {h00=0x0016, h01=0x0050, text=» RF KEYL30 NOW ON «, t00=0x0071, t01=0x017c}
0xb206…b222               Head {h00=0x0018, h01=0x0050, text=»KEYL20 EQU * WAS ON «, t00=0x0072, t01=0x0008}
0xb222…b234               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0072, t01=0x0024}
0xb234…b25c               Head {h00=0x0024, h01=0x0050, text=» RF(Z) KEYL99 NOW ON, NO CHANGE «, t00=0x0072, t01=0x0036}
0xb25c…b278               Head {h00=0x0018, h01=0x0050, text=»KEYL30 EQU *  CHANGE«, t00=0x0072, t01=0x005e}
0xb278…b292               Head {h00=0x0016, h01=0x0050, text=» LD A3,KEYS,TCABAS«, t00=0x0072, t01=0x007a}
0xb292…b2b2               Head {h00=0x001c, h01=0x0050, text=» XRR A3,A4 CHANGE STATUS«, t00=0x0072, t01=0x0094}
0xb2b2…b2de               Head {h00=0x0028, h01=0x0050, text=» ST A3,KEYS,TCABAS STORE NEW STATUS «, t00=0x0072, t01=0x00b4}
0xb2de…b2e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00e0}
0xb2e8…b308               Head {h00=0x001c, h01=0x0050, text=»* KEYLOCK STATUS CHANGED«, t00=0x0072, t01=0x00ea}
0xb308…b356               Head {h00=0x004a, h01=0x0050, text=»*   A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON «, t00=0x0072, t01=0x010a}
0xb356…b384               Head {h00=0x002a, h01=0x0050, text=»*   A4 = KEYLOCK CHANGED, LAYOUT AS A3«, t00=0x0072, t01=0x0158}
0xb384…b3b0               Head {h00=0x0028, h01=0x0050, text=»*   A2 = 1, IF CHANGED TO OFF ELSE 0«, t00=0x0072, t01=0x0186}
0xb3b0…b3ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0022}
0xb3ba…b3e8               Head {h00=0x002a, h01=0x0050, text=»* INSERT USER ROUTINE BELOW THIS LINE «, t00=0x0073, t01=0x002c}
0xb3e8…b3f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x005a}
0xb3f2…b406               Head {h00=0x0010, h01=0x0050, text=»KEYL99 EQU *«, t00=0x0073, t01=0x0064}
0xb406…b416               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0073, t01=0x0078}
0xb416…b422               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0073, t01=0x0088}
0xb422…b430               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0073, t01=0x0094}
0xb430…b43a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00a2}
0xb43a…b47a               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0073, t01=0x00ac}
0xb47a…b484               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00ec}
0xb484…b498               Head {h00=0x0010, h01=0x0050, text=»* LAMPMODULE«, t00=0x0073, t01=0x00f6}
0xb498…b4a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x010a}
0xb4a2…b4ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0114}
0xb4ac…b4ec               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0073, t01=0x011e}
0xb4ec…b4f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x015e}
0xb4f6…b50a               Head {h00=0x0010, h01=0x0050, text=»LON EQU /B7 «, t00=0x0073, t01=0x0168}
0xb50a…b51e               Head {h00=0x0010, h01=0x0050, text=»LOF EQU /B8 «, t00=0x0073, t01=0x017c}
0xb51e…b534               Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0073, t01=0x0190}
0xb534…b548               Head {h00=0x0010, h01=0x0050, text=»LMF1 EQU /20«, t00=0x0074, t01=0x0016}
0xb548…b55c               Head {h00=0x0010, h01=0x0050, text=»LMF2 EQU /10«, t00=0x0074, t01=0x002a}
0xb55c…b574               Head {h00=0x0014, h01=0x0050, text=»LIOL EQU 1  DK2 «, t00=0x0074, t01=0x003e}
0xb574…b58c               Head {h00=0x0014, h01=0x0050, text=»LINH EQU 8  DK2 «, t00=0x0074, t01=0x0056}
0xb58c…b5a4               Head {h00=0x0014, h01=0x0050, text=»LERR EQU 4  DK2 «, t00=0x0074, t01=0x006e}
0xb5a4…b5be               Head {h00=0x0016, h01=0x0050, text=»LSAV EQU /10  DK2 «, t00=0x0074, t01=0x0086}
0xb5be…b5ca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0074, t01=0x00a0}
0xb5ca…b5e0               Head {h00=0x0012, h01=0x0050, text=» IFF KB6272=1 «, t00=0x0074, t01=0x00ac}
0xb5e0…b5f6               Head {h00=0x0012, h01=0x0050, text=»LMF1 EQU 0  =2«, t00=0x0074, t01=0x00c2}
0xb5f6…b60c               Head {h00=0x0012, h01=0x0050, text=»LMF2 EQU 0  =2«, t00=0x0074, t01=0x00d8}
0xb60c…b622               Head {h00=0x0012, h01=0x0050, text=»LIOL EQU 1  =2«, t00=0x0074, t01=0x00ee}
0xb622…b638               Head {h00=0x0012, h01=0x0050, text=»LINH EQU 2  =2«, t00=0x0074, t01=0x0104}
0xb638…b64e               Head {h00=0x0012, h01=0x0050, text=»LERR EQU 4  =2«, t00=0x0074, t01=0x011a}
0xb64e…b664               Head {h00=0x0012, h01=0x0050, text=»LSAV EQU 8  =2«, t00=0x0074, t01=0x0130}
0xb664…b670               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0074, t01=0x0146}
0xb670…b68a               Head {h00=0x0016, h01=0x0050, text=»LMF1ON LDK A3,LMF1«, t00=0x0074, t01=0x0152}
0xb68a…b69c               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0074, t01=0x016c}
0xb69c…b6b6               Head {h00=0x0016, h01=0x0050, text=»LMF1OF LDK A3,LMF1«, t00=0x0074, t01=0x017e}
0xb6b6…b6c8               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x0008}
0xb6c8…b6e2               Head {h00=0x0016, h01=0x0050, text=»LMF2ON LDK A3,LMF2«, t00=0x0075, t01=0x001a}
0xb6e2…b6f4               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x0034}
0xb6f4…b70e               Head {h00=0x0016, h01=0x0050, text=»LMF2OF LDK A3,LMF2«, t00=0x0075, t01=0x0046}
0xb70e…b720               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x0060}
0xb720…b73a               Head {h00=0x0016, h01=0x0050, text=»LIOLON LDK A3,LIOL«, t00=0x0075, t01=0x0072}
0xb73a…b74c               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x008c}
0xb74c…b766               Head {h00=0x0016, h01=0x0050, text=»LIOLOF LDK A3,LIOL«, t00=0x0075, t01=0x009e}
0xb766…b778               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x00b8}
0xb778…b792               Head {h00=0x0016, h01=0x0050, text=»LINHON LDK A3,LINH«, t00=0x0075, t01=0x00ca}
0xb792…b7a4               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x00e4}
0xb7a4…b7be               Head {h00=0x0016, h01=0x0050, text=»LINHOF LDK A3,LINH«, t00=0x0075, t01=0x00f6}
0xb7be…b7d0               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x0110}
0xb7d0…b7ea               Head {h00=0x0016, h01=0x0050, text=»LERRON LDK A3,LERR«, t00=0x0075, t01=0x0122}
0xb7ea…b7fc               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x013c}
0xb7fc…b816               Head {h00=0x0016, h01=0x0050, text=»LERROF LDK A3,LERR«, t00=0x0075, t01=0x014e}
0xb816…b828               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x0168}
0xb828…b842               Head {h00=0x0016, h01=0x0050, text=»LSAVON LDK A3,LSAV«, t00=0x0075, t01=0x017a}
0xb842…b854 (118, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0076, t01=0x0004}
0xb854…b86e               Head {h00=0x0016, h01=0x0050, text=»LSAVOF LDK A3,LSAV«, t00=0x0076, t01=0x0016}
0xb86e…b880               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0076, t01=0x0030}
0xb880…b88a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0042}
0xb88a…b8a4               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  DK2«, t00=0x0076, t01=0x004c}
0xb8a4…b8bc               Head {h00=0x0014, h01=0x0050, text=»LMPON LDK A7,LON«, t00=0x0076, t01=0x0066}
0xb8bc…b8ce               Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0076, t01=0x007e}
0xb8ce…b8e6               Head {h00=0x0014, h01=0x0050, text=»LMPOF LDK A7,LOF«, t00=0x0076, t01=0x0090}
0xb8e6…b8f8               Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0076, t01=0x00a8}
0xb8f8…b90a               Head {h00=0x000e, h01=0x0050, text=» XIF   DK2«, t00=0x0076, t01=0x00ba}
0xb90a…b92c               Head {h00=0x001e, h01=0x0050, text=» IFT KB6272+LMPVDU=1  DK5 «, t00=0x0076, t01=0x00cc}
0xb92c…b94a               Head {h00=0x001a, h01=0x0050, text=»LMPON LDK A7,LON  DK5 «, t00=0x0076, t01=0x00ee}
0xb94a…b960               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK5«, t00=0x0076, t01=0x010c}
0xb960…b97e               Head {h00=0x001a, h01=0x0050, text=»LMPOF LDK A7,LOF  DK5 «, t00=0x0076, t01=0x0122}
0xb97e…b994               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK5«, t00=0x0076, t01=0x0140}
0xb994…b9a6               Head {h00=0x000e, h01=0x0050, text=» XIF   DK5«, t00=0x0076, t01=0x0156}
0xb9a6…b9ca               Head {h00=0x0020, h01=0x0050, text=» IFT KB6272+LMPVDU=2  DK2+5 «, t00=0x0076, t01=0x0168}
0xb9ca…b9f2               Head {h00=0x0024, h01=0x0050, text=»LMPON ORS A3,LAMSAV,TCABAS  DK2 «, t00=0x0076, t01=0x018c}
0xb9f2…ba08               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK2«, t00=0x0077, t01=0x0024}
0xba08…ba24               Head {h00=0x0018, h01=0x0050, text=»LMPOF C1R A3,A3  DK2«, t00=0x0077, t01=0x003a}
0xba24…ba46               Head {h00=0x001e, h01=0x0050, text=» ANS A3,LAMSAV,TCABAS  DK2«, t00=0x0077, t01=0x0056}
0xba46…ba5c               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK2«, t00=0x0077, t01=0x0078}
0xba5c…ba6e               Head {h00=0x000e, h01=0x0050, text=» XIF   DK2«, t00=0x0077, t01=0x008e}
0xba6e…ba78               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0077, t01=0x00a0}
0xba78…ba80               Head {h00=0x0004, h01=0x0050, t00=0x0077, t01=0x00aa}
0xba80…ba8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00b2}
0xba8a…baca               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0077, t01=0x00bc}
0xbaca…bad4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00fc}
0xbad4…bae4               Head {h00=0x000c, h01=0x0050, text=»* SDISP «, t00=0x0077, t01=0x0106}
0xbae4…baee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0116}
0xbaee…bb16               Head {h00=0x0024, h01=0x0050, text=»* SIGNAL DISPLAY MONITOR REQUEST«, t00=0x0077, t01=0x0120}
0xbb16…bb20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0148}
0xbb20…bb60               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0077, t01=0x0152}
0xbb60…bb6a (120, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0004}
0xbb6a…bb72               Head {h00=0x0004, h01=0x0050, t00=0x0078, t01=0x000e}
0xbb72…bb8c               Head {h00=0x0016, h01=0x0050, text=»SDISP EQU *  DK2+5«, t00=0x0078, t01=0x0016}
0xbb8c…bba8               Head {h00=0x0018, h01=0x0050, text=» LDKL A8,ECBSD DK2+5«, t00=0x0078, t01=0x0030}
0xbba8…bbc6               Head {h00=0x001a, h01=0x0050, text=» ADR A8,CREBAS  DK2+5 «, t00=0x0078, t01=0x004c}
0xbbc6…bbe2               Head {h00=0x0018, h01=0x0050, text=» IFF KB6272=1  DK2+5«, t00=0x0078, t01=0x006a}
0xbbe2…bc00               Head {h00=0x001a, h01=0x0050, text=» ST A3,ECBCW,A8  DK2+5«, t00=0x0078, t01=0x0086}
0xbc00…bc14               Head {h00=0x0010, h01=0x0050, text=» XIF   DK2+5«, t00=0x0078, t01=0x00a4}
0xbc14…bc38               Head {h00=0x0020, h01=0x0050, text=» IFT LMPVDU+KB6272=1  DK2+5 «, t00=0x0078, t01=0x00b8}
0xbc38…bc56               Head {h00=0x001a, h01=0x0050, text=» ST A3,ECBCW,A8  DK2+5«, t00=0x0078, t01=0x00dc}
0xbc56…bc6a               Head {h00=0x0010, h01=0x0050, text=» XIF   DK2+5«, t00=0x0078, t01=0x00fa}
0xbc6a…bc8e               Head {h00=0x0020, h01=0x0050, text=» IFT LMPVDU+KB6272=2  DK2+5 «, t00=0x0078, t01=0x010e}
0xbc8e…bcaa               Head {h00=0x0018, h01=0x0050, text=» CM* ECBBA,A8  DK2+5«, t00=0x0078, t01=0x0132}
0xbcaa…bcc4               Head {h00=0x0016, h01=0x0050, text=» LDK A3,/1C  DK2+5«, t00=0x0078, t01=0x014e}
0xbcc4…bce4               Head {h00=0x001c, h01=0x0050, text=» SC* A3,ECBBA,A8  DK2+5 «, t00=0x0078, t01=0x0168}
0xbce4…bd08               Head {h00=0x0020, h01=0x0050, text=» LD A3,LAMSAV,TCABAS  DK2+5 «, t00=0x0078, t01=0x0188}
0xbd08…bd28               Head {h00=0x001c, h01=0x0050, text=» ORS* A3,ECBBA,A8  DK2+5«, t00=0x0079, t01=0x001c}
0xbd28…bd40               Head {h00=0x0014, h01=0x0050, text=» LDK A3,2  DK2+5«, t00=0x0079, t01=0x003c}
0xbd40…bd5e               Head {h00=0x001a, h01=0x0050, text=» ST A3,ECBRL,A8  DK2+5«, t00=0x0079, t01=0x0054}
0xbd5e…bd78               Head {h00=0x0016, h01=0x0050, text=» LDK A7,/85  DK2+5«, t00=0x0079, t01=0x0072}
0xbd78…bd8c               Head {h00=0x0010, h01=0x0050, text=» XIF   DK2+5«, t00=0x0079, t01=0x008c}
0xbd8c…bda0               Head {h00=0x0010, h01=0x0050, text=» LKM   DK2+5«, t00=0x0079, t01=0x00a0}
0xbda0…bdb6               Head {h00=0x0012, h01=0x0050, text=» DATA 1  DK2+5«, t00=0x0079, t01=0x00b4}
0xbdb6…bdce               Head {h00=0x0014, h01=0x0050, text=» RTN A14  DK2+5 «, t00=0x0079, t01=0x00ca}
0xbdce…bddc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x00e2}
0xbddc…bde6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00f0}
0xbde6…be26               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0079, t01=0x00fa}
0xbe26…be30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x013a}
0xbe30…be44               Head {h00=0x0010, h01=0x0050, text=»*     ATMASB«, t00=0x0079, t01=0x0144}
0xbe44…be4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0158}
0xbe4e…be8c               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR BACKWARDS AND MASK IT «, t00=0x0079, t01=0x0162}
0xbe8c…be96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0010}
0xbe96…bed6               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007a, t01=0x001a}
0xbed6…bee0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x005a}
0xbee0…bf06               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x007a, t01=0x0064}
0xbf06…bf2e               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x007a, t01=0x008a}
0xbf2e…bf60               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     1=END OF BUFFER LEFT «, t00=0x007a, t01=0x00b2}
0xbf60…bf8c               Head {h00=0x0028, h01=0x0050, text=»*      2= ATTRIBUTE IN LAST POSITION«, t00=0x007a, t01=0x00e4}
0xbf8c…bf96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0110}
0xbf96…bfaa               Head {h00=0x0010, h01=0x0050, text=»ATMASB EQU *«, t00=0x007a, t01=0x011a}
0xbfaa…bfbc               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x007a, t01=0x012e}
0xbfbc…bfd0               Head {h00=0x0010, h01=0x0050, text=»ASB05 EQU * «, t00=0x007a, t01=0x0140}
0xbfd0…bff6               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x007a, t01=0x0154}
0xbff6…c018               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR. «, t00=0x007a, t01=0x017a}
0xc018…c030               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASB10 NO «, t00=0x007b, t01=0x000c}
0xc030…c052               Head {h00=0x001e, h01=0x0050, text=»ASB08 ST A3,ATTRIB,TCABAS «, t00=0x007b, t01=0x0024}
0xc052…c082               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x007b, t01=0x0046}
0xc082…c092               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007b, t01=0x0076}
0xc092…c0b6               Head {h00=0x0020, h01=0x0050, text=»ASB10 CWK A2,0 END OF BUFFER«, t00=0x007b, t01=0x0086}
0xc0b6…c0ce               Head {h00=0x0014, h01=0x0050, text=» RF(E) ASB20 YES«, t00=0x007b, t01=0x00aa}
0xc0ce…c0e0               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x007b, t01=0x00c2}
0xc0e0…c0f6               Head {h00=0x0012, h01=0x0050, text=» RB ASB05 NEXT«, t00=0x007b, t01=0x00d4}
0xc0f6…c10a               Head {h00=0x0010, h01=0x0050, text=»ASB20 EQU * «, t00=0x007b, t01=0x00ea}
0xc10a…c118               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007b, t01=0x00fe}
0xc118…c120               Head {h00=0x0004, h01=0x0050, t00=0x007b, t01=0x010c}
0xc120…c15a               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x007b, t01=0x0114}
0xc15a…c182               Head {h00=0x0024, h01=0x0050, text=» LDK A1,2 ATTRIBUTE IN LAST POS.«, t00=0x007b, t01=0x014e}
0xc182…c1ac               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,1919 LAST BUFFER POSITION«, t00=0x007b, t01=0x0176}
0xc1ac…c1d0               Head {h00=0x0020, h01=0x0050, text=» CF A14,GBUFFC GET CHARACTER«, t00=0x007c, t01=0x0010}
0xc1d0…c1f2               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE ??? «, t00=0x007c, t01=0x0034}
0xc1f2…c20e               Head {h00=0x0018, h01=0x0050, text=» RB(NG) ASB08 YES!!!«, t00=0x007c, t01=0x0056}
0xc20e…c232               Head {h00=0x0020, h01=0x0050, text=» SUR A2,A2 FIRST SCREEN POS.«, t00=0x007c, t01=0x0072}
0xc232…c268               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x007c, t01=0x0096}
0xc268…c270               Head {h00=0x0004, h01=0x0050, t00=0x007c, t01=0x00cc}
0xc270…c292               Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 END BUFFER LEFT «, t00=0x007c, t01=0x00d4}
0xc292…c2ac               Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x007c, t01=0x00f6}
0xc2ac…c2c4               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,LBVDU+1«, t00=0x007c, t01=0x0110}
0xc2c4…c2fc               Head {h00=0x0034, h01=0x0050, text=» ST A7,CURATT,TCABAS POSSIBLY UNFORMATTED SCREEN«, t00=0x007c, t01=0x0128}
0xc2fc…c30c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007c, t01=0x0160}
0xc30c…c31a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007c, t01=0x0170}
0xc31a…c324               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x017e}
0xc324…c364               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007c, t01=0x0188}
0xc364…c36e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0038}
0xc36e…c382               Head {h00=0x0010, h01=0x0050, text=»*     ATMASF«, t00=0x007d, t01=0x0042}
0xc382…c38c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0056}
0xc38c…c3ca               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR. FORWARDS AND MASK IT «, t00=0x007d, t01=0x0060}
0xc3ca…c3d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x009e}
0xc3d4…c416               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x007d, t01=0x00a8}
0xc416…c420               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00ea}
0xc420…c436               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x007d, t01=0x00f4}
0xc436…c45c               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x007d, t01=0x010a}
0xc45c…c484               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x007d, t01=0x0130}
0xc484…c4b6               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     2=END OF BUFFER RIGHT«, t00=0x007d, t01=0x0158}
0xc4b6…c4dc               Head {h00=0x0022, h01=0x0050, text=»*   A3=ATTRIB IN LAST BUFF POS«, t00=0x007d, t01=0x018a}
0xc4dc…c4e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0020}
0xc4e6…c4ee               Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x002a}
0xc4ee…c4f6               Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x0032}
0xc4f6…c50a               Head {h00=0x0010, h01=0x0050, text=»S:ATT EQU * «, t00=0x007e, t01=0x003a}
0xc50a…c526               Head {h00=0x0018, h01=0x0050, text=» LD A7,ATTRIB,TCABAS«, t00=0x007e, t01=0x004e}
0xc526…c542               Head {h00=0x0018, h01=0x0050, text=» LD A8,CURATT,TCABAS«, t00=0x007e, t01=0x006a}
0xc542…c572               Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x007e, t01=0x0086}
0xc572…c58e               Head {h00=0x0018, h01=0x0050, text=» ST A7,ATTRIB,TCABAS«, t00=0x007e, t01=0x00b6}
0xc58e…c5aa               Head {h00=0x0018, h01=0x0050, text=» ST A8,CURATT,TCABAS«, t00=0x007e, t01=0x00d2}
0xc5aa…c5ba               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007e, t01=0x00ee}
0xc5ba…c5c2               Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x00fe}
0xc5c2…c5d6               Head {h00=0x0010, h01=0x0050, text=»ATMASF EQU *«, t00=0x007e, t01=0x0106}
0xc5d6…c5e8               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x007e, t01=0x011a}
0xc5e8…c5fc               Head {h00=0x0010, h01=0x0050, text=»ASF05 EQU * «, t00=0x007e, t01=0x012c}
0xc5fc…c622               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x007e, t01=0x0140}
0xc622…c642               Head {h00=0x001c, h01=0x0050, text=» CWK A3,/1F ATTRIB CHAR?«, t00=0x007e, t01=0x0166}
0xc642…c65a               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASF10 NO «, t00=0x007e, t01=0x0186}
0xc65a…c69e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007f, t01=0x000e}
0xc69e…c6ce               Head {h00=0x002c, h01=0x0050, text=» CWK A2,LBVDU-1 EOB +ATTRIB IN LAST POS «, t00=0x007f, t01=0x0052}
0xc6ce…c712               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007f, t01=0x0082}
0xc712…c72a               Head {h00=0x0014, h01=0x0050, text=» RF(NE) ASF08 NO«, t00=0x007f, t01=0x00c6}
0xc72a…c73c               Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x007f, t01=0x00de}
0xc73c…c75e               Head {h00=0x001e, h01=0x0050, text=»ASF08 ST A3,ATTRIB,TCABAS «, t00=0x007f, t01=0x00f0}
0xc75e…c78e               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x007f, t01=0x0112}
0xc78e…c79e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007f, t01=0x0142}
0xc79e…c7ca               Head {h00=0x0028, h01=0x0050, text=»ASF10 CWK A2,LBVDU-1 END OF BUFFER? «, t00=0x007f, t01=0x0152}
0xc7ca…c7e2               Head {h00=0x0014, h01=0x0050, text=» RF(L) ASF20 NO «, t00=0x007f, t01=0x017e}
0xc7e2…c7f4               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0080, t01=0x0008}
0xc7f4…c804               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0080, t01=0x001a}
0xc804…c81a               Head {h00=0x0012, h01=0x0050, text=»ASF20 ADK A2,1«, t00=0x0080, t01=0x002a}
0xc81a…c82c               Head {h00=0x000e, h01=0x0050, text=» RB ASF05 «, t00=0x0080, t01=0x0040}
0xc82c…c83a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0080, t01=0x0052}
0xc83a…c844               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0060}
0xc844…c87e               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0080, t01=0x006a}
0xc87e…c888               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00a4}
0xc888…c898               Head {h00=0x000c, h01=0x0050, text=»* GBUFFC«, t00=0x0080, t01=0x00ae}
0xc898…c8a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00be}
0xc8a2…c8dc               Head {h00=0x0036, h01=0x0050, text=»* GET VDU BUFFER CHAR WHICH IS INDICATED BY CURSOR«, t00=0x0080, t01=0x00c8}
0xc8dc…c8e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0102}
0xc8e6…c920               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0080, t01=0x010c}
0xc920…c92a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0146}
0xc92a…c94a               Head {h00=0x001c, h01=0x0050, text=»* A2=CURSOR BINARY ADDR «, t00=0x0080, t01=0x0150}
0xc94a…c960               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x0080, t01=0x0170}
0xc960…c96a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0186}
0xc96a…c974               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0190}
0xc974…c988               Head {h00=0x0010, h01=0x0050, text=»GBUFFC EQU *«, t00=0x0081, t01=0x000a}
0xc988…c99a               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0081, t01=0x001e}
0xc99a…c9b0               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0081, t01=0x0030}
0xc9b0…c9d6               Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS GET VDU BUFFER «, t00=0x0081, t01=0x0046}
0xc9d6…c9e8               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A2«, t00=0x0081, t01=0x006c}
0xc9e8…ca12               Head {h00=0x0026, h01=0x0050, text=» LCR A3,A4 GET CHARACTER IN BUFF. «, t00=0x0081, t01=0x007e}
0xca12…ca22               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x00a8}
0xca22…ca30               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x00b8}
0xca30…ca3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00c6}
0xca3a…ca7e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0081, t01=0x00d0}
0xca7e…ca88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0114}
0xca88…ca98               Head {h00=0x000c, h01=0x0050, text=»* RESET «, t00=0x0081, t01=0x011e}
0xca98…caa2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x012e}
0xcaa2…cade               Head {h00=0x0038, h01=0x0050, text=»* RESET 'KEYBOARD INHIBIT' IN FOLLOWING SITUATIONS: «, t00=0x0081, t01=0x0138}
0xcade…cb1a               Head {h00=0x0038, h01=0x0050, text=»* 1- A DEVICE WITH AN ATTACHED KEYBOARD IS EXECUTING«, t00=0x0081, t01=0x0174}
0xcb1a…cb42               Head {h00=0x0024, h01=0x0050, text=»*  A COMMAND. BIT 14=1 IN KBINH «, t00=0x0082, t01=0x0020}
0xcb42…cb78               Head {h00=0x0032, h01=0x0050, text=»* 2- A PA-KEY OPERATION IS IN PROCESS PRIOR TO«, t00=0x0082, t01=0x0048}
0xcb78…cbb8               Head {h00=0x003c, h01=0x0050, text=»*  INITIATION OF A COMMAND FOR A DEVICE WITH AN ATTACHED«, t00=0x0082, t01=0x007e}
0xcbb8…cbde               Head {h00=0x0022, h01=0x0050, text=»*  KEYBOARD. BIT 14=1 IN KBINH«, t00=0x0082, t01=0x00be}
0xcbde…cc0c               Head {h00=0x002a, h01=0x0050, text=»* 3- ERRORSITUATION. BIT 14=1 IN KBINH«, t00=0x0082, t01=0x00e4}
0xcc0c…cc16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0112}
0xcc16…cc54               Head {h00=0x003a, h01=0x0050, text=»* IF BIT 15=1 IN KBINH => NO RESETTING ALLOWED DURING «, t00=0x0082, t01=0x011c}
0xcc54…cc7c               Head {h00=0x0024, h01=0x0050, text=»* UPDATE AND DISPLAY SITUATION. «, t00=0x0082, t01=0x015a}
0xcc7c…cc86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0182}
0xcc86…ccca               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0082, t01=0x018c}
0xccca…ccd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0040}
0xccd4…cce8               Head {h00=0x0010, h01=0x0050, text=»RESET EQU * «, t00=0x0083, t01=0x004a}
0xcce8…cd12               Head {h00=0x0026, h01=0x0050, text=» CM MODE,TCABAS RESET INSERT MODE «, t00=0x0083, t01=0x005e}
0xcd12…cd40               Head {h00=0x002a, h01=0x0050, text=» CF A14,LIOLOF TURN OFF "INSERT" LAMP «, t00=0x0083, t01=0x0088}
0xcd40…cd6a               Head {h00=0x0026, h01=0x0050, text=» CM KBINH,TCABAS RESSTORE KEYBOARD«, t00=0x0083, t01=0x00b6}
0xcd6a…cd96               Head {h00=0x0028, h01=0x0050, text=» CF A14,LERROF TURN OFF 'ERROR' LAMP«, t00=0x0083, t01=0x00e0}
0xcd96…cdce               Head {h00=0x0034, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT' LAMP «, t00=0x0083, t01=0x010c}
0xcdce…cdde               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0083, t01=0x0144}
0xcdde…cdec               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x0154}
0xcdec…cdf4               Head {h00=0x0004, h01=0x0050, t00=0x0083, t01=0x0162}
0xcdf4…cdfc               Head {h00=0x0004, h01=0x0050, t00=0x0083, t01=0x016a}
0xcdfc…ce44               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0083, t01=0x0172}
0xce44…ce4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x002a}
0xce4e…ce86               Head {h00=0x0034, h01=0x0050, text=»*   C O P Y  :   COPY CONTENTS IN VDU BUFFER ON «, t00=0x0084, t01=0x0034}
0xce86…ceae               Head {h00=0x0024, h01=0x0050, text=»*                HARDCOPY DEVICE«, t00=0x0084, t01=0x006c}
0xceae…ceb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0094}
0xceb8…cefc               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0084, t01=0x009e}
0xcefc…cf04               Head {h00=0x0004, h01=0x0050, t00=0x0084, t01=0x00e2}
0xcf04…cf16               Head {h00=0x000e, h01=0x0050, text=»COPY EQU *«, t00=0x0084, t01=0x00ea}
0xcf16…cf32               Head {h00=0x0018, h01=0x0050, text=» LD A5,COPNO,TCABAS «, t00=0x0084, t01=0x00fc}
0xcf32…cf48               Head {h00=0x0012, h01=0x0050, text=» ABL(Z) ERROR «, t00=0x0084, t01=0x0118}
0xcf48…cf64               Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x0084, t01=0x012e}
0xcf64…cf86               Head {h00=0x001e, h01=0x0050, text=» ADR A3,TCABAS   ADDRESSS «, t00=0x0084, t01=0x014a}
0xcf86…cfa8               Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x0084, t01=0x016c}
0xcfa8…cfd8               Head {h00=0x002c, h01=0x0050, text=» LDK A4,/8B ORDER = WRITE ADDRESSED WAIT«, t00=0x0084, t01=0x018e}
0xcfd8…cfe6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0085, t01=0x002e}
0xcfe6…cff0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x003c}
0xcff0…d018               Head {h00=0x0024, h01=0x0050, text=»* WRITE INTERTASK COMMUNICATION «, t00=0x0085, t01=0x0046}
0xd018…d022               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x006e}
0xd022…d040               Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0085, t01=0x0078}
0xd040…d054               Head {h00=0x0010, h01=0x0050, text=»* A4 = ORDER«, t00=0x0085, t01=0x0096}
0xd054…d06c               Head {h00=0x0014, h01=0x0050, text=»* A5 = "TO-TID" «, t00=0x0085, t01=0x00aa}
0xd06c…d086               Head {h00=0x0016, h01=0x0050, text=»* A6 = REQ LENGTH «, t00=0x0085, t01=0x00c2}
0xd086…d090               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00dc}
0xd090…d0a4               Head {h00=0x0010, h01=0x0050, text=»ICWRTE EQU *«, t00=0x0085, t01=0x00e6}
0xd0a4…d0bc               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x0085, t01=0x00fa}
0xd0bc…d0d2               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0085, t01=0x0112}
0xd0d2…d0e6               Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0085, t01=0x0128}
0xd0e6…d114               Head {h00=0x002a, h01=0x0050, text=» CF A14,REQTIM NO TIME OUT SUPERVISION«, t00=0x0085, t01=0x013c}
0xd114…d136               Head {h00=0x001e, h01=0x0050, text=» ST A5,ECBCW,A8 TO TASK ID«, t00=0x0085, t01=0x016a}
0xd136…d158               Head {h00=0x001e, h01=0x0050, text=» ST A6,ECBRL,A8 REQ LENGTH«, t00=0x0085, t01=0x018c}
0xd158…d170               Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0086, t01=0x001e}
0xd170…d188               Head {h00=0x0014, h01=0x0050, text=» LDR A7,A4 ORDER«, t00=0x0086, t01=0x0036}
0xd188…d194               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0086, t01=0x004e}
0xd194…d1a4               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0086, t01=0x005a}
0xd1a4…d1b4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0086, t01=0x006a}
0xd1b4…d1c0               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0086, t01=0x007a}
0xd1c0…d1c4               Head {h00=0x4004, h01=0x0000}
0xd1c4…d1c8               00 86 00 86                                                                                                                                                                                                                                       ┆    ┆
0xd1c8…d1d0 (135, 1, 8)   20 04 00 00 00 87 00 04                                                                                                                                                                                                                           ┆        ┆
0xd1d0…d220 (136, 0, 400) 9f 16 10 05 40 d9 01 e3 7c 49 d5 10 41 d5 80 1b 15 12 80 1c 80 1d 01 d8 73 01 de 7e 00 a0 d8 30 08 92 06 a0 80 1e 30 1d 92 8f 80 1f 03 d8 6f 00 a0 d8 2c a0 29 05 05 a8 6e 5f 8a 48 d5 0f 40 d9 01 e3 7c 01 de 7c 30 2a 12 30 01 92 01 40 ab 57   ┆    @   |I  A           s  ~   0      0       o   , )   n_ H  @   |  |0* 0   @ W┆
0xd220…d270               26 48 1e 0d 49 84 0a 49 d2 07 48 89 04 41 ad 5f ce 57 14 57 12 57 10 80 20 57 0c 80 21 57 08 80 22 57 04 80 23 57 00 40 a4 01 ae 7c 3f 2d 49 a6 41 48 8d 15 41 90 31 28 ae 80 13 36 91 03 31 31 02 57 2f 41 24 80 24 57 29 48 24 26 48 22 23 80   ┆&H  I  I  H  A _ W W W   W  !W  "W  #W @   |?-I AH  A 1(   6  11 W/A$ $W)H$&H"# ┆
0xd270…d2c0               1b 18 12 30 09 25 4b 24 06 00 a0 1b 80 25 a0 30 1d 13 8f 30 2c 16 30 01 96 02 80 1d 30 09 25 30 2c 13 3f 2d 49 8e 06 41 8e 80 26 57 02 40 8e 06 10 10 3f 2d 41 a3 41 90 41 93 01 86 9c 23 dc 6e 03 01 dc 9c 80 27 11 80 01 32 91 03 0e 0e 45 5f   ┆   0 %K$     % 0   0, 0     0 %0, ?-I  A  &W @    ?-A A A    # n     '   2    E_┆
0xd2c0…d310               1d 40 93 40 a3 3f 2d 80 28 3f 2d 80 29 3f 2d 49 89 88 00 95 12 41 90 80 02 01 ef 15 9d 01 ef 14 9a 40 a3 40 a7 31 28 c1 80 13 36 91 03 6a 6a 02 5f 23 00 a1 ef 12 12 a1 15 2b 20 a1 15 36 80 0f 12 10 a1 b6 5c 37 00 ef 11 b6 41 a3 31 28 c1 80   ┆ @ @ ?- (?- )?-I     A           @ @ 1(   6  jj _#       +   6       7    A 1(  ┆
0xd310…d360               01 32 91 03 11 11 46 5f 0f 00 b6 ef 11 00 a1 ef 12 80 10 12 10 a1 b6 5c 1f 01 b6 9a 80 10 12 11 a1 b6 57 21 00 ef 11 f9 00 ef 14 f8 41 a3 41 a7 31 28 c1 80 01 32 91 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c   ┆ 2    F_                          W!        A A 1(   2                          ┆
0xd360…d3b0 (137, 0, 400) 11 11 47 5f 19 00 f9 ef 11 00 f8 ef 14 80 03 1d 80 02 3f 2d 49 89 7d 00 95 12 41 90 80 02 01 ef 15 9e 01 ef 14 9a 40 a3 31 28 bc 80 13 36 91 03 61 61 02 5f 21 00 a1 ef 12 14 a1 11 29 12 a1 15 2d 20 a1 15 0e 80 0f 13 10 a1 b6 5c 39 00 ef 11   ┆  G_              ?-I }   A           @ 1(   6  aa _!       )   -           9   ┆
0xd3b0…d400               b6 57 04 00 ef 11 fa 41 a3 31 28 bc 80 01 32 91 03 12 12 48 5f 0f 00 a1 ef 12 20 a1 15 1d 00 b6 ef 11 80 10 13 10 a1 b6 5c 23 01 b6 9a 80 10 13 11 a1 b6 80 10 13 12 a1 b6 57 04 00 fa ef 11 80 03 1d 80 02 3f 2d 00 95 11 01 85 9a 01 84 9a 80   ┆ W     A 1(   2    H_                    #               W          ?-          ┆
0xd400…d450               2a 11 80 2b 31 28 b6 41 90 80 13 57 04 40 90 80 01 32 91 04 49 49 4a 4b 20 91 17 16 20 91 20 1f 5f 15 09 84 9b 02 85 84 00 89 84 80 2a 15 80 2b 5f 25 00 89 85 01 ae 8d 80 2a 13 80 2b 5f 32 00 89 85 01 ae 5a 80 2a 12 80 2b 41 90 31 28 b3 80   ┆*  +1( A   W @   2  IIJK        _           *  +_%       *  +_2     Z *  +A 1(  ┆
0xd450…d4a0               13 10 91 13 5f 57 e2 41 90 30 2a 14 31 28 ba 80 13 28 91 13 19 21 88 77 11 31 1d 14 b7 40 a3 31 28 b8 80 13 10 91 13 1f 57 04 41 a3 5f 0f 40 a3 57 b7 49 8d 1e 49 89 1b 49 a6 0d 80 03 19 80 2c d3 01 e2 80 41 a6 57 0b 80 03 1a 40 a6 01 e2 7c   ┆    _W A 0* 1(   (   ! w 1   @ 1(       W A _ @ W I  I  I      ,    A W    @   |┆
0xd4a0…d4f0               80 2d d3 57 94 48 1a 21 49 89 1e 00 95 12 00 88 f7 09 88 9b 41 90 31 28 b5 80 01 36 91 03 08 08 02 5f 0f 09 88 9b 00 f7 88 57 6e 80 2e 57 6a 80 2f 57 66 80 30 57 62 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05   ┆ - W H !I           A 1(   6     _       Wn .Wj /Wf 0Wb                         ┆
0xd4f0…d540 (138, 0, 400) 26 57 5e 80 31 57 5a 80 32 57 56 30 01 92 01 80 1b 15 12 80 1c 80 1d 00 a0 29 24 a0 16 11 30 08 92 06 a0 80 33 21 30 1d 92 8f 04 a0 18 5f 15 30 01 92 01 57 2c 80 34 1a 57 27 80 34 11 57 22 80 34 12 57 1d 57 1b 80 34 14 57 16 80 35 57 12 57   ┆&W^ 1WZ 2WV0             )$   0     3!0      _ 0   W, 4 W' 4 W" 4 W W  4 W  5W W┆
0xd540…d590               10 57 0e 57 0c 57 0a 80 36 57 06 3f 4c 3f 4d 3f 4e 34 01 01 81 7a 00 82 00 00 83 10 01 8d 81 68 49 83 81 8d 10 11 02 83 11 01 81 7a 04 81 83 04 82 11 5c 15 6a 82 11 11 49 83 28 82 11 18 66 49 83 11 6a 82 11 11 49 83 02 83 11 64 49 83 82 01   ┆ W W W  6W ?L?M?N4   z         hI          z        j   I (   fI  j   I    dI   ┆
0xd590…d5e0               10 06 10 10 57 03 06 10 11 34 02 01 82 7a 01 ad 7c 01 8e 83 00 83 10 68 49 83 82 8e 10 12 54 21 02 83 11 66 49 83 11 00 82 10 6a 82 11 11 49 83 02 83 11 64 49 83 82 ad 10 01 82 7a 04 82 83 5f 2a 34 00 00 80 00 80 37 9b 11 04 80 11 12 80 10   ┆    W    4   z  |      hI     T!   fI     j   I    dI      z   _*4     7        ┆
0xd5e0…d630               0b 34 01 41 90 31 28 bb 80 13 32 91 04 4f 50 51 52 5f 10 06 11 10 57 08 06 10 10 57 03 06 10 11 34 00 80 1b 10 10 30 2b 16 50 05 30 2c 16 57 0c 30 2a 16 28 91 16 05 06 10 10 57 03 06 10 11 34 00 1b 00 52 00 04 00 a5 00 04 00 cb 00 04 01 2f   ┆ 4 A 1(   2  OPQR_    W    W    4     0+ P 0, W 0* (      W    4   R           /┆
0xd630…d680               00 04 01 31 00 04 01 35 00 04 01 cc 00 04 01 ce 00 04 01 d2 00 04 02 12 00 04 02 2e 00 04 02 49 00 04 04 e6 00 04 05 2c 00 04 05 3c 00 04 05 5f 00 04 05 63 00 04 05 67 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c   ┆   1   5                   .   I       ,   <   _   c   g                        ┆
0xd680…d6d0 (139, 0, 400) 00 04 05 f4 00 04 06 76 00 04 06 d7 00 04 07 02 00 04 07 25 00 04 07 4b 00 04 07 4f 00 04 07 53 00 04 07 57 00 04 07 5b 00 04 07 5f 00 04 07 63 00 04 07 8d 00 04 07 92 00 04 07 97 00 04 07 9c 00 04 07 9e 00 04 07 a3 00 04 07 a7 00 04 07 a9   ┆       v           %   K   O   S   W   [   _   c                                ┆
0xd6d0…d720               00 04 07 ab 00 04 07 ad 00 04 00 96 00 04 07 b3 00 04 07 b5 00 04 07 b7 00 04 07 af 00 04 07 b9 00 03 09 3e 00 05 00 0e 00 08 07 f4 00 04 04 df 00 04 02 60 00 04 02 ac 00 04 02 b0 00 04 02 b4 00 04 02 b8 00 04 02 c4 00 04 02 c8 00 04 02 cd   ┆                                   >               `                            ┆
0xd720…d770               00 04 03 15 00 04 03 e1 00 04 03 ed 00 04 04 b9 00 04 04 cb 00 04 04 cd 00 04 04 cf 00 04 04 d3 00 04 04 d7 00 04 04 db 00 04 02 aa 00 04 05 59 00 04 05 b1 00 04 05 e5 00 04 06 46 00 04 06 8d 00 04 06 a5 00 04 06 a2 00 05 0a b5 00 05 0b 04   ┆                                               Y           F                    ┆
0xd770…d7c0               00 05 0b 93 00 04 08 4b 00 04 08 5b 00 04 08 60 00 04 08 65 00 37 00 01 00 1e 00 02 0b 87 00 06 02 eb 00 06 0b eb 00 03 06 af 00 06 06 05 00 06 04 e7 00 01 04 ff 00 01 05 6b 00 01 05 61 00 01 05 75 00 01 04 74 00 03 06 c2 00 00 00 45 00 06   ┆       K   [   `   e 7                                   k   a   u   t       E  ┆
0xd7c0…d810               06 8f 00 06 07 16 00 07 00 1a 00 01 03 e3 00 01 00 0e 00 03 02 c0 00 03 04 e9 00 03 03 e2 00 03 0a d0 00 04 00 0e 00 06 08 fa 00 02 02 3f 00 01 03 64 00 06 04 7d 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05   ┆                                             ?   d   }                          ┆
0xd810…d860 (140, 0, 400) 03 fb 00 00 00 9a 00 06 03 aa 00 06 0b 0c 00 08 02 62 00 08 02 fc 00 03 03 12 00 03 06 13 00 00 00 77 00 02 07 0f 00 03 07 f3 00 08 00 51 00 08 00 eb 00 00 00 85 00 06 03 98 00 01 09 57 00 01 09 3b 00 02 03 97 00 02 02 71 00 02 03 c2 00 02   ┆                 b               w           Q               W   ;       q      ┆
0xd860…d8b0               06 67 00 02 06 a4 00 00 00 93 00 02 04 e6 00 02 07 78 00 0a 00 0e 00 06 0c 88 02 db ff ff 20 44 4b 53 54 c3 4e 52 c3 01 42 45 4c 42 46 4f 20 42 49 4c 41 47 46 45 4a 4c 20 4b 4c 41 52 20 45 4a 20 45 44 42 4c 42 4e 52 20 20 20 44 49 56 45 52   ┆ g               x             DKST NR  BELBFO BILAGFEJL KLAR EJ EDBLBNR   DIVER┆
0xd8b0…d900               53 45 42 45 52 45 47 4e 49 4e 47 53 55 42 54 4f 54 41 4c 20 43 48 45 43 4b 20 4c 42 4e 52 43 50 52 2f 43 49 52 2f 4e 52 52 45 47 4b 4f 4e 54 4f 4e 52 43 48 45 43 4b 43 49 46 46 45 52 4c 4f 4b 41 4c 20 52 45 4d 49 54 50 45 4e 47 45 2d 4b 4f   ┆SEBEREGNINGSUBTOTAL CHECK LBNRCPR/CIR/NRREGKONTONRCHECKCIFFERLOKAL REMITPENGE-KO┆
0xd900…d950               4e 54 4f 4b 41 53 53 45 2d 4b 4f 4e 54 4f 20 20 20 5d 42 4e 45 20 4b 41 53 53 45 52 4b 4f 4e 56 45 52 54 45 52 49 4e 47 20 52 45 47 4e 45 46 55 4e 4b 54 49 4f 4e 45 4a 2d 45 44 42 20 54 5b 4c 4c 45 52 20 56 45 52 53 55 52 20 4b 4f 4e 54 4f   ┆NTOKASSE-KONTO   ]BNE KASSERKONVERTERING REGNEFUNKTIONEJ-EDB T[LLER VERSUR KONTO┆
0xd950…d9a0               4e 52 20 52 45 4d 49 54 20 00 d1 ff b0 17 b0 18 42 39 42 42 39 42 58 58 58 58 58 42 42 5a 5a 5a 2d 39 39 39 39 39 39 39 39 45 2d 39 39 5a 5a 5a 5a 5a 5a 5a 5a 45 2d 5a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c   ┆NR REMIT        B9BB9BXXXXXBBZZZ-99999999E-99ZZZZZZZZE-Z                        ┆

Reduced view