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

⟦452478f40⟧

    Length: 55670 (0xd976)
    Notes: pts_type(SC)
    Names: »START.SC«

Derivation

└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
    └─⟦this⟧ »D3270:92/START.SC« 
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
    └─⟦this⟧ »REMIT2/START.SC« 
└─⟦bdcaa0fa2⟧ Bits:30009700 Philips computer tape "600999"
    └─⟦this⟧ »D3270:92/START.SC« 

	IDENT	START	DK7 821005/GF

			DK7,READ MODIFIED, 821002
			=1, ODD BUFFER ADDRESS 
			REL 2.1 79-05-23 
			=2, 6234 LAMPS 
			REL 2.1 79-05-23 
			=3, UNDEFINED LABEL
			REL 2.1 79-05-23 
			=4, CURSOR STOPS AT LAST POS. EACH LINE
			REL 2.1 79-05-23 
			=5, RESET KEY FOR KB6235 
			REL 2.1 79-05-23 
			DK6 DUP FIELD, LENGTH=1	DK6
			DK5 - LMPVDU=1, 6272 ON VDU	DK5
			DK4 - FIELD SEPARATOR 6234	DK4 
			DK3 - PA 4-9	DK3 
			DK2 - LAMPMODULE, 6272	DK2 
			DK1 - NUM COMMA	DK1
************************************************************* 
* 
*   S T A R T  :  MODULE HANDLING KEYBOARD INPUT.KEYBOARD INITIATED 
*                 MESSAGES ADDRESSED TO THE MAIN FRAME ARE COMPOSED 
*                 AND SENT BY USING ROUTINES IN MODULE VDUPRT.
* 
**************************************************************************




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


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

* 
KB6272	EQU	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	1	=1, PA4-9 ALLOWED	DK3
	 
* 
* 
*     EQUATES 
* 
RSET	EQU	/B2	RESET KEY
*	COMMON EQU FOR ECB HANDLING 
* 

ECBBA	EQU	2 
ECBRL	EQU	4 
ECBEL	EQU	6 
ECBRC	EQU	8 
ECBCW	EQU	10
* 
* 
*	CREDIT USED EQU 
* 
* 
*	ECB REL. ADDRESSES
* 
* 
DIS	EQU	20
* 
ECBDC	EQU	-DIS-14 
	IFT	DCLIN=2
	IFT	COPCMD=1 
ECBDC2	EQU	ECBDC-DIS
ECBICR	EQU	ECBDC2-DIS 
ECBICW	EQU	ECBICR-DIS 
	XIF
	IFT	DCLIN=2
	IFF	COPCMD=1 
ECBDC2	EQU	ECBDC-DIS
ECBICW	EQU	ECBDC2-DIS 
	XIF
	IFF	DCLIN=2
	IFT	COPCMD=1 
ECBICR	EQU	ECBDC-DIS
ECBICW	EQU	ECBICR-DIS 
	XIF
	IFF	DCLIN=2
	IFF	COPCMD=1 
ECBICW	EQU	ECBDC-DIS
	XIF
ECBVDU	EQU	ECBICW-DIS 
ECBKB	EQU	ECBVDU-DIS
ECBSD	EQU	ECBKB-DIS 
	 
* 
* 
*	BASE ADDRESS FOR TCA AND ECB
* 
TCABAS	EQU	A11
CREBAS	EQU	A13	ECB
* 
* 
*	TCA REL. ADDRESSES
* 
TCT01	EQU	0 
PRINTER	EQU	TCT01+2 
BVDU	EQU	PRINTER+2	VDU SCREEN BUFFER
PCURS	EQU	BVDU+1920	CURSOR ADDRESS , BINARY 
ATTRIB	EQU	PCURS+2	LAST ATTRIBUTE CHAR
CURATT	EQU	ATTRIB+2 
WCC	EQU	CURATT+2	WCC/CCC CHARACTER
KBINH	EQU	WCC+2	KEYBOARD INHIBIT INDICATOR
LINCNT	EQU	KBINH+2	LINE COUNTER 
DCLENG	EQU	LINCNT+2	DC READ EFFECTIVE LENGTH
ICWORK	EQU	DCLENG+2	WORK FIELD INTERTASK COMM 
INTATT	EQU	ICWORK+2	INTENSITY ATTRIBUTE 
OFFFLG	EQU	INTATT+2	OFFLINE FLAG
COPNO	EQU	OFFFLG+2	HARDCOPY TASK ID 
CCC	EQU	COPNO+2	COPY COMMAND CHARACTER
MAIN	EQU	CCC+2	MAIN FRAME 
MODE	EQU	MAIN+2	INSERT MODE SWITCH
KEYS	EQU	MODE+2	KEY LOCK STATUS 
ECBDCC	EQU	KEYS+2	ECB ADDRESS LAST READ DC
ECBBLK	EQU	ECBDCC+2	ECBS FOR MULTIPLE WAIT &C 
RDMORE	EQU	ECBBLK+10	BRANCH ADDRESS NEXT READ KB
LAMSAV	EQU	RDMORE+2	SAVE AREA FOR LAMPS	DK2 
	 
NULL	EQU	/7F	NULL CHARACTER 
DUPCH	EQU	/7B 
FMCH	EQU	/60
LBVDU	EQU	1920	1920 CHAR DISPLAY	6344 
LPAGE	EQU	48	LINES ON ONE PAGE
LLINE	EQU	80	80 CHAR PER DISPLAY LINE 
* 
*	CONFIG DATA 'CB1' REL ADDRESSES 
* 
NBRKBV	EQU	0	NUMBER OF KB/VDUS
NBRGTP	EQU	NBRKBV+2	NUMBER OF GTPS
* 
MF1KBV	EQU	NBRGTP+2	DV ADDRESSES KB/VDU MF #1 
MF1GTP	EQU	MF1KBV+16	DV ADDRESSES GTPS MF # 1 
	IFT	DCLIN=2
MF2KBV	EQU	MF1GTP+16
MF2GTP	EQU	MF2KBV+16
	XIF
	 
* 
*	KEY TABLE	FIXED ENTRY FOR EACH FUNCTION 
* 
KEYTAB	EQU	*
	DATA	CHAR	SPACE
	DATA	CHAR	!
	DATA	CHAR	"
	DATA	CHAR	#
	DATA	CHAR	$
	DATA	CHAR	%
	DATA	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
	 
************************************************************* 
* 
*	START ADDRESS FOR DC TASKS
************************************************************* 

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

	IFT	OFLIN=1


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

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

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

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

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

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

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

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

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

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

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

	LDK	A5,/2B	CURSOR NOT MOVED BEFORE DISPLAYING
	LD	A1,ECBVDU+ECBBA,CREBAS	 
	SC	A5,1,A1		=1 
	LDK	A5,/1E 
	ADK	A1,2	NEXT POS
	SCR	A5,A1	LOW INT, STORE IN BUFFER 
	LDR	A6,A3
	ANK	A3,/4	STANDARD DISPLAYING? 
	RF(Z)	ANC200	YES 
	ANK	A6,/2	INTENSIFIED DISPLAYING?
	RF(Z)	ANC150	YES 
	LDK	A2,/20	LOAD SPACE
	RF	ANC250	NON DISPLAYING 
ANC150	LDK	A5,/1F	SET HIGH INTENSITY
	SCR	A5,A1	STORE IN BUFFER
ANC200	LDR	A2,A4	UPDATE A2 WITH CHAR
ANC250	CF	A14,WCHAR	DISPLAY CHAR AND CURSOR 
	LD	A2,PCURS,TCABAS	GET CURSOR POS
	CWK	A4,DUPCH	 DONT ADD IF IN DUP	DK6 
	RF(E)	ANC252		DK6
	ADK	A2,1 
ANC252	EQU	*
	CWK	A2,LBVDU 
	RF(NE)	ANC255
	LDKL	A2,0
ANC255	EQU	*
	ST	A2,PCURS,TCABAS 
	CF	A14,GBUFFC	GET BUFFER CHAR
	CWK	A3,/1F	ATTRIBUTE CHAR? 
	RF(G)	ANC300	NO

	CF	A14,TAB	SKIP TO NEXT UNPROTECTED
ANC300	EQU	*
	LD	A1,ECBCW,A8	CONTROL WORD
	ANK	A1,X'FF'	LINE POSITION 
	SUK	A1,80	LAST POSITION ON LINE ?? 
	RF(NZ)	ANC350	NO!!!
	CF	A14,SETCUR	POSITION CURSOR TO 1:ST POS. NEXT LINE 
ANC350	EQU	*
	RTN	A14
	IFT	IN:DL=1
	 

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

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

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


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

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


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

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

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

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


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


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


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

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


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

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

S:NULL	EQU	*
	LDR	A1,A6

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

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

	IFT	PAX=1

* 
* 
*	PROGRAM ATTENTION KEY IS PRESSED AND NUMBER WILL BE INSERTED TO 
*	DEFINE ONE OF THE FUNCTIONS UNDER PA1.CANCEL OR PA3 
* 
* 
PAEX	EQU	*
	LDKL	A1,PAEXA
	ST	A1,RDMORE,TCABAS
	RTN	A14
PAEXA	EQU	* 
	CM	RDMORE,TCABAS 
	SUK	A2,/31	CHECK IF NUM.1-3
	RF(L)	PFERR	ILLEGAL CHAR.
	SUK	A2,/2	CHECK IF NUM.1-3 
	IFF	PA49=1		DK3
	RF(G)	PFERR	ILLEGAL CHAR.
	XIF			DK3
	IFT	PA49=1		DK3
	RF(G)	PAEXB	PA 4-9?	DK3
	XIF			DK3
	RF(Z)	PA3
	ADK	A2,1 
	RB(Z)	PA2
	RF	PA1 
	RTN	A14	RETURN TO MAIN READ LOOP 

	XIF
	 

* 
*    PA1    PROGRAM ATTENTION KEY 
* 
* 
PA1	EQU	* 
	LDK	A2,/2C	PA1 POS 
	RB	CAN100
* 
* 
*    PA3   PROGRAM ATTENTION KEY
* 
* 
PA3	EQU	* 
	LDK	A2,/2B	PA3 POS 
	RB	CAN100
* 
*	PA4 - PA10 (ALFASKOP) 
	IFT	PA49=1		DK3
PAEXB	EQU	*		DK3
	SUK	A2,/6		DK3 
	RF(G)	PFERR		DK3 
	ADK	A2,/69	SET PA4-9	DK3 
	RB	CAN200		DK3 
	XIF			DK3
* 
PA410	EQU	* 
	SUK	A2,/20 
	RB	CAN200
	 
* 
********************************************************
* 
*	ENTER 
* 
*	PROGRAM FUNCTION KEY WHICH CAUSES AN I/O OPERATION
*	AND GENERATE AN AID CHARACTER FOLLOWED BY AN SBA ORDER
*	ATTRIBUTE ADDRESS AND TEXT FOR EACH MODIFIED FIELD
*	NULLS ARE SUPRESSED 
* 
********************************************************* 
* 
*	READ MODIFIED HANDLING		DK7 
READMY	EQU	*		DK7 
	LDK	A2,/20	NO AID GENERATED	DK7
	RF	ENT100	DO IT	DK7
ENTER	EQU	* 
	LDK	A2,/3D	ENTER POS 
ENT100	EQU	*
	LC	A2,TASCII,A2	CONVERT TO ASCII 
	CF	A14,LINHON	TURN ON "KEYBOARD INHIBIT" 
	CF	A14,TRPF	AID+MODIFIED FIELDS+TRANSMIT 
ENT200	EQU	*
	RTN	A14
* 

	IFT	PFX=1

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

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


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

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

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

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

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

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

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

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

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

* 
*   TURN ON SOUND ALARM 
* 

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

	RTN	A14
	IFT	KEYLST=1 
	 
******************************************************************
* 
*   KEY LOCK STATUS IS SET IN 'KEYS'
*	ON ENTRY  A2 = KEY LOCK VALUE /70-/77 
* 
******************************************************************
* 
KEYL	EQU	*
	SUK	A2,/78	GET NEG KEY LOCK VALUE
	LD	A3,KEYS,TCABAS	OLD STATUS 
	LDK	A4,/10 
KEYL10	EQU	*
	SRL	A4,1 
	ADK	A2,2	1 = OFF,0 = ON
	RB(N)	KEYL10 
	ANR	A3,A4	CHECK OLD KEY POS
	RF(NZ)	KEYL20	WAS ON 
	LDR	A2,A2	WAS OFF
	RF(NZ)	KEYL99	NOW OFF, NO CHANGE 
	RF	KEYL30	NOW ON 
KEYL20	EQU	*	WAS ON 
	LDR	A2,A2
	RF(Z)	KEYL99	NOW ON, NO CHANGE 
KEYL30	EQU	* 	CHANGE
	LD	A3,KEYS,TCABAS
	XRR	A3,A4	CHANGE STATUS
	ST	A3,KEYS,TCABAS	STORE NEW STATUS 
* 
* KEYLOCK STATUS CHANGED
*   A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON 
*   A4 = KEYLOCK CHANGED, LAYOUT AS A3
*   A2 = 1, IF CHANGED TO OFF ELSE 0
* 
* INSERT USER ROUTINE BELOW THIS LINE 
* 
KEYL99	EQU	*
	RTN	A14
	XIF
	 
* 
********************************************************
* 
*	LAMPMODULE
* 
* 
********************************************************
* 
LON	EQU	/B7 
LOF	EQU	/B8 
	IFT	KB6272=1 
LMF1	EQU	/20
LMF2	EQU	/10
LIOL	EQU	1		DK2 
LINH	EQU	8		DK2 
LERR	EQU	4		DK2 
LSAV	EQU	/10		DK2 
	XIF
	IFF	KB6272=1 
LMF1	EQU	0		=2
LMF2	EQU	0		=2
LIOL	EQU	1		=2
LINH	EQU	2		=2
LERR	EQU	4		=2
LSAV	EQU	8		=2
	XIF
LMF1ON	LDK	A3,LMF1
	RF	LMPON 
LMF1OF	LDK	A3,LMF1
	RF	LMPOF 
LMF2ON	LDK	A3,LMF2
	RF	LMPON 
LMF2OF	LDK	A3,LMF2
	RF	LMPOF 
LIOLON	LDK	A3,LIOL
	RF	LMPON 
LIOLOF	LDK	A3,LIOL
	RF	LMPOF 
LINHON	LDK	A3,LINH
	RF	LMPON 
LINHOF	LDK	A3,LINH
	RF	LMPOF 
LERRON	LDK	A3,LERR
	RF	LMPON 
LERROF	LDK	A3,LERR
	RF	LMPOF 
LSAVON	LDK	A3,LSAV
	RF	LMPON 
LSAVOF	LDK	A3,LSAV
	RF	LMPOF 
* 
	IFF	KB6272=1		DK2
LMPON	LDK	A7,LON
	RF	SDISP 
LMPOF	LDK	A7,LOF
	RF	SDISP 
	XIF			DK2
	IFT	KB6272+LMPVDU=1		DK5 
LMPON	LDK	A7,LON		DK5 
	RF	SDISP		DK5
LMPOF	LDK	A7,LOF		DK5 
	RF	SDISP		DK5
	XIF			DK5
	IFT	KB6272+LMPVDU=2		DK2+5 
LMPON	ORS	A3,LAMSAV,TCABAS		DK2 
	RF	SDISP		DK2
LMPOF	C1R	A3,A3		DK2
	ANS	A3,LAMSAV,TCABAS		DK2
	RF	SDISP		DK2
	XIF			DK2
	 

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

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

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

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


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

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


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

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

0x0000…0022 (0, 0, 400)   Head {h00=0x001e, h01=0x0050, text=» IDENT START DK7 821005/GF«, t00=0x0000, t01=0x0004}
0x0022…002a               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0026}
0x002a…004e               Head {h00=0x0020, h01=0x0050, text=»   DK7,READ MODIFIED, 821002«, t00=0x0000, t01=0x002e}
0x004e…0070               Head {h00=0x001e, h01=0x0050, text=»   =1, ODD BUFFER ADDRESS «, t00=0x0000, t01=0x0052}
0x0070…008c               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0074}
0x008c…00a6               Head {h00=0x0016, h01=0x0050, text=»   =2, 6234 LAMPS «, t00=0x0000, t01=0x0090}
0x00a6…00c2               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x00aa}
0x00c2…00e0               Head {h00=0x001a, h01=0x0050, text=»   =3, UNDEFINED LABEL«, t00=0x0000, t01=0x00c6}
0x00e0…00fc               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x00e4}
0x00fc…012e               Head {h00=0x002e, h01=0x0050, text=»   =4, CURSOR STOPS AT LAST POS. EACH LINE«, t00=0x0000, t01=0x0100}
0x012e…014a               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0132}
0x014a…016e               Head {h00=0x0020, h01=0x0050, text=»   =5, RESET KEY FOR KB6235 «, t00=0x0000, t01=0x014e}
0x016e…018a               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0172}
0x018a…01b0               Head {h00=0x0022, h01=0x0050, text=»   DK6 DUP FIELD, LENGTH=1 DK6«, t00=0x0000, t01=0x018e}
0x01b0…01da               Head {h00=0x0026, h01=0x0050, text=»   DK5 - LMPVDU=1, 6272 ON VDU DK5«, t00=0x0001, t01=0x0024}
0x01da…0204               Head {h00=0x0026, h01=0x0050, text=»   DK4 - FIELD SEPARATOR 6234 DK4 «, t00=0x0001, t01=0x004e}
0x0204…0220               Head {h00=0x0018, h01=0x0050, text=»   DK3 - PA 4-9 DK3 «, t00=0x0001, t01=0x0078}
0x0220…0246               Head {h00=0x0022, h01=0x0050, text=»   DK2 - LAMPMODULE, 6272 DK2 «, t00=0x0001, t01=0x0094}
0x0246…0264               Head {h00=0x001a, h01=0x0050, text=»   DK1 - NUM COMMA DK1«, t00=0x0001, t01=0x00ba}
0x0264…02aa               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0001, t01=0x00d8}
0x02aa…02b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011e}
0x02b4…0300               Head {h00=0x0048, h01=0x0050, text=»*   S T A R T  :  MODULE HANDLING KEYBOARD INPUT.KEYBOARD INITIATED «, t00=0x0001, t01=0x0128}
0x0300…034c               Head {h00=0x0048, h01=0x0050, text=»*                 MESSAGES ADDRESSED TO THE MAIN FRAME ARE COMPOSED «, t00=0x0001, t01=0x0174}
0x034c…0392               Head {h00=0x0042, h01=0x0050, text=»*                 AND SENT BY USING ROUTINES IN MODULE VDUPRT.«, t00=0x0002, t01=0x0030}
0x0392…039c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0076}
0x039c…03ee               Head {h00=0x004e, h01=0x0050, text=»**************************************************************************«, t00=0x0002, t01=0x0080}
0x03ee…03f6               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00d2}
0x03f6…03fe               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00da}
0x03fe…0406               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00e2}
0x0406…040e               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00ea}
0x040e…0418               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0002, t01=0x00f2}
0x0418…0422               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fc}
0x0422…042c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0106}
0x042c…0446               Head {h00=0x0016, h01=0x0050, text=»* ENTRY PARAMETERS«, t00=0x0002, t01=0x0110}
0x0446…0450               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012a}
0x0450…045a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0134}
0x045a…0464               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013e}
0x0464…0488               Head {h00=0x0020, h01=0x0050, text=» ENTRY LINHON,LINHOF,ATMASB «, t00=0x0002, t01=0x0148}
0x0488…04a4               Head {h00=0x0018, h01=0x0050, text=» ENTRY LSAVOF,LSAVON«, t00=0x0002, t01=0x016c}
0x04a4…04b8               Head {h00=0x0010, h01=0x0050, text=» ENTRY EMULA«, t00=0x0002, t01=0x0188}
0x04b8…04e2               Head {h00=0x0026, h01=0x0050, text=» ENTRY LIOLON TURN ON OFFLINE LAMP«, t00=0x0003, t01=0x000c}
0x04e2…050e               Head {h00=0x0028, h01=0x0050, text=» ENTRY LIOLOF TURN OFF OFFLINE LAMP «, t00=0x0003, t01=0x0036}
0x050e…0532               Head {h00=0x0020, h01=0x0050, text=» ENTRY VDUKB KB3270 (CREDIT)«, t00=0x0003, t01=0x0062}
0x0532…0548               Head {h00=0x0012, h01=0x0050, text=» ENTRY DCTASK «, t00=0x0003, t01=0x0086}
0x0548…055e               Head {h00=0x0012, h01=0x0050, text=» ENTRY DC1INQ «, t00=0x0003, t01=0x009c}
0x055e…0574               Head {h00=0x0012, h01=0x0050, text=» ENTRY DC2INQ «, t00=0x0003, t01=0x00b2}
0x0574…059c               Head {h00=0x0024, h01=0x0050, text=» ENTRY REQTIM SET REQUEST TIMER «, t00=0x0003, t01=0x00c8}
0x059c…05b2               Head {h00=0x0012, h01=0x0050, text=» ENTRY ICWRTE «, t00=0x0003, t01=0x00f0}
0x05b2…05cc               Head {h00=0x0016, h01=0x0050, text=» ENTRY READMY  DK7«, t00=0x0003, t01=0x0106}
0x05cc…05d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0120}
0x05d6…05e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x012a}
0x05e0…05ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0134}
0x05ea…060c               Head {h00=0x001e, h01=0x0050, text=»*     EXTERNAL REFERENSES «, t00=0x0003, t01=0x013e}
0x060c…0616               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0160}
0x0616…0620               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016a}
0x0620…062a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0174}
0x062a…063e               Head {h00=0x0010, h01=0x0050, text=» EXTRN DCINP«, t00=0x0003, t01=0x017e}
0x063e…0654 (4, 0, 400)   Head {h00=0x0012, h01=0x0050, text=» EXTRN DCGETM «, t00=0x0004, t01=0x0004}
0x0654…066a               Head {h00=0x0012, h01=0x0050, text=» EXTRN ICREAD «, t00=0x0004, t01=0x001a}
0x066a…0680               Head {h00=0x0012, h01=0x0050, text=» EXTRN GTRBUF «, t00=0x0004, t01=0x0030}
0x0680…0696               Head {h00=0x0012, h01=0x0050, text=» EXTRN RLRBUF «, t00=0x0004, t01=0x0046}
0x0696…06b2               Head {h00=0x0018, h01=0x0050, text=» EXTRN ERASE VDUPRT «, t00=0x0004, t01=0x005c}
0x06b2…06c6               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPF «, t00=0x0004, t01=0x0078}
0x06c6…06dc               Head {h00=0x0012, h01=0x0050, text=» EXTRN SETCUR «, t00=0x0004, t01=0x008c}
0x06dc…06f0               Head {h00=0x0010, h01=0x0050, text=» EXTRN WCHAR«, t00=0x0004, t01=0x00a2}
0x06f0…0704               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPA «, t00=0x0004, t01=0x00b6}
0x0704…071a               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUA «, t00=0x0004, t01=0x00ca}
0x071a…072e               Head {h00=0x0010, h01=0x0050, text=» EXTRN DISPL«, t00=0x0004, t01=0x00e0}
0x072e…0744               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUP «, t00=0x0004, t01=0x00f4}
0x0744…074e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x010a}
0x074e…0782               Head {h00=0x0030, h01=0x0050, text=» EXTRN KEYCNV KEY CONVERSION IF NOT PTS 6272«, t00=0x0004, t01=0x0114}
0x0782…0798               Head {h00=0x0012, h01=0x0050, text=» EXTRN TASCII «, t00=0x0004, t01=0x0148}
0x0798…07a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x015e}
0x07a2…07d2               Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0004, t01=0x0168}
0x07d2…07fc               Head {h00=0x0026, h01=0x0050, text=» EXTRN I:RT1 RETURN TO CREDIT CODE«, t00=0x0005, t01=0x0008}
0x07fc…0806               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0005, t01=0x0032}
0x0806…080e               Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x003c}
0x080e…0816               Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0044}
0x0816…0858               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0005, t01=0x004c}
0x0858…0862               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x008e}
0x0862…0882               Head {h00=0x001c, h01=0x0050, text=»*   CONDITIONAL ASSEMBLY«, t00=0x0005, t01=0x0098}
0x0882…088c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b8}
0x088c…08b6               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0005, t01=0x00c2}
0x08b6…08be               Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00ec}
0x08be…08c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f4}
0x08c8…0912               Head {h00=0x0046, h01=0x0050, text=»KB6272 EQU 0 IF PTS 6272 (6236) IS NOT USED YOU MUST USE 'KEYCNV' «, t00=0x0005, t01=0x00fe}
0x0912…0946               Head {h00=0x0030, h01=0x0050, text=»   USE THE KEY CONVERSION TABLE IN 'TB3270' «, t00=0x0005, t01=0x0148}
0x0946…097a               Head {h00=0x0030, h01=0x0050, text=»KEYLST EQU 0 KEY LOCK STATUS SAVED IN 'KEYS'«, t00=0x0005, t01=0x017c}
0x097a…098e               Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 1 «, t00=0x0006, t01=0x0020}
0x098e…09c0               Head {h00=0x002e, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1 OR 2)«, t00=0x0006, t01=0x0034}
0x09c0…09d2               Head {h00=0x000e, h01=0x0050, text=»PFX EQU 1 «, t00=0x0006, t01=0x0066}
0x09d2…09e4               Head {h00=0x000e, h01=0x0050, text=»PAX EQU 1 «, t00=0x0006, t01=0x0078}
0x09e4…0a10               Head {h00=0x0028, h01=0x0050, text=»IN:DL EQU 1 INSERT&DELETE FUNCTIONS «, t00=0x0006, t01=0x008a}
0x0a10…0a4c               Head {h00=0x0038, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 «, t00=0x0006, t01=0x00b6}
0x0a4c…0a70               Head {h00=0x0020, h01=0x0050, text=»COPL EQU 1 COPY LOCK IF := 1«, t00=0x0006, t01=0x00f2}
0x0a70…0a9a               Head {h00=0x0026, h01=0x0050, text=»LMPVDU EQU 0 =1, 6272 ON 6346 DK5 «, t00=0x0006, t01=0x0116}
0x0a9a…0abe               Head {h00=0x0020, h01=0x0050, text=»   =0, 6272 ON SELECTOR DK5 «, t00=0x0006, t01=0x0140}
0x0abe…0ae6               Head {h00=0x0024, h01=0x0050, text=»PA49 EQU 1 =1, PA4-9 ALLOWED DK3«, t00=0x0006, t01=0x0164}
0x0ae6…0af0               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0006, t01=0x018c}
0x0af0…0afa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0008}
0x0afa…0b04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0012}
0x0b04…0b1a               Head {h00=0x0012, h01=0x0050, text=»*     EQUATES «, t00=0x0007, t01=0x001c}
0x0b1a…0b24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0032}
0x0b24…0b42               Head {h00=0x001a, h01=0x0050, text=»RSET EQU /B2 RESET KEY«, t00=0x0007, t01=0x003c}
0x0b42…0b68               Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0007, t01=0x005a}
0x0b68…0b72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0080}
0x0b72…0b7a               Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x008a}
0x0b7a…0b8e               Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0007, t01=0x0092}
0x0b8e…0ba2               Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0007, t01=0x00a6}
0x0ba2…0bb6               Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0007, t01=0x00ba}
0x0bb6…0bca               Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0007, t01=0x00ce}
0x0bca…0bde               Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0007, t01=0x00e2}
0x0bde…0be8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f6}
0x0be8…0bf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0100}
0x0bf2…0c0c               Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0007, t01=0x010a}
0x0c0c…0c16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0124}
0x0c16…0c20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012e}
0x0c20…0c3c               Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0007, t01=0x0138}
0x0c3c…0c46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0154}
0x0c46…0c50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015e}
0x0c50…0c62               Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0007, t01=0x0168}
0x0c62…0c6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017a}
0x0c6c…0c86               Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0007, t01=0x0184}
0x0c86…0c9a               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0008, t01=0x000e}
0x0c9a…0cb0               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0008, t01=0x0022}
0x0cb0…0ccc               Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0008, t01=0x0038}
0x0ccc…0cea               Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0008, t01=0x0054}
0x0cea…0d08               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x0072}
0x0d08…0d14               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0090}
0x0d14…0d28               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0008, t01=0x009c}
0x0d28…0d3e               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x00b0}
0x0d3e…0d5a               Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0008, t01=0x00c6}
0x0d5a…0d78               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0008, t01=0x00e2}
0x0d78…0d84               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0100}
0x0d84…0d98               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x010c}
0x0d98…0dae               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0008, t01=0x0120}
0x0dae…0dca               Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0008, t01=0x0136}
0x0dca…0de8               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x0152}
0x0de8…0df4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0170}
0x0df4…0e08               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x017c}
0x0e08…0e1e               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x0190}
0x0e1e…0e3a               Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0009, t01=0x0016}
0x0e3a…0e46               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x0032}
0x0e46…0e64               Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0009, t01=0x003e}
0x0e64…0e80               Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0009, t01=0x005c}
0x0e80…0e9c               Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0009, t01=0x0078}
0x0e9c…0ea6               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0009, t01=0x0094}
0x0ea6…0eb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009e}
0x0eb0…0eba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a8}
0x0eba…0ee0               Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0009, t01=0x00b2}
0x0ee0…0eea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d8}
0x0eea…0f00               Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0009, t01=0x00e2}
0x0f00…0f1a               Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0009, t01=0x00f8}
0x0f1a…0f24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0112}
0x0f24…0f2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011c}
0x0f2e…0f4a               Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0009, t01=0x0126}
0x0f4a…0f54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0142}
0x0f54…0f68               Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0009, t01=0x014c}
0x0f68…0f84               Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0009, t01=0x0160}
0x0f84…0fb0               Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0009, t01=0x017c}
0x0fb0…0fe4               Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x000a, t01=0x0018}
0x0fe4…1012               Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x000a, t01=0x004c}
0x1012…102e               Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x000a, t01=0x007a}
0x102e…1058               Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x000a, t01=0x0096}
0x1058…108a               Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x000a, t01=0x00c0}
0x108a…10b2               Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x000a, t01=0x00f2}
0x10b2…10e6               Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x000a, t01=0x011a}
0x10e6…111c               Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x000a, t01=0x014e}
0x111c…114c               Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000a, t01=0x0184}
0x114c…1174               Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000b, t01=0x0024}
0x1174…11a0               Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000b, t01=0x004c}
0x11a0…11ce               Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000b, t01=0x0078}
0x11ce…11f0               Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000b, t01=0x00a6}
0x11f0…121a               Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000b, t01=0x00c8}
0x121a…1242               Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000b, t01=0x00f2}
0x1242…1274               Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000b, t01=0x011a}
0x1274…12aa               Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000b, t01=0x014c}
0x12aa…12e2               Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000b, t01=0x0182}
0x12e2…1316               Head {h00=0x0030, h01=0x0050, text=»LAMSAV EQU RDMORE+2 SAVE AREA FOR LAMPS DK2 «, t00=0x000c, t01=0x002a}
0x1316…1320               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x000c, t01=0x005e}
0x1320…1344               Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x000c, t01=0x0068}
0x1344…135a               Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x000c, t01=0x008c}
0x135a…136e               Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x000c, t01=0x00a2}
0x136e…139c               Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHAR DISPLAY 6344 «, t00=0x000c, t01=0x00b6}
0x139c…13c2               Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000c, t01=0x00e4}
0x13c2…13f0               Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000c, t01=0x010a}
0x13f0…13fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0138}
0x13fa…1424               Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000c, t01=0x0142}
0x1424…142e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x016c}
0x142e…1454               Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000c, t01=0x0176}
0x1454…147e               Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000d, t01=0x000c}
0x147e…1488               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0036}
0x1488…14be               Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000d, t01=0x0040}
0x14be…14f4               Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000d, t01=0x0076}
0x14f4…1508               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000d, t01=0x00ac}
0x1508…1524               Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000d, t01=0x00c0}
0x1524…1540               Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000d, t01=0x00dc}
0x1540…154c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00f8}
0x154c…1556               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x000d, t01=0x0104}
0x1556…1560               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010e}
0x1560…1592               Head {h00=0x002e, h01=0x0050, text=»* KEY TABLE FIXED ENTRY FOR EACH FUNCTION «, t00=0x000d, t01=0x0118}
0x1592…159c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x014a}
0x159c…15b0               Head {h00=0x0010, h01=0x0050, text=»KEYTAB EQU *«, t00=0x000d, t01=0x0154}
0x15b0…15c8               Head {h00=0x0014, h01=0x0050, text=» DATA CHAR SPACE«, t00=0x000d, t01=0x0168}
0x15c8…15dc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR !«, t00=0x000d, t01=0x0180}
0x15dc…15f0 (14, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» DATA CHAR "«, t00=0x000e, t01=0x0004}
0x15f0…1604               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR #«, t00=0x000e, t01=0x0018}
0x1604…1618               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR $«, t00=0x000e, t01=0x002c}
0x1618…162c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR %«, t00=0x000e, t01=0x0040}
0x162c…1658               Head {h00=0x0028, h01=0x0050, text=» DATA CHARFS &  FIELD SEPARATOR DK4 «, t00=0x000e, t01=0x0054}
0x1658…166c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR '«, t00=0x000e, t01=0x0080}
0x166c…1680               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR («, t00=0x000e, t01=0x0094}
0x1680…1694               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR )«, t00=0x000e, t01=0x00a8}
0x1694…16a8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR *«, t00=0x000e, t01=0x00bc}
0x16a8…16bc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR +«, t00=0x000e, t01=0x00d0}
0x16bc…16d2               Head {h00=0x0012, h01=0x0050, text=» DATA NUM , DK«, t00=0x000e, t01=0x00e4}
0x16d2…16e6               Head {h00=0x0010, h01=0x0050, text=» DATA NUM - «, t00=0x000e, t01=0x00fa}
0x16e6…16fa               Head {h00=0x0010, h01=0x0050, text=» DATA NUM . «, t00=0x000e, t01=0x010e}
0x16fa…170e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR /«, t00=0x000e, t01=0x0122}
0x170e…1718               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0136}
0x1718…172a               Head {h00=0x000e, h01=0x0050, text=» DATA NUM «, t00=0x000e, t01=0x0140}
0x172a…173e               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 1 «, t00=0x000e, t01=0x0152}
0x173e…1752               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 2 «, t00=0x000e, t01=0x0166}
0x1752…1766               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 3 «, t00=0x000e, t01=0x017a}
0x1766…177a               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 4 «, t00=0x000e, t01=0x018e}
0x177a…178e               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 5 «, t00=0x000f, t01=0x0012}
0x178e…17a2               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 6 «, t00=0x000f, t01=0x0026}
0x17a2…17b6               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 7 «, t00=0x000f, t01=0x003a}
0x17b6…17ca               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 8 «, t00=0x000f, t01=0x004e}
0x17ca…17de               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 9 «, t00=0x000f, t01=0x0062}
0x17de…17f2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR :«, t00=0x000f, t01=0x0076}
0x17f2…1806               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ;«, t00=0x000f, t01=0x008a}
0x1806…181a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR <«, t00=0x000f, t01=0x009e}
0x181a…182e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR =«, t00=0x000f, t01=0x00b2}
0x182e…1842               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR >«, t00=0x000f, t01=0x00c6}
0x1842…1856               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ?«, t00=0x000f, t01=0x00da}
0x1856…1860               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ee}
0x1860…1876               Head {h00=0x0012, h01=0x0050, text=» DATA CHAR E' «, t00=0x000f, t01=0x00f8}
0x1876…188a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR A«, t00=0x000f, t01=0x010e}
0x188a…189e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR B«, t00=0x000f, t01=0x0122}
0x189e…18b2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR C«, t00=0x000f, t01=0x0136}
0x18b2…18c6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR D«, t00=0x000f, t01=0x014a}
0x18c6…18da               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR E«, t00=0x000f, t01=0x015e}
0x18da…18ee               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR F«, t00=0x000f, t01=0x0172}
0x18ee…1902               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR G«, t00=0x000f, t01=0x0186}
0x1902…1916               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR H«, t00=0x0010, t01=0x000a}
0x1916…192a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR I«, t00=0x0010, t01=0x001e}
0x192a…193e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR J«, t00=0x0010, t01=0x0032}
0x193e…1952               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR K«, t00=0x0010, t01=0x0046}
0x1952…1966               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR L«, t00=0x0010, t01=0x005a}
0x1966…197a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR M«, t00=0x0010, t01=0x006e}
0x197a…198e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR N«, t00=0x0010, t01=0x0082}
0x198e…19a2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR O«, t00=0x0010, t01=0x0096}
0x19a2…19ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00aa}
0x19ac…19c0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR P«, t00=0x0010, t01=0x00b4}
0x19c0…19d4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Q«, t00=0x0010, t01=0x00c8}
0x19d4…19e8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR R«, t00=0x0010, t01=0x00dc}
0x19e8…19fc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR S«, t00=0x0010, t01=0x00f0}
0x19fc…1a10               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR T«, t00=0x0010, t01=0x0104}
0x1a10…1a24               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR U«, t00=0x0010, t01=0x0118}
0x1a24…1a38               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR V«, t00=0x0010, t01=0x012c}
0x1a38…1a4c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR W«, t00=0x0010, t01=0x0140}
0x1a4c…1a60               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR X«, t00=0x0010, t01=0x0154}
0x1a60…1a74               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Y«, t00=0x0010, t01=0x0168}
0x1a74…1a88               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Z«, t00=0x0010, t01=0x017c}
0x1a88…1a9c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR [«, t00=0x0010, t01=0x0190}
0x1a9c…1aba               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR BACK SLASH «, t00=0x0011, t01=0x0014}
0x1aba…1ace               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ]«, t00=0x0011, t01=0x0032}
0x1ace…1aec               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR CIRCOMFLEX «, t00=0x0011, t01=0x0046}
0x1aec…1b08               Head {h00=0x0018, h01=0x0050, text=» DATA CHAR UNDERLINE«, t00=0x0011, t01=0x0064}
0x1b08…1b12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0080}
0x1b12…1b3a               Head {h00=0x0024, h01=0x0050, text=» DATA RETURN /60 CANNOT BE USED «, t00=0x0011, t01=0x008a}
0x1b3a…1b58               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR LOWER CASE «, t00=0x0011, t01=0x00b2}
0x1b58…1b6a               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x00d0}
0x1b6a…1b7c               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x00e2}
0x1b7c…1b8e               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x00f4}
0x1b8e…1ba0               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0106}
0x1ba0…1bb2               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0118}
0x1bb2…1bc4               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x012a}
0x1bc4…1bd6               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x013c}
0x1bd6…1be8               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x014e}
0x1be8…1bfa               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0160}
0x1bfa…1c0c               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0172}
0x1c0c…1c1e               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0184}
0x1c1e…1c30               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x0008}
0x1c30…1c42               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x001a}
0x1c42…1c54               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x002c}
0x1c54…1c5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003e}
0x1c5e…1c74               Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0012, t01=0x0048}
0x1c74…1c8e               Head {h00=0x0016, h01=0x0050, text=» DATA KEYL KEYLOCK«, t00=0x0012, t01=0x005e}
0x1c8e…1ca0               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x0078}
0x1ca0…1cb2               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x008a}
0x1cb2…1cc4               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x009c}
0x1cc4…1cd6               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x00ae}
0x1cd6…1ce8               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x00c0}
0x1ce8…1cfa               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x00d2}
0x1cfa…1d0c               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x00e4}
0x1d0c…1d18               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00f6}
0x1d18…1d2e               Head {h00=0x0012, h01=0x0050, text=» IFF KEYLST=1 «, t00=0x0012, t01=0x0102}
0x1d2e…1d42               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0118}
0x1d42…1d56               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x012c}
0x1d56…1d6a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0140}
0x1d6a…1d7e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0154}
0x1d7e…1d92               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0168}
0x1d92…1da6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x017c}
0x1da6…1dba               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0190}
0x1dba…1dce               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0014}
0x1dce…1dda               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0028}
0x1dda…1dfa               Head {h00=0x001c, h01=0x0050, text=» DATA CHAR LOWER CASE X «, t00=0x0013, t01=0x0034}
0x1dfa…1e0c               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0013, t01=0x0054}
0x1e0c…1e1e               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0013, t01=0x0066}
0x1e1e…1e4a               Head {h00=0x0028, h01=0x0050, text=» DATA RETURN /7B-/7F CANNOT BE USED «, t00=0x0013, t01=0x0078}
0x1e4a…1e5e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x00a4}
0x1e5e…1e72               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x00b8}
0x1e72…1e86               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x00cc}
0x1e86…1e9a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x00e0}
0x1e9a…1ea4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f4}
0x1ea4…1eb6               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0013, t01=0x00fe}
0x1eb6…1ec8               Head {h00=0x000e, h01=0x0050, text=» DATA PAEX«, t00=0x0013, t01=0x0110}
0x1ec8…1ed4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0122}
0x1ed4…1ee6               Head {h00=0x000e, h01=0x0050, text=» IFF PAX=1«, t00=0x0013, t01=0x012e}
0x1ee6…1efa               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0140}
0x1efa…1f06               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0154}
0x1f06…1f18               Head {h00=0x000e, h01=0x0050, text=» DATA PA1 «, t00=0x0013, t01=0x0160}
0x1f18…1f2a               Head {h00=0x000e, h01=0x0050, text=» DATA PA2 «, t00=0x0013, t01=0x0172}
0x1f2a…1f3c               Head {h00=0x000e, h01=0x0050, text=» DATA PA3 «, t00=0x0013, t01=0x0184}
0x1f3c…1f66               Head {h00=0x0026, h01=0x0050, text=» DATA PA410 PA4 - PA10 (ALFASKOP) «, t00=0x0014, t01=0x0008}
0x1f66…1f7a               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x0032}
0x1f7a…1f8e               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x0046}
0x1f8e…1fa2               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x005a}
0x1fa2…1fb6               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x006e}
0x1fb6…1fca               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x0082}
0x1fca…1fde               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x0096}
0x1fde…1ff2               Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0014, t01=0x00aa}
0x1ff2…2004               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x0014, t01=0x00be}
0x2004…2016               Head {h00=0x000e, h01=0x0050, text=» DATA PFEX«, t00=0x0014, t01=0x00d0}
0x2016…2022               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00e2}
0x2022…2034               Head {h00=0x000e, h01=0x0050, text=» IFF PFX=1«, t00=0x0014, t01=0x00ee}
0x2034…2048               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0100}
0x2048…2054               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0114}
0x2054…2066               Head {h00=0x000e, h01=0x0050, text=» DATA PF 1«, t00=0x0014, t01=0x0120}
0x2066…2078               Head {h00=0x000e, h01=0x0050, text=» DATA PF 2«, t00=0x0014, t01=0x0132}
0x2078…208a               Head {h00=0x000e, h01=0x0050, text=» DATA PF 3«, t00=0x0014, t01=0x0144}
0x208a…2094               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0156}
0x2094…20a6               Head {h00=0x000e, h01=0x0050, text=» DATA PF 4«, t00=0x0014, t01=0x0160}
0x20a6…20b8               Head {h00=0x000e, h01=0x0050, text=» DATA PF 5«, t00=0x0014, t01=0x0172}
0x20b8…20ca               Head {h00=0x000e, h01=0x0050, text=» DATA PF 6«, t00=0x0014, t01=0x0184}
0x20ca…20dc               Head {h00=0x000e, h01=0x0050, text=» DATA PF 7«, t00=0x0015, t01=0x0008}
0x20dc…20ee               Head {h00=0x000e, h01=0x0050, text=» DATA PF 8«, t00=0x0015, t01=0x001a}
0x20ee…2100               Head {h00=0x000e, h01=0x0050, text=» DATA PF 9«, t00=0x0015, t01=0x002c}
0x2100…2114               Head {h00=0x0010, h01=0x0050, text=» DATA PF 10 «, t00=0x0015, t01=0x003e}
0x2114…2128               Head {h00=0x0010, h01=0x0050, text=» DATA PF 11 «, t00=0x0015, t01=0x0052}
0x2128…213c               Head {h00=0x0010, h01=0x0050, text=» DATA PF 12 «, t00=0x0015, t01=0x0066}
0x213c…216e               Head {h00=0x002e, h01=0x0050, text=» DATA RETURN /99-/A4 RESERVED FOR PF13-24 «, t00=0x0015, t01=0x007a}
0x216e…2182               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00ac}
0x2182…2196               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00c0}
0x2196…21aa               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00d4}
0x21aa…21be               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00e8}
0x21be…21d2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00fc}
0x21d2…21e6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0110}
0x21e6…21f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0124}
0x21f0…2204               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x012e}
0x2204…2218               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0142}
0x2218…222c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0156}
0x222c…2240               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x016a}
0x2240…2254               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x017e}
0x2254…2268 (22, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» DATA ENTER «, t00=0x0016, t01=0x0004}
0x2268…227a               Head {h00=0x000e, h01=0x0050, text=» DATA CRUP«, t00=0x0016, t01=0x0018}
0x227a…228e               Head {h00=0x0010, h01=0x0050, text=» DATA CRLEFT«, t00=0x0016, t01=0x002a}
0x228e…22a2               Head {h00=0x0010, h01=0x0050, text=» DATA CRRIGT«, t00=0x0016, t01=0x003e}
0x22a2…22b6               Head {h00=0x0010, h01=0x0050, text=» DATA CRDOWN«, t00=0x0016, t01=0x0052}
0x22b6…22ca               Head {h00=0x0010, h01=0x0050, text=» DATA BAKTAB«, t00=0x0016, t01=0x0066}
0x22ca…22dc               Head {h00=0x000e, h01=0x0050, text=» DATA TAB «, t00=0x0016, t01=0x007a}
0x22dc…22ee               Head {h00=0x000e, h01=0x0050, text=» DATA CRNL«, t00=0x0016, t01=0x008c}
0x22ee…2302               Head {h00=0x0010, h01=0x0050, text=» DATA RDHOME«, t00=0x0016, t01=0x009e}
0x2302…2316               Head {h00=0x0010, h01=0x0050, text=» DATA ERINPT«, t00=0x0016, t01=0x00b2}
0x2316…232a               Head {h00=0x0010, h01=0x0050, text=» DATA EREOF «, t00=0x0016, t01=0x00c6}
0x232a…2334               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00da}
0x2334…2348               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x0016, t01=0x00e4}
0x2348…235c               Head {h00=0x0010, h01=0x0050, text=» DATA INSERT«, t00=0x0016, t01=0x00f8}
0x235c…2370               Head {h00=0x0010, h01=0x0050, text=» DATA DELETE«, t00=0x0016, t01=0x010c}
0x2370…237c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0120}
0x237c…2390               Head {h00=0x0010, h01=0x0050, text=» IFF IN:DL=1«, t00=0x0016, t01=0x012c}
0x2390…23a4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0140}
0x23a4…23b8               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0154}
0x23b8…23c4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0168}
0x23c4…23d8               Head {h00=0x0010, h01=0x0050, text=» DATA RESET «, t00=0x0016, t01=0x0174}
0x23d8…23ea               Head {h00=0x000e, h01=0x0050, text=» DATA DUP «, t00=0x0016, t01=0x0188}
0x23ea…23fe               Head {h00=0x0010, h01=0x0050, text=» DATA FLDMRK«, t00=0x0017, t01=0x000a}
0x23fe…2410               Head {h00=0x000e, h01=0x0050, text=» DATA COPY«, t00=0x0017, t01=0x001e}
0x2410…2424               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0017, t01=0x0030}
0x2424…2438               Head {h00=0x0010, h01=0x0050, text=» DATA OFLINE«, t00=0x0017, t01=0x0044}
0x2438…2444               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0058}
0x2444…2458               Head {h00=0x0010, h01=0x0050, text=» IFF OFLIN=1«, t00=0x0017, t01=0x0064}
0x2458…246c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0078}
0x246c…2478               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x008c}
0x2478…248c               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0017, t01=0x0098}
0x248c…24a0               Head {h00=0x0010, h01=0x0050, text=» DATA MFCHGE«, t00=0x0017, t01=0x00ac}
0x24a0…24ac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00c0}
0x24ac…24c0               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0017, t01=0x00cc}
0x24c0…24d4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x00e0}
0x24d4…24e0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00f4}
0x24e0…24f4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0100}
0x24f4…2508               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0114}
0x2508…251c               Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:2«, t00=0x0017, t01=0x0128}
0x251c…2530               Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:3«, t00=0x0017, t01=0x013c}
0x2530…2544               Head {h00=0x0010, h01=0x0050, text=» DATA NUMCOM«, t00=0x0017, t01=0x0150}
0x2544…2558               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0164}
0x2558…256c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0178}
0x256c…2580               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x018c}
0x2580…258a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0010}
0x258a…25c4               Head {h00=0x0036, h01=0x0050, text=» DATA LCASPW LOWER CASE P - W (BECAUSE OF KEYLOCK)«, t00=0x0018, t01=0x001a}
0x25c4…25d8               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x0054}
0x25d8…25ec               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x0068}
0x25ec…2600               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x007c}
0x2600…2614               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x0090}
0x2614…2628               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x00a4}
0x2628…263c               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x00b8}
0x263c…2650               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x00cc}
0x2650…265a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0018, t01=0x00e0}
0x265a…26a0               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0018, t01=0x00ea}
0x26a0…26aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0130}
0x26aa…26ce               Head {h00=0x0020, h01=0x0050, text=»* START ADDRESS FOR DC TASKS«, t00=0x0018, t01=0x013a}
0x26ce…2714               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0018, t01=0x015e}
0x2714…271c               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0014}
0x271c…2730               Head {h00=0x0010, h01=0x0050, text=»DCTASK EQU *«, t00=0x0019, t01=0x001c}
0x2730…2746               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0019, t01=0x0030}
0x2746…2770               Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A9 POLL & SELECT ADDRESS «, t00=0x0019, t01=0x0046}
0x2770…2786               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0019, t01=0x0070}
0x2786…279c               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0019, t01=0x0086}
0x279c…27b4               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0019, t01=0x009c}
0x27b4…27dc               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x0019, t01=0x00b4}
0x27dc…27e8               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0019, t01=0x00dc}
0x27e8…27f8               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0019, t01=0x00e8}
0x27f8…280c               Head {h00=0x0010, h01=0x0050, text=»DCT100 EQU *«, t00=0x0019, t01=0x00f8}
0x280c…283e               Head {h00=0x002e, h01=0x0050, text=» LDK A7,/80 TEST IF ANY MESSAGE WITH WAIT «, t00=0x0019, t01=0x010c}
0x283e…284a               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0019, t01=0x013e}
0x284a…285a               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0019, t01=0x014a}
0x285a…2884               Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x0019, t01=0x015a}
0x2884…289a               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0019, t01=0x0184}
0x289a…28b0               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x001a, t01=0x000a}
0x28b0…28c6               Head {h00=0x0012, h01=0x0050, text=» CF A14,DCGETM«, t00=0x001a, t01=0x0020}
0x28c6…28de               Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x001a, t01=0x0036}
0x28de…2904               Head {h00=0x0022, h01=0x0050, text=» CF A14,RLRBUF RELEASE BUFFER «, t00=0x001a, t01=0x004e}
0x2904…2916               Head {h00=0x000e, h01=0x0050, text=» RB DCT100«, t00=0x001a, t01=0x0074}
0x2916…2920               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001a, t01=0x0086}
0x2920…292a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0090}
0x292a…2934               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x009a}
0x2934…2960               Head {h00=0x0028, h01=0x0050, text=»* SUBROUTINE ACTIVATED BY ALL TASKS «, t00=0x001a, t01=0x00a4}
0x2960…296a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00d0}
0x296a…2974               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00da}
0x2974…2988               Head {h00=0x0010, h01=0x0050, text=»EMULA EQU * «, t00=0x001a, t01=0x00e4}
0x2988…29ae               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS GET ECB ADDRESS«, t00=0x001a, t01=0x00f8}
0x29ae…29d6               Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBCW,A8 STORE IN ECBDCT «, t00=0x001a, t01=0x011e}
0x29d6…29fe               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x001a, t01=0x0146}
0x29fe…2a0a               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001a, t01=0x016e}
0x2a0a…2a1a               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001a, t01=0x017a}
0x2a1a…2a2a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x018a}
0x2a2a…2a34               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001b, t01=0x000a}
0x2a34…2a3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0014}
0x2a3e…2a7c               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x001b, t01=0x001e}
0x2a7c…2a86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x005c}
0x2a86…2a9a               Head {h00=0x0010, h01=0x0050, text=»*     VDUKB «, t00=0x001b, t01=0x0066}
0x2a9a…2aa4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x007a}
0x2aa4…2aca               Head {h00=0x0022, h01=0x0050, text=»* MAIN MODULE FOR KEYBOARD VDU«, t00=0x001b, t01=0x0084}
0x2aca…2ad4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00aa}
0x2ad4…2b14               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x001b, t01=0x00b4}
0x2b14…2b28               Head {h00=0x0010, h01=0x0050, text=»VDUKB EQU * «, t00=0x001b, t01=0x00f4}
0x2b28…2b3e               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x001b, t01=0x0108}
0x2b3e…2b68               Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x001b, t01=0x011e}
0x2b68…2b70               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0148}
0x2b70…2b84               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x001b, t01=0x0150}
0x2b84…2b8c               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0164}
0x2b8c…2b94               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x016c}
0x2b94…2bcc               Head {h00=0x0034, h01=0x0050, text=» STR A12,A14 SAVE REGISTERS A12-A13 ON A14 STACK«, t00=0x001b, t01=0x0174}
0x2bcc…2be2               Head {h00=0x0012, h01=0x0050, text=» ST A13,-2,A14«, t00=0x001c, t01=0x001c}
0x2be2…2c0a               Head {h00=0x0024, h01=0x0050, text=» SUKL A14,4 UPDATE STACK POINTER«, t00=0x001c, t01=0x0032}
0x2c0a…2c24               Head {h00=0x0016, h01=0x0050, text=» CM OFFFLG,TCABAS «, t00=0x001c, t01=0x005a}
0x2c24…2c54               Head {h00=0x002c, h01=0x0050, text=» CM LAMSAV,TCABAS CLEAR LAMP STATUS DK2 «, t00=0x001c, t01=0x0074}
0x2c54…2c82               Head {h00=0x002a, h01=0x0050, text=» CF A14,LIOLOF TURN OFF OFF LINE LAMP «, t00=0x001c, t01=0x00a4}
0x2c82…2c8e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00d2}
0x2c8e…2c96               Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x00de}
0x2c96…2ca0               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001c, t01=0x00e6}
0x2ca0…2ce6               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x001c, t01=0x00f0}
0x2ce6…2cf0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0136}
0x2cf0…2d20               Head {h00=0x002c, h01=0x0050, text=»*   TRANSFER PARAMETER FOR MAIN FRAME #1«, t00=0x001c, t01=0x0140}
0x2d20…2d2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0170}
0x2d2a…2d70               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001c, t01=0x017a}
0x2d70…2d78               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0030}
0x2d78…2d9c               Head {h00=0x0020, h01=0x0050, text=» LDR* A4,TCABAS REL TASK NO «, t00=0x001d, t01=0x0038}
0x2d9c…2dc2               Head {h00=0x0022, h01=0x0050, text=» AD A4,6,CREBAS 'CB1' ADDRESS «, t00=0x001d, t01=0x005c}
0x2dc2…2dec               Head {h00=0x0026, h01=0x0050, text=» LC A1,MF1KBV-1,A4 GET DV-ADDRESS «, t00=0x001d, t01=0x0082}
0x2dec…2e00               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001d, t01=0x00ac}
0x2e00…2e16               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001d, t01=0x00c0}
0x2e16…2e2c               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x001d, t01=0x00d6}
0x2e2c…2e34               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x00ec}
0x2e34…2e48               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001d, t01=0x00f4}
0x2e48…2e8e               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001d, t01=0x0108}
0x2e8e…2e98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x014e}
0x2e98…2ec8               Head {h00=0x002c, h01=0x0050, text=»*   TRANSFER PARAMETER FOR MAIN-FRAME #2«, t00=0x001d, t01=0x0158}
0x2ec8…2ed2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0188}
0x2ed2…2f18 (30, 0, 400)  Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001e, t01=0x0004}
0x2f18…2f20               Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x004a}
0x2f20…2f4a               Head {h00=0x0026, h01=0x0050, text=» LC A1,MF2KBV-1,A4 GET DV ADDRESS «, t00=0x001e, t01=0x0052}
0x2f4a…2f5e               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001e, t01=0x007c}
0x2f5e…2f76               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001e, t01=0x0090}
0x2f76…2f8c               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x001e, t01=0x00a8}
0x2f8c…2f98               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00be}
0x2f98…2fa2               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001e, t01=0x00ca}
0x2fa2…2fb6               Head {h00=0x0010, h01=0x0050, text=»VDU080 EQU *«, t00=0x001e, t01=0x00d4}
0x2fb6…2fd8               Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x001e, t01=0x00e8}
0x2fd8…2fe0               Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x010a}
0x2fe0…2ff2               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001e, t01=0x0112}
0x2ff2…300a               Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x001e, t01=0x0124}
0x300a…3044               Head {h00=0x0036, h01=0x0050, text=» ST A1,CURATT,TCABAS INITIATE WITH UNFORM. SCREEN «, t00=0x001e, t01=0x013c}
0x3044…305a               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1ON«, t00=0x001e, t01=0x0176}
0x305a…308a               Head {h00=0x002c, h01=0x0050, text=» CM MAIN,TCABAS INDICATE MAIN-FRAME # 1 «, t00=0x001e, t01=0x018c}
0x308a…3094               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001f, t01=0x002c}
0x3094…309e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0036}
0x309e…30be               Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x001f, t01=0x0040}
0x30be…30ce               Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x001f, t01=0x0060}
0x30ce…30e0               Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x001f, t01=0x0070}
0x30e0…30f4               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001f, t01=0x0082}
0x30f4…310a               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x001f, t01=0x0096}
0x310a…311c               Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x001f, t01=0x00ac}
0x311c…312e               Head {h00=0x000e, h01=0x0050, text=»ICR EQU 8 «, t00=0x001f, t01=0x00be}
0x312e…3142               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 4 «, t00=0x001f, t01=0x00d0}
0x3142…314e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00e4}
0x314e…3162               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001f, t01=0x00f0}
0x3162…3178               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x001f, t01=0x0104}
0x3178…318a               Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x001f, t01=0x011a}
0x318a…319e               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 3 «, t00=0x001f, t01=0x012c}
0x319e…31aa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0140}
0x31aa…31be               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x001f, t01=0x014c}
0x31be…31d4               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x001f, t01=0x0160}
0x31d4…31e6               Head {h00=0x000e, h01=0x0050, text=»ICR EQU 6 «, t00=0x001f, t01=0x0176}
0x31e6…31fa               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 3 «, t00=0x001f, t01=0x0188}
0x31fa…3206               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x000c}
0x3206…321a               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0020, t01=0x0018}
0x321a…3230               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0020, t01=0x002c}
0x3230…3244               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 2 «, t00=0x0020, t01=0x0042}
0x3244…3250               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0056}
0x3250…325a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0062}
0x325a…3270               Head {h00=0x0012, h01=0x0050, text=» LDK A1,ECBBS «, t00=0x0020, t01=0x006c}
0x3270…328c               Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBLK,TCABAS«, t00=0x0020, t01=0x0082}
0x328c…32a0               Head {h00=0x0010, h01=0x0050, text=»VDU100 EQU *«, t00=0x0020, t01=0x009e}
0x32a0…32c0               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC1,TCABAS«, t00=0x0020, t01=0x00b2}
0x32c0…32de               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU110 PENDING«, t00=0x0020, t01=0x00d2}
0x32de…3312               Head {h00=0x0030, h01=0x0050, text=» CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT «, t00=0x0020, t01=0x00f0}
0x3312…3326               Head {h00=0x0010, h01=0x0050, text=»VDU110 EQU *«, t00=0x0020, t01=0x0124}
0x3326…333a               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0020, t01=0x0138}
0x333a…335a               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x0020, t01=0x014c}
0x335a…3378               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU120 PENDING«, t00=0x0020, t01=0x016c}
0x3378…33b2               Head {h00=0x0036, h01=0x0050, text=» CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT«, t00=0x0020, t01=0x018a}
0x33b2…33be               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0034}
0x33be…33d2               Head {h00=0x0010, h01=0x0050, text=»VDU120 EQU *«, t00=0x0021, t01=0x0040}
0x33d2…33e8               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0021, t01=0x0054}
0x33e8…3408               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+ICR,TCABAS«, t00=0x0021, t01=0x006a}
0x3408…3426               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU125 PENDING«, t00=0x0021, t01=0x008a}
0x3426…3444               Head {h00=0x001a, h01=0x0050, text=» LDKL A3,ICWORK BUFFER«, t00=0x0021, t01=0x00a8}
0x3444…3464               Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS   ADDRESS«, t00=0x0021, t01=0x00c6}
0x3464…3480               Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x0021, t01=0x00e6}
0x3480…3496               Head {h00=0x0012, h01=0x0050, text=» CF A14,ICREAD«, t00=0x0021, t01=0x0102}
0x3496…34b6               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+ICR,TCABAS«, t00=0x0021, t01=0x0118}
0x34b6…34c2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0138}
0x34c2…34d6               Head {h00=0x0010, h01=0x0050, text=»VDU125 EQU *«, t00=0x0021, t01=0x0144}
0x34d6…34f6               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+KB,TCABAS «, t00=0x0021, t01=0x0158}
0x34f6…3514               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU150 PENDING«, t00=0x0021, t01=0x0178}
0x3514…3540               Head {h00=0x0028, h01=0x0050, text=» CF A14,RDKBNW READ KEYBOARD NO WAIT«, t00=0x0022, t01=0x0008}
0x3540…3554               Head {h00=0x0010, h01=0x0050, text=»VDU150 EQU *«, t00=0x0022, t01=0x0034}
0x3554…356c               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0022, t01=0x0048}
0x356c…3582               Head {h00=0x0012, h01=0x0050, text=» ADR A7,TCABAS«, t00=0x0022, t01=0x0060}
0x3582…358e               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0022, t01=0x0076}
0x358e…35ac               Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x0022, t01=0x0082}
0x35ac…35cc               Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+KB,TCABAS «, t00=0x0022, t01=0x00a0}
0x35cc…35f4               Head {h00=0x0024, h01=0x0050, text=» RF(E) KBINP INPUT FROM KEYBOARD«, t00=0x0022, t01=0x00c0}
0x35f4…360a               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0022, t01=0x00e8}
0x360a…362a               Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+ICR,TCABAS«, t00=0x0022, t01=0x00fe}
0x362a…3656               Head {h00=0x0028, h01=0x0050, text=» RF(E) BUFCOP SEND BUFFER TO PRINTER«, t00=0x0022, t01=0x011e}
0x3656…3662               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x014a}
0x3662…36a0               Head {h00=0x003a, h01=0x0050, text=» ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ«, t00=0x0022, t01=0x0156}
0x36a0…36c4 (35, 0, 400)  Head {h00=0x0020, h01=0x0050, text=» CF A14,DCINP INPUT FROM DC «, t00=0x0023, t01=0x0004}
0x36c4…36d6               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0023, t01=0x0028}
0x36d6…36e0               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0023, t01=0x003a}
0x36e0…36ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0044}
0x36ea…370e               Head {h00=0x0020, h01=0x0050, text=»* READ KEYBOARD WITH NO WAIT«, t00=0x0023, t01=0x004e}
0x370e…3718               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0072}
0x3718…372c               Head {h00=0x0010, h01=0x0050, text=»RDKBNW EQU *«, t00=0x0023, t01=0x007c}
0x372c…3742               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x0023, t01=0x0090}
0x3742…3758               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0023, t01=0x00a6}
0x3758…376a               Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0023, t01=0x00bc}
0x376a…3790               Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 1«, t00=0x0023, t01=0x00ce}
0x3790…37be               Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 INDICATE NOT POWER OFF«, t00=0x0023, t01=0x00f4}
0x37be…37de               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+KB,TCABAS «, t00=0x0023, t01=0x0122}
0x37de…37f0               Head {h00=0x000e, h01=0x0050, text=» RF DC1I30«, t00=0x0023, t01=0x0142}
0x37f0…37fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0154}
0x37fa…381a               Head {h00=0x001c, h01=0x0050, text=»* TEST IF ANY MESSAGE DC«, t00=0x0023, t01=0x015e}
0x381a…3824               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x017e}
0x3824…3838               Head {h00=0x0010, h01=0x0050, text=»DC1INQ EQU *«, t00=0x0023, t01=0x0188}
0x3838…384e               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0024, t01=0x000c}
0x384e…3864               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0024, t01=0x0022}
0x3864…3884               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+DC1,TCABAS«, t00=0x0024, t01=0x0038}
0x3884…3898               Head {h00=0x0010, h01=0x0050, text=»DC1I20 EQU *«, t00=0x0024, t01=0x0058}
0x3898…38aa               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0024, t01=0x006c}
0x38aa…38c0               Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0024, t01=0x007e}
0x38c0…38d2               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0024, t01=0x0094}
0x38d2…38e6               Head {h00=0x0010, h01=0x0050, text=»DC1I30 EQU *«, t00=0x0024, t01=0x00a6}
0x38e6…38f2               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0024, t01=0x00ba}
0x38f2…3902               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0024, t01=0x00c6}
0x3902…3912               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x00d6}
0x3912…3926               Head {h00=0x0010, h01=0x0050, text=»DC2INQ EQU *«, t00=0x0024, t01=0x00e6}
0x3926…393a               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0024, t01=0x00fa}
0x393a…3952               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x0024, t01=0x010e}
0x3952…3968               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0024, t01=0x0126}
0x3968…3988               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+DC2,TCABAS«, t00=0x0024, t01=0x013c}
0x3988…399a               Head {h00=0x000e, h01=0x0050, text=» RB DC1I20«, t00=0x0024, t01=0x015c}
0x399a…39a6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x016e}
0x39a6…39bc               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0024, t01=0x017a}
0x39bc…39c6               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0024, t01=0x0190}
0x39c6…39d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x000a}
0x39d0…39f6               Head {h00=0x0022, h01=0x0050, text=»* SEND BUFFER TO PRINTER TASK «, t00=0x0025, t01=0x0014}
0x39f6…3a00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x003a}
0x3a00…3a14               Head {h00=0x0010, h01=0x0050, text=»BUFCOP EQU *«, t00=0x0025, t01=0x0044}
0x3a14…3a32               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0025, t01=0x0058}
0x3a32…3a4e               Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x0025, t01=0x0076}
0x3a4e…3a6e               Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS   ADDRESS«, t00=0x0025, t01=0x0092}
0x3a6e…3a82               Head {h00=0x0010, h01=0x0050, text=» IFT COPL=1 «, t00=0x0025, t01=0x00b2}
0x3a82…3a8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00c6}
0x3a8c…3aa8               Head {h00=0x0018, h01=0x0050, text=»* CHECK IF COPY LOCK«, t00=0x0025, t01=0x00d0}
0x3aa8…3ab2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ec}
0x3ab2…3ac4               Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0025, t01=0x00f6}
0x3ac4…3ad8               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/18 «, t00=0x0025, t01=0x0108}
0x3ad8…3aec               Head {h00=0x0010, h01=0x0050, text=» XRK A2,/10 «, t00=0x0025, t01=0x011c}
0x3aec…3b0c               Head {h00=0x001c, h01=0x0050, text=» RB(Z) VDU100 DON'T COPY«, t00=0x0025, t01=0x0130}
0x3b0c…3b18               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0150}
0x3b18…3b2e               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0025, t01=0x015c}
0x3b2e…3b62               Head {h00=0x0030, h01=0x0050, text=» LDK A4,/8B ORDER: WRITE ADDRESSED WITH WAIT«, t00=0x0025, t01=0x0172}
0x3b62…3b86               Head {h00=0x0020, h01=0x0050, text=» LD A5,ICWORK,TCABAS TASK ID«, t00=0x0026, t01=0x0016}
0x3b86…3ba8               Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x0026, t01=0x003a}
0x3ba8…3bbe               Head {h00=0x0012, h01=0x0050, text=» CF A14,ICWRTE«, t00=0x0026, t01=0x005c}
0x3bbe…3bda               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0026, t01=0x0072}
0x3bda…3c06               Head {h00=0x0028, h01=0x0050, text=» ANK A1,/E NOT INHIBITED ANY LONGER «, t00=0x0026, t01=0x008e}
0x3c06…3c22               Head {h00=0x0018, h01=0x0050, text=» ST A1,KBINH,TCABAS «, t00=0x0026, t01=0x00ba}
0x3c22…3c34               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0026, t01=0x00d6}
0x3c34…3c40               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00e8}
0x3c40…3c4a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0026, t01=0x00f4}
0x3c4a…3c64               Head {h00=0x0016, h01=0x0050, text=»** KEYBOARD INPUT «, t00=0x0026, t01=0x00fe}
0x3c64…3c6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0118}
0x3c6e…3c82               Head {h00=0x0010, h01=0x0050, text=»KBINP EQU * «, t00=0x0026, t01=0x0122}
0x3c82…3c9e               Head {h00=0x0018, h01=0x0050, text=» CM ECBBLK+KB,TCABAS«, t00=0x0026, t01=0x0136}
0x3c9e…3cb6               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A8 «, t00=0x0026, t01=0x0152}
0x3cb6…3cd6               Head {h00=0x001c, h01=0x0050, text=» RF(Z) KBIN05 POWER OFF «, t00=0x0026, t01=0x016a}
0x3cd6…3cee               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRC,A8 «, t00=0x0026, t01=0x018a}
0x3cee…3d04               Head {h00=0x0012, h01=0x0050, text=» RF(0) KBIN10 «, t00=0x0027, t01=0x0012}
0x3d04…3d18               Head {h00=0x0010, h01=0x0050, text=»KBIN05 EQU *«, t00=0x0027, t01=0x0028}
0x3d18…3d40               Head {h00=0x0024, h01=0x0050, text=» LDK A7,4 RESET KEYBOARD BUFFER «, t00=0x0027, t01=0x003c}
0x3d40…3d4c               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0027, t01=0x0064}
0x3d4c…3d5c               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0027, t01=0x0070}
0x3d5c…3d6e               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0027, t01=0x0080}
0x3d6e…3d82               Head {h00=0x0010, h01=0x0050, text=»KBIN10 EQU *«, t00=0x0027, t01=0x0092}
0x3d82…3d9e               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0027, t01=0x00a6}
0x3d9e…3dce               Head {h00=0x002c, h01=0x0050, text=» ANK A1,1 RESETTING BY 'RESET' ALLOWED ?«, t00=0x0027, t01=0x00c2}
0x3dce…3de8               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) KBIN05 NO «, t00=0x0027, t01=0x00f2}
0x3de8…3e14               Head {h00=0x0028, h01=0x0050, text=» LC* A2,ECBBA,A8 GET INPUT CHARACTER«, t00=0x0027, t01=0x010c}
0x3e14…3e2e               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  =5 «, t00=0x0027, t01=0x0138}
0x3e2e…3e58               Head {h00=0x0026, h01=0x0050, text=» CF A14,KEYCNV CONVERT KEY CODE =5«, t00=0x0027, t01=0x0152}
0x3e58…3e6a               Head {h00=0x000e, h01=0x0050, text=» XIF   =5 «, t00=0x0027, t01=0x017c}
0x3e6a…3e86               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0027, t01=0x018e}
0x3e86…3eac               Head {h00=0x0022, h01=0x0050, text=» ANK A1,6 MUST BE RESET KEY ? «, t00=0x0028, t01=0x001a}
0x3eac…3ec4               Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN20 NO«, t00=0x0028, t01=0x0040}
0x3ec4…3ee4               Head {h00=0x001c, h01=0x0050, text=» CWK A2,RSET RESET KEY ?«, t00=0x0028, t01=0x0058}
0x3ee4…3efe               Head {h00=0x0016, h01=0x0050, text=» RB(NE) KBIN05 NO «, t00=0x0028, t01=0x0078}
0x3efe…3f12               Head {h00=0x0010, h01=0x0050, text=»KBIN20 EQU *«, t00=0x0028, t01=0x0092}
0x3f12…3f3a               Head {h00=0x0024, h01=0x0050, text=» LDR A5,A2 COPY INPUT CHARACTER «, t00=0x0028, t01=0x00a6}
0x3f3a…3f54               Head {h00=0x0016, h01=0x0050, text=» SUK A5,/20 INDEX «, t00=0x0028, t01=0x00ce}
0x3f54…3f76               Head {h00=0x001e, h01=0x0050, text=» RB(N) VDU100 ILLEGAL CHAR«, t00=0x0028, t01=0x00e8}
0x3f76…3f8a               Head {h00=0x0010, h01=0x0050, text=» CWK A5,/A7 «, t00=0x0028, t01=0x010a}
0x3f8a…3fac               Head {h00=0x001e, h01=0x0050, text=» RB(G) VDU100 ILLEGAL CHAR«, t00=0x0028, t01=0x011e}
0x3fac…3fe4               Head {h00=0x0034, h01=0x0050, text=» CF A14,DCABOR ABORT DC-READ TO ENABLE DC-WRITE «, t00=0x0028, t01=0x0140}
0x3fe4…3ff6               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0028, t01=0x0178}
0x3ff6…4030               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) VDU100 DC COMPLETED, TAKE CARE OF MESSAGE«, t00=0x0028, t01=0x018a}
0x4030…4050               Head {h00=0x001c, h01=0x0050, text=» ADR A5,A5 TO KEY TABLE «, t00=0x0029, t01=0x0034}
0x4050…405a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0054}
0x405a…4072               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0029, t01=0x005e}
0x4072…4088               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0029, t01=0x0076}
0x4088…40a4               Head {h00=0x0018, h01=0x0050, text=» LD A1,RDMORE,TCABAS«, t00=0x0029, t01=0x008c}
0x40a4…40ba               Head {h00=0x0012, h01=0x0050, text=» RF(Z) KBIN30 «, t00=0x0029, t01=0x00a8}
0x40ba…40c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00be}
0x40c4…40d8               Head {h00=0x0010, h01=0x0050, text=» CFR A14,A1 «, t00=0x0029, t01=0x00c8}
0x40d8…40ec               Head {h00=0x0010, h01=0x0050, text=» ABL VDU100 «, t00=0x0029, t01=0x00dc}
0x40ec…40f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00f0}
0x40f6…410a               Head {h00=0x0010, h01=0x0050, text=»KBIN30 EQU *«, t00=0x0029, t01=0x00fa}
0x410a…4148               Head {h00=0x003a, h01=0x0050, text=» CFI A14,KEYTAB,A5 BRANCH TO RESPECTIVE INPUT HANDLER «, t00=0x0029, t01=0x010e}
0x4148…415c               Head {h00=0x0010, h01=0x0050, text=» ABL VDU100 «, t00=0x0029, t01=0x014c}
0x415c…4166               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0029, t01=0x0160}
0x4166…4170               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x016a}
0x4170…419a               Head {h00=0x0026, h01=0x0050, text=»* ABORT DC-REQUEST TO ENABLE WRITE«, t00=0x0029, t01=0x0174}
0x419a…41a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x000e}
0x41a4…41b8               Head {h00=0x0010, h01=0x0050, text=»DCABOR EQU *«, t00=0x002a, t01=0x0018}
0x41b8…41ca               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x002a, t01=0x002c}
0x41ca…41e0               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x002a, t01=0x003e}
0x41e0…41f4               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x002a, t01=0x0054}
0x41f4…420e               Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x002a, t01=0x0068}
0x420e…4224               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCAB05«, t00=0x002a, t01=0x0082}
0x4224…4230               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0098}
0x4230…424e               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x002a, t01=0x00a4}
0x424e…4262               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x002a, t01=0x00c2}
0x4262…4274               Head {h00=0x000e, h01=0x0050, text=» RF DCAB10«, t00=0x002a, t01=0x00d6}
0x4274…4288               Head {h00=0x0010, h01=0x0050, text=»DCAB05 EQU *«, t00=0x002a, t01=0x00e8}
0x4288…42a6               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x002a, t01=0x00fc}
0x42a6…42be               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x002a, t01=0x011a}
0x42be…42d2               Head {h00=0x0010, h01=0x0050, text=»DCAB10 EQU *«, t00=0x002a, t01=0x0132}
0x42d2…42de               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0146}
0x42de…42f4               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x002a, t01=0x0152}
0x42f4…4300               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x0168}
0x4300…4310               Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x002a, t01=0x0174}
0x4310…4320               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x0184}
0x4320…432a (43, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002b, t01=0x0004}
0x432a…4334               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x000e}
0x4334…4350               Head {h00=0x0018, h01=0x0050, text=»* SET REQUEST TIMER «, t00=0x002b, t01=0x0018}
0x4350…436e               Head {h00=0x001a, h01=0x0050, text=»* A1 = TIME OUT VALUE «, t00=0x002b, t01=0x0034}
0x436e…4388               Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x002b, t01=0x0052}
0x4388…4392               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x006c}
0x4392…43a6               Head {h00=0x0010, h01=0x0050, text=»REQTIM EQU *«, t00=0x002b, t01=0x0076}
0x43a6…43be               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x002b, t01=0x008a}
0x43be…43d2               Head {h00=0x0010, h01=0x0050, text=» LDK A7,/B9 «, t00=0x002b, t01=0x00a2}
0x43d2…43de               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002b, t01=0x00b6}
0x43de…43ee               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x002b, t01=0x00c2}
0x43ee…43fe               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002b, t01=0x00d2}
0x43fe…4408               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002b, t01=0x00e2}
0x4408…4410               Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x00ec}
0x4410…441a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00f4}
0x441a…4424               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00fe}
0x4424…4466               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002b, t01=0x0108}
0x4466…4470               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x014a}
0x4470…4480               Head {h00=0x000c, h01=0x0050, text=»* RETURN«, t00=0x002b, t01=0x0154}
0x4480…448a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0164}
0x448a…44d0               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002b, t01=0x016e}
0x44d0…44da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0024}
0x44da…44f0               Head {h00=0x0012, h01=0x0050, text=»RETURN RTN A14«, t00=0x002c, t01=0x002e}
0x44f0…44fa               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002c, t01=0x0044}
0x44fa…4504               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x004e}
0x4504…4544               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002c, t01=0x0058}
0x4544…454e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0098}
0x454e…4562               Head {h00=0x0010, h01=0x0050, text=»*     CRLEFT«, t00=0x002c, t01=0x00a2}
0x4562…456c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00b6}
0x456c…45a6               Head {h00=0x0036, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS TO LEFT«, t00=0x002c, t01=0x00c0}
0x45a6…45b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00fa}
0x45b0…45f0               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002c, t01=0x0104}
0x45f0…45fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0144}
0x45fa…460e               Head {h00=0x0010, h01=0x0050, text=»CRLEFT EQU *«, t00=0x002c, t01=0x014e}
0x460e…463c               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002c, t01=0x0162}
0x463c…464e               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x002c, t01=0x0190}
0x464e…4676               Head {h00=0x0024, h01=0x0050, text=» RF(NN) CRL050 NOT LEFTMOST POS «, t00=0x002d, t01=0x0012}
0x4676…468e               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x002d, t01=0x003a}
0x468e…46a6               Head {h00=0x0014, h01=0x0050, text=»CRL050 RF CRH100«, t00=0x002d, t01=0x0052}
0x46a6…46b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x006a}
0x46b0…46f0               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002d, t01=0x0074}
0x46f0…46fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00b4}
0x46fa…470e               Head {h00=0x0010, h01=0x0050, text=»*     CRRIGT«, t00=0x002d, t01=0x00be}
0x470e…4718               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00d2}
0x4718…4758               Head {h00=0x003c, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS. TO THE RIGHT«, t00=0x002d, t01=0x00dc}
0x4758…4762               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x011c}
0x4762…47a2               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002d, t01=0x0126}
0x47a2…47ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0166}
0x47ac…47c2               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x002d, t01=0x0170}
0x47c2…47cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0186}
0x47cc…47e0               Head {h00=0x0010, h01=0x0050, text=»CRRIGT EQU *«, t00=0x002d, t01=0x0190}
0x47e0…480e               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002e, t01=0x0014}
0x480e…4820               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x002e, t01=0x0042}
0x4820…4844               Head {h00=0x0020, h01=0x0050, text=» CWK A2,LBVDU END OF BUFFER?«, t00=0x002e, t01=0x0054}
0x4844…485c               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRR050 NO«, t00=0x002e, t01=0x0078}
0x485c…486e               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x002e, t01=0x0090}
0x486e…4886               Head {h00=0x0014, h01=0x0050, text=»CRR050 RF CRH100«, t00=0x002e, t01=0x00a2}
0x4886…4890               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002e, t01=0x00ba}
0x4890…489a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00c4}
0x489a…48de               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x002e, t01=0x00ce}
0x48de…48e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0112}
0x48e8…48f8               Head {h00=0x000c, h01=0x0050, text=»* CRDOWN«, t00=0x002e, t01=0x011c}
0x48f8…4902               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x012c}
0x4902…4942               Head {h00=0x003c, h01=0x0050, text=»* THE MODULE MOVES THE CURSOR TO NEXT ROW. SAME COLUMN. «, t00=0x002e, t01=0x0136}
0x4942…494c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0176}
0x494c…4990               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002e, t01=0x0180}
0x4990…499a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0034}
0x499a…49ae               Head {h00=0x0010, h01=0x0050, text=»CRDOWN EQU *«, t00=0x002f, t01=0x003e}
0x49ae…49d8               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x002f, t01=0x0052}
0x49d8…49ee               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LLINE«, t00=0x002f, t01=0x007c}
0x49ee…4a0e               Head {h00=0x001c, h01=0x0050, text=» CWK A2,LBVDU LAST LINE?«, t00=0x002f, t01=0x0092}
0x4a0e…4a26               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRD050 NO«, t00=0x002f, t01=0x00b2}
0x4a26…4a3c               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LBVDU«, t00=0x002f, t01=0x00ca}
0x4a3c…4a54               Head {h00=0x0014, h01=0x0050, text=»CRD050 RF CRH100«, t00=0x002f, t01=0x00e0}
0x4a54…4a5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00f8}
0x4a5e…4aa4               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002f, t01=0x0102}
0x4aa4…4aae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0148}
0x4aae…4abc               Head {h00=0x000a, h01=0x0050, text=»* CRUP«, t00=0x002f, t01=0x0152}
0x4abc…4ac6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0160}
0x4ac6…4af2               Head {h00=0x0028, h01=0x0050, text=»* MOVE CURSOR ONE LINE UP. SAME COL.«, t00=0x002f, t01=0x016a}
0x4af2…4afc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0008}
0x4afc…4b42               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0030, t01=0x0012}
0x4b42…4b4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0058}
0x4b4c…4b5e               Head {h00=0x000e, h01=0x0050, text=»CRUP EQU *«, t00=0x0030, t01=0x0062}
0x4b5e…4b8c               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x0030, t01=0x0074}
0x4b8c…4ba2               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LLINE«, t00=0x0030, t01=0x00a2}
0x4ba2…4bc4               Head {h00=0x001e, h01=0x0050, text=» RF(NN) CRU050 UPMOST LINE«, t00=0x0030, t01=0x00b8}
0x4bc4…4bda               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LBVDU«, t00=0x0030, t01=0x00da}
0x4bda…4bf2               Head {h00=0x0014, h01=0x0050, text=»CRU050 RF CRH100«, t00=0x0030, t01=0x00f0}
0x4bf2…4bfc               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0030, t01=0x0108}
0x4bfc…4c06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0112}
0x4c06…4c44               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0030, t01=0x011c}
0x4c44…4c4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x015a}
0x4c4e…4c5e               Head {h00=0x000c, h01=0x0050, text=»* CRHOME«, t00=0x0030, t01=0x0164}
0x4c5e…4c68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0174}
0x4c68…4c8c               Head {h00=0x0020, h01=0x0050, text=»* HOME POSITIONING OF CURSOR«, t00=0x0030, t01=0x017e}
0x4c8c…4c96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0012}
0x4c96…4cd4               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0031, t01=0x001c}
0x4cd4…4cde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x005a}
0x4cde…4cf2               Head {h00=0x0010, h01=0x0050, text=»CRHOME EQU *«, t00=0x0031, t01=0x0064}
0x4cf2…4d04               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0031, t01=0x0078}
0x4d04…4d18               Head {h00=0x0010, h01=0x0050, text=»CRH100 EQU *«, t00=0x0031, t01=0x008a}
0x4d18…4d46               Head {h00=0x002a, h01=0x0050, text=» ST A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x0031, t01=0x009e}
0x4d46…4d6a               Head {h00=0x0020, h01=0x0050, text=» CF A14,ATMASB UPDATE ATTRIB«, t00=0x0031, t01=0x00cc}
0x4d6a…4d90               Head {h00=0x0022, h01=0x0050, text=» CF A14,SETCUR DISPLAY CURSOR «, t00=0x0031, t01=0x00f0}
0x4d90…4da0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x0116}
0x4da0…4daa               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0031, t01=0x0126}
0x4daa…4db4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0130}
0x4db4…4df2               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0031, t01=0x013a}
0x4df2…4dfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0178}
0x4dfc…4e0a               Head {h00=0x000a, h01=0x0050, text=»* CRNL«, t00=0x0031, t01=0x0182}
0x4e0a…4e14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0190}
0x4e14…4e4a               Head {h00=0x0032, h01=0x0050, text=»* CURSOR IN FIRST UNPROTECTED POS ON NEW LINE «, t00=0x0032, t01=0x000a}
0x4e4a…4e54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0040}
0x4e54…4e92               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0032, t01=0x004a}
0x4e92…4e9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0088}
0x4e9c…4eae               Head {h00=0x000e, h01=0x0050, text=»CRNL EQU *«, t00=0x0032, t01=0x0092}
0x4eae…4ed8               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0032, t01=0x00a4}
0x4ed8…4ef8               Head {h00=0x001c, h01=0x0050, text=» ADKL A2,LLINE NEXT LINE«, t00=0x0032, t01=0x00ce}
0x4ef8…4f0e               Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x0032, t01=0x00ee}
0x4f0e…4f24               Head {h00=0x0012, h01=0x0050, text=» RF(L) CRN050 «, t00=0x0032, t01=0x0104}
0x4f24…4f42               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND «, t00=0x0032, t01=0x011a}
0x4f42…4f4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0138}
0x4f4c…4f6a               Head {h00=0x001a, h01=0x0050, text=»* COMPUTE LEFTMOST POS«, t00=0x0032, t01=0x0142}
0x4f6a…4f74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0160}
0x4f74…4f8c               Head {h00=0x0014, h01=0x0050, text=»CRN050 LDK A1,0 «, t00=0x0032, t01=0x016a}
0x4f8c…4fa8               Head {h00=0x0018, h01=0x0050, text=»CRN100 SUKL A2,LLINE«, t00=0x0032, t01=0x0182}
0x4fa8…4fbe               Head {h00=0x0012, h01=0x0050, text=» RF(N) CRN120 «, t00=0x0033, t01=0x000e}
0x4fbe…4fd4               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,LLINE«, t00=0x0033, t01=0x0024}
0x4fd4…4fe6               Head {h00=0x000e, h01=0x0050, text=» RB CRN100«, t00=0x0033, t01=0x003a}
0x4fe6…501c               Head {h00=0x0032, h01=0x0050, text=»CRN120 ST A1,PCURS,TCABAS STORE CURSOR ADDRESS«, t00=0x0033, t01=0x004c}
0x501c…5026               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0033, t01=0x0082}
0x5026…502e               Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x008c}
0x502e…5078               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0033, t01=0x0094}
0x5078…508a               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0033, t01=0x00de}
0x508a…50bc               Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x0033, t01=0x00f0}
0x50bc…50ce               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0033, t01=0x0122}
0x50ce…50f6               Head {h00=0x0024, h01=0x0050, text=» RF(Z) CRN130 NO ATTRIBUTE FOUND«, t00=0x0033, t01=0x0134}
0x50f6…510a               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x0033, t01=0x015c}
0x510a…512e               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TAB PROTECTED FIELD «, t00=0x0033, t01=0x0170}
0x512e…5160 (52, 0, 400)  Head {h00=0x002e, h01=0x0050, text=» CW A2,PCURS,TCABAS CURSOR ON ATTRIBUTE ??«, t00=0x0034, t01=0x0004}
0x5160…517c               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN150 NO!! «, t00=0x0034, t01=0x0036}
0x517c…51a8               Head {h00=0x0028, h01=0x0050, text=» CWK A2,1919 LAST SCREEN POSITION?? «, t00=0x0034, t01=0x0052}
0x51a8…51c4               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN140 NO!! «, t00=0x0034, t01=0x007e}
0x51c4…51de               Head {h00=0x0016, h01=0x0050, text=»CRN130 LDKL A2,-1 «, t00=0x0034, t01=0x009a}
0x51de…51f6               Head {h00=0x0014, h01=0x0050, text=»CRN140 ADK A2,1 «, t00=0x0034, t01=0x00b4}
0x51f6…5212               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x0034, t01=0x00cc}
0x5212…523e               Head {h00=0x0028, h01=0x0050, text=»CRN150 CF A14,SETCUR POSITION CURSOR«, t00=0x0034, t01=0x00e8}
0x523e…524e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0034, t01=0x0114}
0x524e…529a               Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0034, t01=0x0124}
0x529a…52a4               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0034, t01=0x0170}
0x52a4…52ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x017a}
0x52ae…52ea               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0034, t01=0x0184}
0x52ea…52f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0030}
0x52f4…5302               Head {h00=0x000a, h01=0x0050, text=»* TAB «, t00=0x0035, t01=0x003a}
0x5302…530c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0048}
0x530c…5342               Head {h00=0x0032, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHAR. LOCATION «, t00=0x0035, t01=0x0052}
0x5342…536e               Head {h00=0x0028, h01=0x0050, text=»* OF THE NEXT UNPROTECTED DATA FIELD«, t00=0x0035, t01=0x0088}
0x536e…5378               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00b4}
0x5378…53b4               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0035, t01=0x00be}
0x53b4…53be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00fa}
0x53be…53f4               Head {h00=0x0032, h01=0x0050, text=»* A1=END OF BUFFER PAREM.    0=EOB NOT REACHED«, t00=0x0035, t01=0x0104}
0x53f4…5406               Head {h00=0x000e, h01=0x0050, text=»*   2=EOB «, t00=0x0035, t01=0x013a}
0x5406…5426               Head {h00=0x001c, h01=0x0050, text=»*   3=ATTRIB. IN EOB POS«, t00=0x0035, t01=0x014c}
0x5426…5448               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x0035, t01=0x016c}
0x5448…545e               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTGR«, t00=0x0035, t01=0x018e}
0x545e…5468               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0014}
0x5468…547a               Head {h00=0x000e, h01=0x0050, text=»TAB EQU * «, t00=0x0036, t01=0x001e}
0x547a…548c               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x0036, t01=0x0030}
0x548c…54b6               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0036, t01=0x0042}
0x54b6…54e4               Head {h00=0x002a, h01=0x0050, text=»TAB100 CF A14,ATMASF SEARCH ATTRIBUTE «, t00=0x0036, t01=0x006c}
0x54e4…5504               Head {h00=0x001c, h01=0x0050, text=» CWK A1,0 END OF BUFFER?«, t00=0x0036, t01=0x009a}
0x5504…551e               Head {h00=0x0016, h01=0x0050, text=» RF(G) TAB300 YES «, t00=0x0036, t01=0x00ba}
0x551e…5530               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0036, t01=0x00d4}
0x5530…5556               Head {h00=0x0022, h01=0x0050, text=»TAB150 ANK A3,/10 UNPROTECTED?«, t00=0x0036, t01=0x00e6}
0x5556…5570               Head {h00=0x0016, h01=0x0050, text=» RF(E) TAB200 YES «, t00=0x0036, t01=0x010c}
0x5570…5590               Head {h00=0x001c, h01=0x0050, text=» RB TAB100 NEXT ATTRIB. «, t00=0x0036, t01=0x0126}
0x5590…55b2               Head {h00=0x001e, h01=0x0050, text=»TAB200 ST A2,PCURS,TCABAS «, t00=0x0036, t01=0x0146}
0x55b2…55dc               Head {h00=0x0026, h01=0x0050, text=» CF A14,SETCUR DISPLAY NEW CURSOR «, t00=0x0036, t01=0x0168}
0x55dc…55ec (55, 0, 400)  Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0037, t01=0x0004}
0x55ec…5604               Head {h00=0x0014, h01=0x0050, text=»TAB300 LDK A2,0 «, t00=0x0037, t01=0x0014}
0x5604…5634               Head {h00=0x002c, h01=0x0050, text=» CWK A1,3 ATTRIBUTE IN LAST POSITION ?? «, t00=0x0037, t01=0x002c}
0x5634…563e               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0037, t01=0x005c}
0x563e…567e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0037, t01=0x0066}
0x567e…569a               Head {h00=0x0018, h01=0x0050, text=» RF(NE) TAB350 NO!! «, t00=0x0037, t01=0x00a6}
0x569a…56c6               Head {h00=0x0028, h01=0x0050, text=» ANK A5,1 WHOLE BUFFER CONTROLLED ??«, t00=0x0037, t01=0x00c2}
0x56c6…56e2               Head {h00=0x0018, h01=0x0050, text=» RB(Z) TAB200 YES!! «, t00=0x0037, t01=0x00ee}
0x56e2…56f6               Head {h00=0x0010, h01=0x0050, text=» SUR A5,A5  «, t00=0x0037, t01=0x010a}
0x56f6…5718               Head {h00=0x001e, h01=0x0050, text=» RB TAB150 CHECK ATTRIBUTE«, t00=0x0037, t01=0x011e}
0x5718…572c               Head {h00=0x0010, h01=0x0050, text=»TAB350 EQU *«, t00=0x0037, t01=0x0140}
0x572c…576c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0037, t01=0x0154}
0x576c…5794 (56, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» ANK A5,1 WHOLE BUFF. CONTROLED?«, t00=0x0038, t01=0x0004}
0x5794…57ac               Head {h00=0x0014, h01=0x0050, text=» RF(G) TAB400 NO«, t00=0x0038, t01=0x002c}
0x57ac…57e0               Head {h00=0x0030, h01=0x0050, text=» RB TAB200 ALL PROT. OR NON-FORMATTED BUFF. «, t00=0x0038, t01=0x0044}
0x57e0…57f8               Head {h00=0x0014, h01=0x0050, text=»TAB400 LDK A5,0 «, t00=0x0038, t01=0x0078}
0x57f8…580a               Head {h00=0x000e, h01=0x0050, text=» RB TAB100«, t00=0x0038, t01=0x0090}
0x580a…5814               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0038, t01=0x00a2}
0x5814…581e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00ac}
0x581e…5862               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0038, t01=0x00b6}
0x5862…586c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00fa}
0x586c…587a               Head {h00=0x000a, h01=0x0050, text=»* DUP «, t00=0x0038, t01=0x0104}
0x587a…5884               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0112}
0x5884…589c               Head {h00=0x0014, h01=0x0050, text=»* DUPLICATE KEY «, t00=0x0038, t01=0x011c}
0x589c…58da               Head {h00=0x003a, h01=0x0050, text=»* OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x0038, t01=0x0134}
0x58da…5918               Head {h00=0x003a, h01=0x0050, text=»* TO BE ENTERED INTO THE DISPLAY BUFFER AND A STANDARD«, t00=0x0038, t01=0x0172}
0x5918…5944               Head {h00=0x0028, h01=0x0050, text=»* TAB KEY OPERATION TO BE PERFORMED «, t00=0x0039, t01=0x0020}
0x5944…594e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x004c}
0x594e…5992               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0039, t01=0x0056}
0x5992…599c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x009a}
0x599c…59ae               Head {h00=0x000e, h01=0x0050, text=»DUP EQU * «, t00=0x0039, t01=0x00a4}
0x59ae…59d8               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0039, t01=0x00b6}
0x59d8…5a12               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE«, t00=0x0039, t01=0x00e0}
0x5a12…5a28               Head {h00=0x0012, h01=0x0050, text=» LDK A2,DUPCH «, t00=0x0039, t01=0x011a}
0x5a28…5a5c               Head {h00=0x0030, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFF. ADDR.«, t00=0x0039, t01=0x0130}
0x5a5c…5a6e               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x0039, t01=0x0164}
0x5a6e…5a82               Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0039, t01=0x0176}
0x5a82…5a96               Head {h00=0x0010, h01=0x0050, text=» CF A14,TAB «, t00=0x0039, t01=0x018a}
0x5a96…5aa6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003a, t01=0x000e}
0x5aa6…5ab0               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x003a, t01=0x001e}
0x5ab0…5aba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0028}
0x5aba…5afe               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003a, t01=0x0032}
0x5afe…5b08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0076}
0x5b08…5b22               Head {h00=0x0016, h01=0x0050, text=»*       FIELD MARK«, t00=0x003a, t01=0x0080}
0x5b22…5b2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x009a}
0x5b2c…5b70               Head {h00=0x0040, h01=0x0050, text=»*       OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x003a, t01=0x00a4}
0x5b70…5bb0               Head {h00=0x003c, h01=0x0050, text=»*       TO BE ENTERED IN THE DISPLAY BUFFER IN ADDITION «, t00=0x003a, t01=0x00e8}
0x5bb0…5be0               Head {h00=0x002c, h01=0x0050, text=»*       TO THE DC CHARACTER TRANSMITTED «, t00=0x003a, t01=0x0128}
0x5be0…5bea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0158}
0x5bea…5c2c               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003a, t01=0x0162}
0x5c2c…5c36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0014}
0x5c36…5c4a               Head {h00=0x0010, h01=0x0050, text=»FLDMRK EQU *«, t00=0x003b, t01=0x001e}
0x5c4a…5c72               Head {h00=0x0024, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE??«, t00=0x003b, t01=0x0032}
0x5c72…5cac               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE«, t00=0x003b, t01=0x005a}
0x5cac…5cc0               Head {h00=0x0010, h01=0x0050, text=» LDK A2,FMCH«, t00=0x003b, t01=0x0094}
0x5cc0…5cf6               Head {h00=0x0032, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFFER ADDR. «, t00=0x003b, t01=0x00a8}
0x5cf6…5d08               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x003b, t01=0x00de}
0x5d08…5d1c               Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x003b, t01=0x00f0}
0x5d1c…5d2c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x0104}
0x5d2c…5d36               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x003b, t01=0x0114}
0x5d36…5d40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x011e}
0x5d40…5d82               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003b, t01=0x0128}
0x5d82…5d8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x016a}
0x5d8c…5da2               Head {h00=0x0012, h01=0x0050, text=»*       RDHOME«, t00=0x003b, t01=0x0174}
0x5da2…5dac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x018a}
0x5dac…5dca (60, 0, 400)  Head {h00=0x001a, h01=0x0050, text=»*       READY HOME KEY«, t00=0x003c, t01=0x0004}
0x5dca…5e06               Head {h00=0x0038, h01=0x0050, text=»*       OPERATION OF THIS KEY CAUSES THE CURSOR TOBE«, t00=0x003c, t01=0x0022}
0x5e06…5e44               Head {h00=0x003a, h01=0x0050, text=»*        POSITIONED AT THE FIRST UNPROTECTED CHARACTER«, t00=0x003c, t01=0x005e}
0x5e44…5e62               Head {h00=0x001a, h01=0x0050, text=»*       ON THE SCREEN «, t00=0x003c, t01=0x009c}
0x5e62…5e6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00ba}
0x5e6c…5eac               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003c, t01=0x00c4}
0x5eac…5eb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0104}
0x5eb6…5ed2               Head {h00=0x0018, h01=0x0050, text=»RDHOME LDKL A4,BVDU «, t00=0x003c, t01=0x010e}
0x5ed2…5efc               Head {h00=0x0026, h01=0x0050, text=» ADR A4,TCABAS VDU BUFFER ADDRESS «, t00=0x003c, t01=0x012a}
0x5efc…5f2c               Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x003c, t01=0x0154}
0x5f2c…5f40               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003c, t01=0x0184}
0x5f40…5f54               Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x003d, t01=0x0008}
0x5f54…5f6a               Head {h00=0x0012, h01=0x0050, text=» RF(NL) RDH10 «, t00=0x003d, t01=0x001c}
0x5f6a…5f7e               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003d, t01=0x0032}
0x5f7e…5fa6               Head {h00=0x0024, h01=0x0050, text=» ABL(Z) CRHOME UNPROTECTED FIELD«, t00=0x003d, t01=0x0046}
0x5fa6…5fc4               Head {h00=0x001a, h01=0x0050, text=»RDH10 CM PCURS,TCABAS «, t00=0x003d, t01=0x006e}
0x5fc4…5ff4               Head {h00=0x002c, h01=0x0050, text=» CF A14,TAB SEARCH 1ST UNPROTECTED FIELD«, t00=0x003d, t01=0x008c}
0x5ff4…6004               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003d, t01=0x00bc}
0x6004…600e               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x003d, t01=0x00cc}
0x600e…6018               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00d6}
0x6018…6056               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003d, t01=0x00e0}
0x6056…6060               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x011e}
0x6060…6070               Head {h00=0x000c, h01=0x0050, text=»* BAKTAB«, t00=0x003d, t01=0x0128}
0x6070…607a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0138}
0x607a…60b4               Head {h00=0x0036, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHARACTER LOCATION «, t00=0x003d, t01=0x0142}
0x60b4…60ea               Head {h00=0x0032, h01=0x0050, text=»* OF THE NEXT PRECIDING UNPROTECTED DATA FIELD«, t00=0x003d, t01=0x017c}
0x60ea…60f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0022}
0x60f4…6130               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x003e, t01=0x002c}
0x6130…613a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0068}
0x613a…615c               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x003e, t01=0x0072}
0x615c…6172               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x003e, t01=0x0094}
0x6172…6186               Head {h00=0x0010, h01=0x0050, text=»BAKTAB EQU *«, t00=0x003e, t01=0x00aa}
0x6186…6198               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x003e, t01=0x00be}
0x6198…61c2               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x003e, t01=0x00d0}
0x61c2…61e8               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x003e, t01=0x00fa}
0x61e8…620a               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR? «, t00=0x003e, t01=0x0120}
0x620a…6224               Head {h00=0x0016, h01=0x0050, text=» RF(NG) BAK100 YES«, t00=0x003e, t01=0x0142}
0x6224…624a               Head {h00=0x0022, h01=0x0050, text=» CWK A2,0 UPPER LEFTMOST POS? «, t00=0x003e, t01=0x015c}
0x624a…6264               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x003e, t01=0x0182}
0x6264…6276               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003f, t01=0x000c}
0x6276…62a2               Head {h00=0x0028, h01=0x0050, text=»BAK100 CWK A2,0 UPPER LEFTMOST POS? «, t00=0x003f, t01=0x001e}
0x62a2…62bc               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x003f, t01=0x004a}
0x62bc…62d4               Head {h00=0x0014, h01=0x0050, text=»BAK200 SUK A2,1 «, t00=0x003f, t01=0x0064}
0x62d4…62fc               Head {h00=0x0024, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE «, t00=0x003f, t01=0x007c}
0x62fc…6340               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003f, t01=0x00a4}
0x6340…6352               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003f, t01=0x00e8}
0x6352…6374               Head {h00=0x001e, h01=0x0050, text=» RF(Z) BAK400 NO ATTRIBUTE«, t00=0x003f, t01=0x00fa}
0x6374…63ac               Head {h00=0x0034, h01=0x0050, text=» RF(N) BAK250 ATTRIBUTE FOUND. NOT IN LAST POS. «, t00=0x003f, t01=0x011c}
0x63ac…63e0               Head {h00=0x0030, h01=0x0050, text=» SUR A2,A2 ATTRIBUTE FOUND IN LAST POSITION «, t00=0x003f, t01=0x0154}
0x63e0…63f2               Head {h00=0x000e, h01=0x0050, text=» RF BAK300«, t00=0x003f, t01=0x0188}
0x63f2…6406               Head {h00=0x0010, h01=0x0050, text=»BAK250 EQU *«, t00=0x0040, t01=0x000a}
0x6406…6448               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0040, t01=0x001e}
0x6448…6466               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x0040, t01=0x0060}
0x6466…6480               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK100 YES«, t00=0x0040, t01=0x007e}
0x6480…6492               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0040, t01=0x0098}
0x6492…64b4               Head {h00=0x001e, h01=0x0050, text=»BAK300 ST A2,PCURS,TCABAS «, t00=0x0040, t01=0x00aa}
0x64b4…64d6               Head {h00=0x001e, h01=0x0050, text=» CF A14,SETCUR SET CURSOR «, t00=0x0040, t01=0x00cc}
0x64d6…64e6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0040, t01=0x00ee}
0x64e6…6514               Head {h00=0x002a, h01=0x0050, text=»BAK400 SUK A5,1 WHOLE BUFF CONTROLLED?«, t00=0x0040, t01=0x00fe}
0x6514…652e               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) BAK300 YES«, t00=0x0040, t01=0x012c}
0x652e…655a               Head {h00=0x0028, h01=0x0050, text=» LDKL A2,LBVDU-1 END BUFFER ADDRESS «, t00=0x0040, t01=0x0146}
0x655a…6580               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x0040, t01=0x0172}
0x6580…65a4               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x0041, t01=0x0008}
0x65a4…65bc               Head {h00=0x0014, h01=0x0050, text=» RB(G) BAK200 NO«, t00=0x0041, t01=0x002c}
0x65bc…65da               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x0041, t01=0x0044}
0x65da…65f4               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK200 YES«, t00=0x0041, t01=0x0062}
0x65f4…6626               Head {h00=0x002e, h01=0x0050, text=» ST A3,ATTRIB,TCABAS UPDATE NEW ATTRIBUTE «, t00=0x0041, t01=0x007c}
0x6626…6642               Head {h00=0x0018, h01=0x0050, text=» ST A2,CURATT,TCABAS«, t00=0x0041, t01=0x00ae}
0x6642…668a               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0041, t01=0x00ca}
0x668a…669c               Head {h00=0x000e, h01=0x0050, text=» RB BAK200«, t00=0x0041, t01=0x0112}
0x669c…66e4               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0041, t01=0x0124}
0x66e4…66ee               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0041, t01=0x016c}
0x66ee…66f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0176}
0x66f8…673a               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0041, t01=0x0180}
0x673a…6744               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0032}
0x6744…6752               Head {h00=0x000a, h01=0x0050, text=»* CHAR«, t00=0x0042, t01=0x003c}
0x6752…675c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x004a}
0x675c…679a               Head {h00=0x003a, h01=0x0050, text=»* ALPHABETIC AND SPECIAL CHAR UPDATING AND DISPLAYING «, t00=0x0042, t01=0x0054}
0x679a…67a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0092}
0x67a4…67e6               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0042, t01=0x009c}
0x67e6…67f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00de}
0x67f0…6804               Head {h00=0x0010, h01=0x0050, text=»LCASPW EQU *«, t00=0x0042, t01=0x00e8}
0x6804…6834               Head {h00=0x002c, h01=0x0050, text=» SUK A2,/50 CONVERT TO LOWER CASE P - W «, t00=0x0042, t01=0x00fc}
0x6834…6856               Head {h00=0x001e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS«, t00=0x0042, t01=0x012c}
0x6856…6860               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x014e}
0x6860…6872               Head {h00=0x000e, h01=0x0050, text=»CHAR EQU *«, t00=0x0042, t01=0x0158}
0x6872…689c               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0042, t01=0x016a}
0x689c…68ce (67, 0, 400)  Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x0043, t01=0x0004}
0x68ce…68f2               Head {h00=0x0020, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIB?«, t00=0x0043, t01=0x0036}
0x68f2…690c               Head {h00=0x0016, h01=0x0050, text=» RF(E) CHA300 YES «, t00=0x0043, t01=0x005a}
0x690c…6942               Head {h00=0x0032, h01=0x0050, text=»CHA100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0043, t01=0x0074}
0x6942…6954               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0043, t01=0x00aa}
0x6954…697a               Head {h00=0x0022, h01=0x0050, text=» ANK A4,/10 PROTECTRED FIELD? «, t00=0x0043, t01=0x00bc}
0x697a…6994               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CHA300 YES«, t00=0x0043, t01=0x00e2}
0x6994…69ac               Head {h00=0x0014, h01=0x0050, text=»CHA200 LDR A4,A3«, t00=0x0043, t01=0x00fc}
0x69ac…69ce               Head {h00=0x001e, h01=0x0050, text=» ANK A4,/8 NUMERIC FIELD? «, t00=0x0043, t01=0x0114}
0x69ce…69e6               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x0043, t01=0x0136}
0x69e6…6a16               Head {h00=0x002c, h01=0x0050, text=»CHA300 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x0043, t01=0x014e}
0x6a16…6a20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x017e}
0x6a20…6a32               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x0188}
0x6a32…6a58               Head {h00=0x0022, h01=0x0050, text=»* UPDATING OF FIELD SEPARATOR «, t00=0x0044, t01=0x000a}
0x6a58…6a68               Head {h00=0x000c, h01=0x0050, text=»*    DK4«, t00=0x0044, t01=0x0030}
0x6a68…6a72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0040}
0x6a72…6a8c               Head {h00=0x0016, h01=0x0050, text=»CHARFS EQU *  DK4 «, t00=0x0044, t01=0x004a}
0x6a8c…6aa6               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  DK4«, t00=0x0044, t01=0x0064}
0x6aa6…6ace               Head {h00=0x0024, h01=0x0050, text=» LDK A2,/26 LOAD CHARACTER & DK4«, t00=0x0044, t01=0x007e}
0x6ace…6b10               Head {h00=0x003e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS RESTORE CHARACTER IN BUFFER DK4«, t00=0x0044, t01=0x00a6}
0x6b10…6b22               Head {h00=0x000e, h01=0x0050, text=» XIF   DK4«, t00=0x0044, t01=0x00e8}
0x6b22…6b44               Head {h00=0x001e, h01=0x0050, text=» RB CHAR  DISPLAY CHAR DK4«, t00=0x0044, t01=0x00fa}
0x6b44…6b4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x011c}
0x6b4e…6b58               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0044, t01=0x0126}
0x6b58…6ba0               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0044, t01=0x0130}
0x6ba0…6baa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0178}
0x6baa…6bd4               Head {h00=0x0026, h01=0x0050, text=»*   Z E R O : 3    TRIPLE ZERO KEY«, t00=0x0044, t01=0x0182}
0x6bd4…6c00               Head {h00=0x0028, h01=0x0050, text=»*   Z E R O : 2     DOUBLE ZERO KEY «, t00=0x0045, t01=0x001c}
0x6c00…6c0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0048}
0x6c0a…6c44               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0045, t01=0x0052}
0x6c44…6c4c               Head {h00=0x0004, h01=0x0050, t00=0x0045, t01=0x008c}
0x6c4c…6c60               Head {h00=0x0010, h01=0x0050, text=»ZERO:3 EQU *«, t00=0x0045, t01=0x0094}
0x6c60…6c84               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0045, t01=0x00a8}
0x6c84…6cc0               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0045, t01=0x00cc}
0x6cc0…6ce6               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0045, t01=0x0108}
0x6ce6…6cee               Head {h00=0x0004, h01=0x0050, t00=0x0045, t01=0x012e}
0x6cee…6d02               Head {h00=0x0010, h01=0x0050, text=»ZERO:2 EQU *«, t00=0x0045, t01=0x0136}
0x6d02…6d26               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0045, t01=0x014a}
0x6d26…6d62               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0045, t01=0x016e}
0x6d62…6d88               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0046, t01=0x001a}
0x6d88…6dae               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0046, t01=0x0040}
0x6dae…6dc6               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0046, t01=0x0066}
0x6dc6…6dd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x007e}
0x6dd0…6e12               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0046, t01=0x0088}
0x6e12…6e1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00ca}
0x6e1c…6e2a               Head {h00=0x000a, h01=0x0050, text=»* NUM «, t00=0x0046, t01=0x00d4}
0x6e2a…6e34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00e2}
0x6e34…6e5a               Head {h00=0x0022, h01=0x0050, text=»* DISPLAY AND UPDATE NUMERICS «, t00=0x0046, t01=0x00ec}
0x6e5a…6e64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0112}
0x6e64…6ea6               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0046, t01=0x011c}
0x6ea6…6eb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x015e}
0x6eb0…6ec4               Head {h00=0x0010, h01=0x0050, text=»NUMCOM EQU *«, t00=0x0046, t01=0x0168}
0x6ec4…6ed8               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2C «, t00=0x0046, t01=0x017c}
0x6ed8…6efa               Head {h00=0x001e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS«, t00=0x0046, t01=0x0190}
0x6efa…6f04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0022}
0x6f04…6f16               Head {h00=0x000e, h01=0x0050, text=»NUM EQU * «, t00=0x0047, t01=0x002c}
0x6f16…6f40               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0047, t01=0x003e}
0x6f40…6f72               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x0047, t01=0x0068}
0x6f72…6f9a               Head {h00=0x0024, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIBUTE? «, t00=0x0047, t01=0x009a}
0x6f9a…6fb4               Head {h00=0x0016, h01=0x0050, text=» RF(E) NUM200 YES «, t00=0x0047, t01=0x00c2}
0x6fb4…6fea               Head {h00=0x0032, h01=0x0050, text=»NUM100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0047, t01=0x00dc}
0x6fea…6ffc               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0047, t01=0x0112}
0x6ffc…7020               Head {h00=0x0020, h01=0x0050, text=» ANK A4,/10 PROTECTED FIELD?«, t00=0x0047, t01=0x0124}
0x7020…7038               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x0047, t01=0x0148}
0x7038…7068               Head {h00=0x002c, h01=0x0050, text=»NUM200 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x0047, t01=0x0160}
0x7068…7072               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0047, t01=0x0190}
0x7072…707c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x000a}
0x707c…70be               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0048, t01=0x0014}
0x70be…70c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0056}
0x70c8…70d8               Head {h00=0x000c, h01=0x0050, text=»* ANCOMM«, t00=0x0048, t01=0x0060}
0x70d8…70e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0070}
0x70e2…7122               Head {h00=0x003c, h01=0x0050, text=»* COMMON SUBMODULE FOR ALPHANUMERIC CHAR. DISPLAYING AND«, t00=0x0048, t01=0x007a}
0x7122…7134               Head {h00=0x000e, h01=0x0050, text=»* UPDATING«, t00=0x0048, t01=0x00ba}
0x7134…713e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00cc}
0x713e…7180               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0048, t01=0x00d6}
0x7180…718a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0118}
0x718a…719e               Head {h00=0x0010, h01=0x0050, text=»ANCOMM EQU *«, t00=0x0048, t01=0x0122}
0x719e…71c4               Head {h00=0x0022, h01=0x0050, text=» LC* A4,ECBKB+ECBBA,CREBAS  =1«, t00=0x0048, t01=0x0136}
0x71c4…71d8               Head {h00=0x0010, h01=0x0050, text=»ANC005 EQU *«, t00=0x0048, t01=0x015c}
0x71d8…71ee               Head {h00=0x0012, h01=0x0050, text=» LDKL A6,BVDU «, t00=0x0048, t01=0x0170}
0x71ee…7204               Head {h00=0x0012, h01=0x0050, text=» ADR A6,TCABAS«, t00=0x0048, t01=0x0186}
0x7204…7216               Head {h00=0x000e, h01=0x0050, text=» ADR A6,A2«, t00=0x0049, t01=0x000c}
0x7216…721e               Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x001e}
0x721e…7248               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0049, t01=0x0026}
0x7248…7264               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ANC010 YES!!«, t00=0x0049, t01=0x0050}
0x7264…7286               Head {h00=0x001e, h01=0x0050, text=» SCR A4,A6 UPDATE VDU BUFF«, t00=0x0049, t01=0x006c}
0x7286…72b4               Head {h00=0x002a, h01=0x0050, text=»ANC010 LDR A7,A6 SAVE CURSOR POSITION «, t00=0x0049, t01=0x008e}
0x72b4…72d0               Head {h00=0x0018, h01=0x0050, text=» LD A5,CURATT,TCABAS«, t00=0x0049, t01=0x00bc}
0x72d0…72fc               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0049, t01=0x00d8}
0x72fc…7316               Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC100 YES «, t00=0x0049, t01=0x0104}
0x7316…733a               Head {h00=0x0020, h01=0x0050, text=» SUR A6,A2 BVDU START ADDR. «, t00=0x0049, t01=0x011e}
0x733a…7358               Head {h00=0x001a, h01=0x0050, text=» ADR A6,A5 ATTRIB. POS«, t00=0x0049, t01=0x0142}
0x7358…7388               Head {h00=0x002c, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0049, t01=0x0160}
0x7388…73a4               Head {h00=0x0018, h01=0x0050, text=» ORK A3,1 MDT-BIT ON«, t00=0x0049, t01=0x0190}
0x73a4…73b6               Head {h00=0x000e, h01=0x0050, text=» SCR A3,A6«, t00=0x004a, t01=0x001c}
0x73b6…73ca               Head {h00=0x0010, h01=0x0050, text=»ANC100 EQU *«, t00=0x004a, t01=0x002e}
0x73ca…73e2               Head {h00=0x0014, h01=0x0050, text=» IFT IN:DL=1  =3«, t00=0x004a, t01=0x0042}
0x73e2…740c               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x004a, t01=0x005a}
0x740c…7426               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC120 NO!!«, t00=0x004a, t01=0x0084}
0x7426…745a               Head {h00=0x0030, h01=0x0050, text=» LCR A1,A7 GET CHARACTER AT CURSOR POSITION «, t00=0x004a, t01=0x009e}
0x745a…746e               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/7F «, t00=0x004a, t01=0x00d2}
0x746e…748a               Head {h00=0x0018, h01=0x0050, text=» CWK A1,NULL NULL?? «, t00=0x004a, t01=0x00e6}
0x748a…74a6               Head {h00=0x0018, h01=0x0050, text=» RF(NE) INS:10 NO!! «, t00=0x004a, t01=0x0102}
0x74a6…74ce               Head {h00=0x0024, h01=0x0050, text=» SCR A4,A7 STORE INPUT CHARACTER«, t00=0x004a, t01=0x011e}
0x74ce…74e0               Head {h00=0x000e, h01=0x0050, text=» XIF   =3 «, t00=0x004a, t01=0x0146}
0x74e0…74f4               Head {h00=0x0010, h01=0x0050, text=»ANC120 EQU *«, t00=0x004a, t01=0x0158}
0x74f4…74fc               Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x016c}
0x74fc…7532               Head {h00=0x0032, h01=0x0050, text=» LDK A5,/2B CURSOR NOT MOVED BEFORE DISPLAYING«, t00=0x004a, t01=0x0174}
0x7532…7556               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBVDU+ECBBA,CREBAS  «, t00=0x004b, t01=0x001a}
0x7556…756e               Head {h00=0x0014, h01=0x0050, text=» SC A5,1,A1  =1 «, t00=0x004b, t01=0x003e}
0x756e…7582               Head {h00=0x0010, h01=0x0050, text=» LDK A5,/1E «, t00=0x004b, t01=0x0056}
0x7582…759c               Head {h00=0x0016, h01=0x0050, text=» ADK A1,2 NEXT POS«, t00=0x004b, t01=0x006a}
0x759c…75c8               Head {h00=0x0028, h01=0x0050, text=» SCR A5,A1 LOW INT, STORE IN BUFFER «, t00=0x004b, t01=0x0084}
0x75c8…75da               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A3«, t00=0x004b, t01=0x00b0}
0x75da…7602               Head {h00=0x0024, h01=0x0050, text=» ANK A3,/4 STANDARD DISPLAYING? «, t00=0x004b, t01=0x00c2}
0x7602…761c               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC200 YES «, t00=0x004b, t01=0x00ea}
0x761c…7646               Head {h00=0x0026, h01=0x0050, text=» ANK A6,/2 INTENSIFIED DISPLAYING?«, t00=0x004b, t01=0x0104}
0x7646…7660               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC150 YES «, t00=0x004b, t01=0x012e}
0x7660…767e               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD SPACE«, t00=0x004b, t01=0x0148}
0x767e…76a0               Head {h00=0x001e, h01=0x0050, text=» RF ANC250 NON DISPLAYING «, t00=0x004b, t01=0x0166}
0x76a0…76cc               Head {h00=0x0028, h01=0x0050, text=»ANC150 LDK A5,/1F SET HIGH INTENSITY«, t00=0x004b, t01=0x0188}
0x76cc…76ee               Head {h00=0x001e, h01=0x0050, text=» SCR A5,A1 STORE IN BUFFER«, t00=0x004c, t01=0x0024}
0x76ee…771a               Head {h00=0x0028, h01=0x0050, text=»ANC200 LDR A2,A4 UPDATE A2 WITH CHAR«, t00=0x004c, t01=0x0046}
0x771a…774e               Head {h00=0x0030, h01=0x0050, text=»ANC250 CF A14,WCHAR DISPLAY CHAR AND CURSOR «, t00=0x004c, t01=0x0072}
0x774e…7778               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x004c, t01=0x00a6}
0x7778…77a6               Head {h00=0x002a, h01=0x0050, text=» CWK A4,DUPCH  DONT ADD IF IN DUP DK6 «, t00=0x004c, t01=0x00d0}
0x77a6…77c0               Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC252  DK6«, t00=0x004c, t01=0x00fe}
0x77c0…77d2               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x004c, t01=0x0118}
0x77d2…77e6               Head {h00=0x0010, h01=0x0050, text=»ANC252 EQU *«, t00=0x004c, t01=0x012a}
0x77e6…77fc               Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x004c, t01=0x013e}
0x77fc…7812               Head {h00=0x0012, h01=0x0050, text=» RF(NE) ANC255«, t00=0x004c, t01=0x0154}
0x7812…7824               Head {h00=0x000e, h01=0x0050, text=» LDKL A2,0«, t00=0x004c, t01=0x016a}
0x7824…7838               Head {h00=0x0010, h01=0x0050, text=»ANC255 EQU *«, t00=0x004c, t01=0x017c}
0x7838…7854               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x004c, t01=0x0190}
0x7854…787a               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x004d, t01=0x001c}
0x787a…789e               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x004d, t01=0x0042}
0x789e…78b6               Head {h00=0x0014, h01=0x0050, text=» RF(G) ANC300 NO«, t00=0x004d, t01=0x0066}
0x78b6…78be               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x007e}
0x78be…78ea               Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB SKIP TO NEXT UNPROTECTED«, t00=0x004d, t01=0x0086}
0x78ea…78fe               Head {h00=0x0010, h01=0x0050, text=»ANC300 EQU *«, t00=0x004d, t01=0x00b2}
0x78fe…7922               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBCW,A8 CONTROL WORD«, t00=0x004d, t01=0x00c6}
0x7922…7946               Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' LINE POSITION «, t00=0x004d, t01=0x00ea}
0x7946…7972               Head {h00=0x0028, h01=0x0050, text=» SUK A1,80 LAST POSITION ON LINE ?? «, t00=0x004d, t01=0x010e}
0x7972…798e               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ANC350 NO!!!«, t00=0x004d, t01=0x013a}
0x798e…79cc               Head {h00=0x003a, h01=0x0050, text=» CF A14,SETCUR POSITION CURSOR TO 1:ST POS. NEXT LINE «, t00=0x004d, t01=0x0156}
0x79cc…79e0 (78, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»ANC350 EQU *«, t00=0x004e, t01=0x0004}
0x79e0…79f0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004e, t01=0x0018}
0x79f0…7a04               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x004e, t01=0x0028}
0x7a04…7a0e               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x004e, t01=0x003c}
0x7a0e…7a16               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x0046}
0x7a16…7a52               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x004e, t01=0x004e}
0x7a52…7a5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x008a}
0x7a5c…7a9c               Head {h00=0x003c, h01=0x0050, text=»*   DELETE CHARACTER AT CURSOR POSITION. SHIFT CARACTERS«, t00=0x004e, t01=0x0094}
0x7a9c…7ace               Head {h00=0x002e, h01=0x0050, text=»*   AT SAME LINE ONE POSITION TO THE LEFT «, t00=0x004e, t01=0x00d4}
0x7ace…7ad8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0106}
0x7ad8…7b1c               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x004e, t01=0x0110}
0x7b1c…7b24               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x0154}
0x7b24…7b38               Head {h00=0x0010, h01=0x0050, text=»DELETE EQU *«, t00=0x004e, t01=0x015c}
0x7b38…7b4c               Head {h00=0x0010, h01=0x0050, text=» LDKL A6,-1 «, t00=0x004e, t01=0x0170}
0x7b4c…7b76               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS CURSOR ADDRESS«, t00=0x004e, t01=0x0184}
0x7b76…7ba2               Head {h00=0x0028, h01=0x0050, text=»DEL:10 ADK A6,80 END OF LINE POINTER«, t00=0x004f, t01=0x001e}
0x7ba2…7bd4               Head {h00=0x002e, h01=0x0050, text=» CWR A6,A2 LAST POSITION ON CURRENT LINE??«, t00=0x004f, t01=0x004a}
0x7bd4…7bfc               Head {h00=0x0024, h01=0x0050, text=» RB(L) DEL:10 NO!! TRY NEXT LINE«, t00=0x004f, t01=0x007c}
0x7bfc…7c04               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x00a4}
0x7c04…7c32               Head {h00=0x002a, h01=0x0050, text=» CF A14,S:ATT SEARCH ATTRIBUTE FORWARD«, t00=0x004f, t01=0x00ac}
0x7c32…7c56               Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 ATTRIBUTE FOUND ??«, t00=0x004f, t01=0x00da}
0x7c56…7c70               Head {h00=0x0016, h01=0x0050, text=» RF(Z) DEL:20 NO!!«, t00=0x004f, t01=0x00fe}
0x7c70…7ca2               Head {h00=0x002e, h01=0x0050, text=» CWR A2,A6 ATTRIBUTE AFTER END OF LINE ?? «, t00=0x004f, t01=0x0118}
0x7ca2…7cbe               Head {h00=0x0018, h01=0x0050, text=» RF(G) DEL:20 YES!! «, t00=0x004f, t01=0x014a}
0x7cbe…7cde               Head {h00=0x001c, h01=0x0050, text=» SUK A2,1 SKIP ATTRIBUTE«, t00=0x004f, t01=0x0166}
0x7cde…7cf0               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A2«, t00=0x004f, t01=0x0186}
0x7cf0…7d08               Head {h00=0x0014, h01=0x0050, text=»DEL:20 LDR A2,A6«, t00=0x0050, t01=0x0008}
0x7d08…7d10               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x0020}
0x7d10…7d18               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x0028}
0x7d18…7d2c               Head {h00=0x0010, h01=0x0050, text=» LDK A1,BVDU«, t00=0x0050, t01=0x0030}
0x7d2c…7d5a               Head {h00=0x002a, h01=0x0050, text=» ADR A1,TCABAS ABSOLUTE BUFFER ADDRESS«, t00=0x0050, t01=0x0044}
0x7d5a…7d7e               Head {h00=0x0020, h01=0x0050, text=» ADR A2,A1 END OF FIELD/LINE«, t00=0x0050, t01=0x0072}
0x7d7e…7daa               Head {h00=0x0028, h01=0x0050, text=» AD A1,PCURS,TCABAS CURSOR POSITION «, t00=0x0050, t01=0x0096}
0x7daa…7db2               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x00c2}
0x7db2…7de4               Head {h00=0x002e, h01=0x0050, text=»DEL:30 CWR A2,A1 ALL CHARACTERS SHIFTED ??«, t00=0x0050, t01=0x00ca}
0x7de4…7e00               Head {h00=0x0018, h01=0x0050, text=» RF(E) DEL:40 YES!! «, t00=0x0050, t01=0x00fc}
0x7e00…7e22               Head {h00=0x001e, h01=0x0050, text=» LC A3,1,A1 GET CHARACTER «, t00=0x0050, t01=0x0118}
0x7e22…7e46               Head {h00=0x0020, h01=0x0050, text=» ORK A3,/80 SET MODIFIED BIT«, t00=0x0050, t01=0x013a}
0x7e46…7e74               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A1 SHIFT CHARACTER 1 POS. LEFT«, t00=0x0050, t01=0x015e}
0x7e74…7e86               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0050, t01=0x018c}
0x7e86…7eac               Head {h00=0x0022, h01=0x0050, text=» RB DEL:30 GET NEXT CHARACTER «, t00=0x0051, t01=0x000e}
0x7eac…7eb4               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x0034}
0x7eb4…7ebc               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x003c}
0x7ebc…7eea               Head {h00=0x002a, h01=0x0050, text=»DEL:40 LDK A3,NULL+/80 NULL CHARACTER «, t00=0x0051, t01=0x0044}
0x7eea…7f18               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A2 STORE AT END OF FIELD/LINE «, t00=0x0051, t01=0x0072}
0x7f18…7f3e               Head {h00=0x0022, h01=0x0050, text=» LD A3,ATTRIB,TCABAS ATTRIBUTE«, t00=0x0051, t01=0x00a0}
0x7f3e…7f66               Head {h00=0x0024, h01=0x0050, text=» ORK A3,1 SET MODIFIED FIELD BIT«, t00=0x0051, t01=0x00c6}
0x7f66…7f6e               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x00ee}
0x7f6e…7fa4               Head {h00=0x0032, h01=0x0050, text=» LD A1,CURATT,TCABAS CURRENT ATTRIBUTE ADDRESS«, t00=0x0051, t01=0x00f6}
0x7fa4…7fd2               Head {h00=0x002a, h01=0x0050, text=» CWK A1,LBVDU+1 UNFORMATTED SCREEN ???«, t00=0x0051, t01=0x012c}
0x7fd2…7fee               Head {h00=0x0018, h01=0x0050, text=» RF(E) INS:60 YES!!!«, t00=0x0051, t01=0x015a}
0x7fee…8004               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,BVDU «, t00=0x0051, t01=0x0176}
0x8004…8036               Head {h00=0x002e, h01=0x0050, text=» ADR A1,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x0051, t01=0x018c}
0x8036…805c               Head {h00=0x0022, h01=0x0050, text=» SCR A3,A1 SAVE NEW ATTRIBUTE «, t00=0x0052, t01=0x002e}
0x805c…8086               Head {h00=0x0026, h01=0x0050, text=» RF INS:60 DISPLAY MODIFIED FIELD «, t00=0x0052, t01=0x0054}
0x8086…8090               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0052, t01=0x007e}
0x8090…8098               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x0088}
0x8098…80de               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0052, t01=0x0090}
0x80de…80e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00d6}
0x80e8…812c               Head {h00=0x0040, h01=0x0050, text=»*   INSERT CHARACTER AT CURSOR POSITION. SHIFT CHARACTERS IN«, t00=0x0052, t01=0x00e0}
0x812c…816c               Head {h00=0x003c, h01=0x0050, text=»*   SAME FIELD , EXCEPT NULLS, ONE POSITION TO THE RIGHT«, t00=0x0052, t01=0x0124}
0x816c…8176               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0164}
0x8176…81b2               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0052, t01=0x016e}
0x81b2…81ba               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x001a}
0x81ba…81ce               Head {h00=0x0010, h01=0x0050, text=»INSERT EQU *«, t00=0x0053, t01=0x0022}
0x81ce…81f6               Head {h00=0x0024, h01=0x0050, text=» IM MODE,TCABAS SET INSERT MODE «, t00=0x0053, t01=0x0036}
0x81f6…8228               Head {h00=0x002e, h01=0x0050, text=» CF A14,LIOLON TURN ON "INSERT MODE" LAMP «, t00=0x0053, t01=0x005e}
0x8228…8238               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0053, t01=0x0090}
0x8238…8240               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x00a0}
0x8240…8248               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x00a8}
0x8248…8262               Head {h00=0x0016, h01=0x0050, text=»INS:10 LDR A6,A7  «, t00=0x0053, t01=0x00b0}
0x8262…8276               Head {h00=0x0010, h01=0x0050, text=» LDR A9,A4  «, t00=0x0053, t01=0x00ca}
0x8276…82a2               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN??«, t00=0x0053, t01=0x00de}
0x82a2…82be               Head {h00=0x0018, h01=0x0050, text=» RF(NE) INS:20 NO!! «, t00=0x0053, t01=0x010a}
0x82be…82d6               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x0053, t01=0x0126}
0x82d6…82e8               Head {h00=0x000e, h01=0x0050, text=» RF INS:30«, t00=0x0053, t01=0x013e}
0x82e8…82f0               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0150}
0x82f0…82f8               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0158}
0x82f8…832c               Head {h00=0x0030, h01=0x0050, text=»INS:20 CF A14,S:ATT SEARCH ATTRIBUTE FORWARD«, t00=0x0053, t01=0x0160}
0x832c…8334 (84, 0, 400)  Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x0004}
0x8334…833c               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x000c}
0x833c…8360               Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 ATTRIBUTE FOUND ??«, t00=0x0054, t01=0x0014}
0x8360…837a               Head {h00=0x0016, h01=0x0050, text=» RF(Z) INS:30 NO!!«, t00=0x0054, t01=0x0038}
0x837a…838c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0054, t01=0x0052}
0x838c…8394               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x0064}
0x8394…83b0               Head {h00=0x0018, h01=0x0050, text=»INS:30 ADR A2,TCABAS«, t00=0x0054, t01=0x006c}
0x83b0…83ea               Head {h00=0x0036, h01=0x0050, text=» ADK A2,BVDU ADD BUFFER DISPLACEMENT IN WORK-BLOCK«, t00=0x0054, t01=0x0088}
0x83ea…841c               Head {h00=0x002e, h01=0x0050, text=» CF A14,S:NULL SEARCH FIRST NULL CHARACTER«, t00=0x0054, t01=0x00c2}
0x841c…844e               Head {h00=0x002e, h01=0x0050, text=»INS:40 CWR A2,A6 ALL CHARACTERS SHIFTED ??«, t00=0x0054, t01=0x00f4}
0x844e…846a               Head {h00=0x0018, h01=0x0050, text=» RF(E) INS:50 YES!! «, t00=0x0054, t01=0x0126}
0x846a…848c               Head {h00=0x001e, h01=0x0050, text=» LC A3,-1,A2 GET CHARACTER«, t00=0x0054, t01=0x0142}
0x848c…84b0               Head {h00=0x0020, h01=0x0050, text=» ORK A3,/80 SET MODIFIED BIT«, t00=0x0054, t01=0x0164}
0x84b0…84de               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A2 SHIFT CHAR ONE POS TO RIGHT«, t00=0x0054, t01=0x0188}
0x84de…84f0               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0055, t01=0x0026}
0x84f0…8516               Head {h00=0x0022, h01=0x0050, text=» RB INS:40 GET NEXT CHARACTER «, t00=0x0055, t01=0x0038}
0x8516…851e               Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x005e}
0x851e…8526               Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0066}
0x8526…8552               Head {h00=0x0028, h01=0x0050, text=»INS:50 ORKL A9,/80 SET MODIFIED BIT «, t00=0x0055, t01=0x006e}
0x8552…8584               Head {h00=0x002e, h01=0x0050, text=» SCR A9,A6 SAVE INPUT CHARACTER IN BUFFER «, t00=0x0055, t01=0x009a}
0x8584…85b6               Head {h00=0x002e, h01=0x0050, text=» IM PCURS,TCABAS INCREMENT CURSOR POSITION«, t00=0x0055, t01=0x00cc}
0x85b6…85ca               Head {h00=0x0010, h01=0x0050, text=»INS:60 EQU *«, t00=0x0055, t01=0x00fe}
0x85ca…85f8               Head {h00=0x002a, h01=0x0050, text=» CF A14,DISPL DISPLAY MODIFIED FIELDS «, t00=0x0055, t01=0x0112}
0x85f8…8624               Head {h00=0x0028, h01=0x0050, text=» LD A2,PCURS,TCABAS CURSOR POSITION «, t00=0x0055, t01=0x0140}
0x8624…8636               Head {h00=0x000e, h01=0x0050, text=» RB ANC252«, t00=0x0055, t01=0x016c}
0x8636…8642               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x017e}
0x8642…864c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0055, t01=0x018a}
0x864c…8654 (86, 0, 400)  Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0004}
0x8654…8696               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0056, t01=0x000c}
0x8696…86a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x004e}
0x86a0…86d8               Head {h00=0x0034, h01=0x0050, text=»*   SEARCH FIRST NULL CHARACTER AFTER CURSOR POS«, t00=0x0056, t01=0x0058}
0x86d8…86e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0090}
0x86e2…8720               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0056, t01=0x009a}
0x8720…8728               Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x00d8}
0x8728…873c               Head {h00=0x0010, h01=0x0050, text=»S:NULL EQU *«, t00=0x0056, t01=0x00e0}
0x873c…874e               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0056, t01=0x00f4}
0x874e…8756               Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0106}
0x8756…876e               Head {h00=0x0014, h01=0x0050, text=»S:NU10 CWR A1,A2«, t00=0x0056, t01=0x010e}
0x876e…8784               Head {h00=0x0012, h01=0x0050, text=» RF(E) S:NU30 «, t00=0x0056, t01=0x0126}
0x8784…87a4               Head {h00=0x001c, h01=0x0050, text=» LCR A3,A1 GET CHARACTER«, t00=0x0056, t01=0x013c}
0x87a4…87ce               Head {h00=0x0026, h01=0x0050, text=» ANK A3,/7F MASK AWAY MODIFIED BIT«, t00=0x0056, t01=0x015c}
0x87ce…87f2               Head {h00=0x0020, h01=0x0050, text=» CWK A3,NULL NULL CHARACTER «, t00=0x0056, t01=0x0186}
0x87f2…880e               Head {h00=0x0018, h01=0x0050, text=» RF(E) S:NU20 YES!! «, t00=0x0057, t01=0x001a}
0x880e…8820               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0057, t01=0x0036}
0x8820…884e               Head {h00=0x002a, h01=0x0050, text=» RB S:NU10 CHECK NEXT BUFFER CHARACTER«, t00=0x0057, t01=0x0048}
0x884e…8856               Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0076}
0x8856…8884               Head {h00=0x002a, h01=0x0050, text=»S:NU20 LDR A2,A1 ADDRESS OF FIRST NULL«, t00=0x0057, t01=0x007e}
0x8884…889a               Head {h00=0x0012, h01=0x0050, text=»S:NU30 RTN A14«, t00=0x0057, t01=0x00ac}
0x889a…88a4               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0057, t01=0x00c2}
0x88a4…88ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00cc}
0x88ae…88f0               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0057, t01=0x00d6}
0x88f0…88fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0118}
0x88fa…890a               Head {h00=0x000c, h01=0x0050, text=»* CANCEL«, t00=0x0057, t01=0x0122}
0x890a…8914               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0132}
0x8914…8952               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0057, t01=0x013c}
0x8952…897a               Head {h00=0x0024, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER «, t00=0x0057, t01=0x017a}
0x897a…8984               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0012}
0x8984…89c6               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0058, t01=0x001c}
0x89c6…89d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x005e}
0x89d0…89e4               Head {h00=0x0010, h01=0x0050, text=»CANCEL EQU *«, t00=0x0058, t01=0x0068}
0x89e4…89f6               Head {h00=0x000e, h01=0x0050, text=»PA2 EQU * «, t00=0x0058, t01=0x007c}
0x89f6…8a14               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/2E CANCEL POS«, t00=0x0058, t01=0x008e}
0x8a14…8a28               Head {h00=0x0010, h01=0x0050, text=»CAN100 EQU *«, t00=0x0058, t01=0x00ac}
0x8a28…8a50               Head {h00=0x0024, h01=0x0050, text=» LC A2,TASCII,A2 GET ASCII CODE «, t00=0x0058, t01=0x00c0}
0x8a50…8a64               Head {h00=0x0010, h01=0x0050, text=»CAN200 EQU *«, t00=0x0058, t01=0x00e8}
0x8a64…8a96               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x0058, t01=0x00fc}
0x8a96…8ac2               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0058, t01=0x012e}
0x8ac2…8ad2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x015a}
0x8ad2…8adc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x016a}
0x8adc…8ae4               Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0174}
0x8ae4…8af6               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0058, t01=0x017c}
0x8af6…8afe               Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x018e}
0x8afe…8b08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0008}
0x8b08…8b12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0012}
0x8b12…8b5c               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM ATTENTION KEY IS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x0059, t01=0x001c}
0x8b5c…8b9a               Head {h00=0x003a, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PA1.CANCEL OR PA3 «, t00=0x0059, t01=0x0066}
0x8b9a…8ba4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00a4}
0x8ba4…8bae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00ae}
0x8bae…8bc0               Head {h00=0x000e, h01=0x0050, text=»PAEX EQU *«, t00=0x0059, t01=0x00b8}
0x8bc0…8bd6               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PAEXA«, t00=0x0059, t01=0x00ca}
0x8bd6…8bf2               Head {h00=0x0018, h01=0x0050, text=» ST A1,RDMORE,TCABAS«, t00=0x0059, t01=0x00e0}
0x8bf2…8c02               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0059, t01=0x00fc}
0x8c02…8c16               Head {h00=0x0010, h01=0x0050, text=»PAEXA EQU * «, t00=0x0059, t01=0x010c}
0x8c16…8c30               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x0059, t01=0x0120}
0x8c30…8c54               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CHECK IF NUM.1-3«, t00=0x0059, t01=0x013a}
0x8c54…8c76               Head {h00=0x001e, h01=0x0050, text=» RF(L) PFERR ILLEGAL CHAR.«, t00=0x0059, t01=0x015e}
0x8c76…8c9a               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/2 CHECK IF NUM.1-3 «, t00=0x0059, t01=0x0180}
0x8c9a…8cb2               Head {h00=0x0014, h01=0x0050, text=» IFF PA49=1  DK3«, t00=0x005a, t01=0x0014}
0x8cb2…8cd4               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL CHAR.«, t00=0x005a, t01=0x002c}
0x8cd4…8ce6               Head {h00=0x000e, h01=0x0050, text=» XIF   DK3«, t00=0x005a, t01=0x004e}
0x8ce6…8cfe               Head {h00=0x0014, h01=0x0050, text=» IFT PA49=1  DK3«, t00=0x005a, t01=0x0060}
0x8cfe…8d1e               Head {h00=0x001c, h01=0x0050, text=» RF(G) PAEXB PA 4-9? DK3«, t00=0x005a, t01=0x0078}
0x8d1e…8d30               Head {h00=0x000e, h01=0x0050, text=» XIF   DK3«, t00=0x005a, t01=0x0098}
0x8d30…8d42               Head {h00=0x000e, h01=0x0050, text=» RF(Z) PA3«, t00=0x005a, t01=0x00aa}
0x8d42…8d54               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x005a, t01=0x00bc}
0x8d54…8d66               Head {h00=0x000e, h01=0x0050, text=» RB(Z) PA2«, t00=0x005a, t01=0x00ce}
0x8d66…8d76               Head {h00=0x000c, h01=0x0050, text=» RF PA1 «, t00=0x005a, t01=0x00e0}
0x8d76…8da0               Head {h00=0x0026, h01=0x0050, text=» RTN A14 RETURN TO MAIN READ LOOP «, t00=0x005a, t01=0x00f0}
0x8da0…8da8               Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x011a}
0x8da8…8db4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0122}
0x8db4…8dbe               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x005a, t01=0x012e}
0x8dbe…8dc6               Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0138}
0x8dc6…8dd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0140}
0x8dd0…8dfa               Head {h00=0x0026, h01=0x0050, text=»*    PA1    PROGRAM ATTENTION KEY «, t00=0x005a, t01=0x014a}
0x8dfa…8e04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0174}
0x8e04…8e0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x017e}
0x8e0e…8e20               Head {h00=0x000e, h01=0x0050, text=»PA1 EQU * «, t00=0x005a, t01=0x0188}
0x8e20…8e3c               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2C PA1 POS «, t00=0x005b, t01=0x000a}
0x8e3c…8e4e               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x005b, t01=0x0026}
0x8e4e…8e58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0038}
0x8e58…8e62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0042}
0x8e62…8e8a               Head {h00=0x0024, h01=0x0050, text=»*    PA3   PROGRAM ATTENTION KEY«, t00=0x005b, t01=0x004c}
0x8e8a…8e94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0074}
0x8e94…8e9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x007e}
0x8e9e…8eb0               Head {h00=0x000e, h01=0x0050, text=»PA3 EQU * «, t00=0x005b, t01=0x0088}
0x8eb0…8ecc               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2B PA3 POS «, t00=0x005b, t01=0x009a}
0x8ecc…8ede               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x005b, t01=0x00b6}
0x8ede…8ee8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00c8}
0x8ee8…8f08               Head {h00=0x001c, h01=0x0050, text=»* PA4 - PA10 (ALFASKOP) «, t00=0x005b, t01=0x00d2}
0x8f08…8f20               Head {h00=0x0014, h01=0x0050, text=» IFT PA49=1  DK3«, t00=0x005b, t01=0x00f2}
0x8f20…8f38               Head {h00=0x0014, h01=0x0050, text=»PAEXB EQU *  DK3«, t00=0x005b, t01=0x010a}
0x8f38…8f50               Head {h00=0x0014, h01=0x0050, text=» SUK A2,/6  DK3 «, t00=0x005b, t01=0x0122}
0x8f50…8f6a               Head {h00=0x0016, h01=0x0050, text=» RF(G) PFERR  DK3 «, t00=0x005b, t01=0x013a}
0x8f6a…8f8c               Head {h00=0x001e, h01=0x0050, text=» ADK A2,/69 SET PA4-9 DK3 «, t00=0x005b, t01=0x0154}
0x8f8c…8fa4               Head {h00=0x0014, h01=0x0050, text=» RB CAN200  DK3 «, t00=0x005b, t01=0x0176}
0x8fa4…8fb6               Head {h00=0x000e, h01=0x0050, text=» XIF   DK3«, t00=0x005b, t01=0x018e}
0x8fb6…8fc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0010}
0x8fc0…8fd4               Head {h00=0x0010, h01=0x0050, text=»PA410 EQU * «, t00=0x005c, t01=0x001a}
0x8fd4…8fe8               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x005c, t01=0x002e}
0x8fe8…8ffa               Head {h00=0x000e, h01=0x0050, text=» RB CAN200«, t00=0x005c, t01=0x0042}
0x8ffa…9004               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x005c, t01=0x0054}
0x9004…900e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x005e}
0x900e…904e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x005c, t01=0x0068}
0x904e…9058               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00a8}
0x9058…9068               Head {h00=0x000c, h01=0x0050, text=»* ENTER «, t00=0x005c, t01=0x00b2}
0x9068…9072               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00c2}
0x9072…90ae               Head {h00=0x0038, h01=0x0050, text=»* PROGRAM FUNCTION KEY WHICH CAUSES AN I/O OPERATION«, t00=0x005c, t01=0x00cc}
0x90ae…90ee               Head {h00=0x003c, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER FOLLOWED BY AN SBA ORDER«, t00=0x005c, t01=0x0108}
0x90ee…912a               Head {h00=0x0038, h01=0x0050, text=»* ATTRIBUTE ADDRESS AND TEXT FOR EACH MODIFIED FIELD«, t00=0x005c, t01=0x0148}
0x912a…9148               Head {h00=0x001a, h01=0x0050, text=»* NULLS ARE SUPRESSED «, t00=0x005c, t01=0x0184}
0x9148…9152               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0012}
0x9152…9194               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x005d, t01=0x001c}
0x9194…919e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x005e}
0x919e…91c4               Head {h00=0x0022, h01=0x0050, text=»* READ MODIFIED HANDLING  DK7 «, t00=0x005d, t01=0x0068}
0x91c4…91de               Head {h00=0x0016, h01=0x0050, text=»READMY EQU *  DK7 «, t00=0x005d, t01=0x008e}
0x91de…9206               Head {h00=0x0024, h01=0x0050, text=» LDK A2,/20 NO AID GENERATED DK7«, t00=0x005d, t01=0x00a8}
0x9206…9222               Head {h00=0x0018, h01=0x0050, text=» RF ENT100 DO IT DK7«, t00=0x005d, t01=0x00d0}
0x9222…9236               Head {h00=0x0010, h01=0x0050, text=»ENTER EQU * «, t00=0x005d, t01=0x00ec}
0x9236…9254               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/3D ENTER POS «, t00=0x005d, t01=0x0100}
0x9254…9268               Head {h00=0x0010, h01=0x0050, text=»ENT100 EQU *«, t00=0x005d, t01=0x011e}
0x9268…9292               Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x005d, t01=0x0132}
0x9292…92c4               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x005d, t01=0x015c}
0x92c4…92f6               Head {h00=0x002e, h01=0x0050, text=» CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT «, t00=0x005d, t01=0x018e}
0x92f6…930a               Head {h00=0x0010, h01=0x0050, text=»ENT200 EQU *«, t00=0x005e, t01=0x0030}
0x930a…931a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005e, t01=0x0044}
0x931a…9324               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0054}
0x9324…932c               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x005e}
0x932c…933e               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x005e, t01=0x0066}
0x933e…9346               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x0078}
0x9346…9350               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0080}
0x9350…935a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x008a}
0x935a…93a4               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM FUNCTION KEY IOS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x005e, t01=0x0094}
0x93a4…93d8               Head {h00=0x0030, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PF1-PF12«, t00=0x005e, t01=0x00de}
0x93d8…93e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0112}
0x93e2…93ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x011c}
0x93ec…93fe               Head {h00=0x000e, h01=0x0050, text=»PFEX EQU *«, t00=0x005e, t01=0x0126}
0x93fe…9414               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PFEXA«, t00=0x005e, t01=0x0138}
0x9414…9426               Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x005e, t01=0x014e}
0x9426…943a               Head {h00=0x0010, h01=0x0050, text=»PFEXA EQU * «, t00=0x005e, t01=0x0160}
0x943a…9454               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005e, t01=0x0174}
0x9454…9474               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL CHAR ?«, t00=0x005e, t01=0x018e}
0x9474…94a4               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING «, t00=0x005f, t01=0x001e}
0x94a4…94ce               Head {h00=0x0026, h01=0x0050, text=» RF(Z) PF0 FIRST NUM. 0 GO TO PF0 «, t00=0x005f, t01=0x004e}
0x94ce…94f0               Head {h00=0x001e, h01=0x0050, text=» SUK A2,/1 FIRST NUM. 1 ? «, t00=0x005f, t01=0x0078}
0x94f0…9512               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL NUM. «, t00=0x005f, t01=0x009a}
0x9512…9528               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PF1A «, t00=0x005f, t01=0x00bc}
0x9528…953a               Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x005f, t01=0x00d2}
0x953a…954c               Head {h00=0x000e, h01=0x0050, text=»PF1A EQU *«, t00=0x005f, t01=0x00e4}
0x954c…9566               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005f, t01=0x00f6}
0x9566…9586               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL NUM.? «, t00=0x005f, t01=0x0110}
0x9586…95b6               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005f, t01=0x0130}
0x95b6…95d4               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/2 LEGAL NUM ?«, t00=0x005f, t01=0x0160}
0x95d4…9604               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005f, t01=0x017e}
0x9604…9624               Head {h00=0x001c, h01=0x0050, text=» ADK A2,/3C PF10-12 POS «, t00=0x0060, t01=0x001e}
0x9624…9636               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x0060, t01=0x003e}
0x9636…963e               Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x0050}
0x963e…9650               Head {h00=0x000e, h01=0x0050, text=»PF0 EQU * «, t00=0x0060, t01=0x0058}
0x9650…9666               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PF0A «, t00=0x0060, t01=0x006a}
0x9666…967a               Head {h00=0x0010, h01=0x0050, text=»PFNXT EQU * «, t00=0x0060, t01=0x0080}
0x967a…9696               Head {h00=0x0018, h01=0x0050, text=» ST A1,RDMORE,TCABAS«, t00=0x0060, t01=0x0094}
0x9696…96a6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x00b0}
0x96a6…96b8               Head {h00=0x000e, h01=0x0050, text=»PF0A EQU *«, t00=0x0060, t01=0x00c0}
0x96b8…96d2               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x0060, t01=0x00d2}
0x96d2…96f2               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/31 LEGAL NUM ? «, t00=0x0060, t01=0x00ec}
0x96f2…9722               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x0060, t01=0x010c}
0x9722…9740               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/8 LEGAL NUM ?«, t00=0x0060, t01=0x013c}
0x9740…9770               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x0060, t01=0x015a}
0x9770…978e               Head {h00=0x001a, h01=0x0050, text=» ADK A2,/39 PF1-9 POS «, t00=0x0060, t01=0x018a}
0x978e…97a0               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x0061, t01=0x0018}
0x97a0…97ac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x002a}
0x97ac…97c0               Head {h00=0x0010, h01=0x0050, text=»PFERR EQU * «, t00=0x0061, t01=0x0036}
0x97c0…97ee               Head {h00=0x002a, h01=0x0050, text=» CF A14,ERROR GO TO ERR-HANDLING RUTIN«, t00=0x0061, t01=0x004a}
0x97ee…9816               Head {h00=0x0024, h01=0x0050, text=» RTN A14 GO TO MAIN READ MODULE «, t00=0x0061, t01=0x0078}
0x9816…981e               Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x00a0}
0x981e…9826               Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x00a8}
0x9826…9836               Head {h00=0x000c, h01=0x0050, text=»PF EQU *«, t00=0x0061, t01=0x00b0}
0x9836…984a               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/5C «, t00=0x0061, t01=0x00c0}
0x984a…985c               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x0061, t01=0x00d4}
0x985c…9870               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0061, t01=0x00e6}
0x9870…987a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0061, t01=0x00fa}
0x987a…98be               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0061, t01=0x0104}
0x98be…98c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0148}
0x98c8…98d8               Head {h00=0x000c, h01=0x0050, text=»* OFLINE«, t00=0x0061, t01=0x0152}
0x98d8…9918               Head {h00=0x003c, h01=0x0050, text=»*            THE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND «, t00=0x0061, t01=0x0162}
0x9918…9954               Head {h00=0x0038, h01=0x0050, text=»*           A BRANCH IS MADE BACK TO CREDIT PROGRAM «, t00=0x0062, t01=0x0012}
0x9954…995e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x004e}
0x995e…99a4               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0062, t01=0x0058}
0x99a4…99b8               Head {h00=0x0010, h01=0x0050, text=»OFLINE EQU *«, t00=0x0062, t01=0x009e}
0x99b8…99ce               Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0062, t01=0x00b2}
0x99ce…99e2               Head {h00=0x0010, h01=0x0050, text=»OFLI05 EQU *«, t00=0x0062, t01=0x00c8}
0x99e2…99f8               Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0062, t01=0x00dc}
0x99f8…9a0c               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0062, t01=0x00f2}
0x9a0c…9a26               Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x0062, t01=0x0106}
0x9a26…9a38               Head {h00=0x000e, h01=0x0050, text=» XRK A7,1 «, t00=0x0062, t01=0x0120}
0x9a38…9a52               Head {h00=0x0016, h01=0x0050, text=» ST A7,MAIN,TCABAS«, t00=0x0062, t01=0x0132}
0x9a52…9a86               Head {h00=0x0030, h01=0x0050, text=» CF A14,DCABOR ABORT REQUEST NOT CURRENT MF «, t00=0x0062, t01=0x014c}
0x9a86…9a92               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x0180}
0x9a92…9aa6               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0062, t01=0x018c}
0x9aa6…9ae0               Head {h00=0x0036, h01=0x0050, text=» LDK A1,0 DV ADDRESS ::= 0MESSAGES TO VDU IGNORED «, t00=0x0063, t01=0x0010}
0x9ae0…9afe               Head {h00=0x001a, h01=0x0050, text=» LDKL A8,ECBDC MF # 1 «, t00=0x0063, t01=0x004a}
0x9afe…9b28               Head {h00=0x0026, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETERS «, t00=0x0063, t01=0x0068}
0x9b28…9b3c               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0063, t01=0x0092}
0x9b3c…9b5a               Head {h00=0x001a, h01=0x0050, text=» LDKL A8,ECBDC2 MF # 2«, t00=0x0063, t01=0x00a6}
0x9b5a…9b84               Head {h00=0x0026, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETERS «, t00=0x0063, t01=0x00c4}
0x9b84…9b90               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x00ee}
0x9b90…9ba4               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0063, t01=0x00fa}
0x9ba4…9bba               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1OF«, t00=0x0063, t01=0x010e}
0x9bba…9bd0               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2OF«, t00=0x0063, t01=0x0124}
0x9bd0…9be6               Head {h00=0x0012, h01=0x0050, text=» CF A14,LSAVOF«, t00=0x0063, t01=0x013a}
0x9be6…9c12               Head {h00=0x0028, h01=0x0050, text=» CF A14,LIOLON TURN ON OFFLINE LAMP «, t00=0x0063, t01=0x0150}
0x9c12…9c3c               Head {h00=0x0026, h01=0x0050, text=» IM OFFFLG,TCABAS SET OFFLINE FLAG«, t00=0x0063, t01=0x017c}
0x9c3c…9c64               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 SKIP ONE STACK LEVEL«, t00=0x0064, t01=0x0016}
0x9c64…9c92               Head {h00=0x002a, h01=0x0050, text=» LD A13,2,A14 RELOAD REGISTERS A12-A13«, t00=0x0064, t01=0x003e}
0x9c92…9ca8               Head {h00=0x0012, h01=0x0050, text=» LD A12,4,A14 «, t00=0x0064, t01=0x006c}
0x9ca8…9cd0               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0064, t01=0x0082}
0x9cd0…9cfe               Head {h00=0x002a, h01=0x0050, text=» ABL I:RT1 RETURN TO "OFFLINE" PROGRAM«, t00=0x0064, t01=0x00aa}
0x9cfe…9d06               Head {h00=0x0004, h01=0x0050, t00=0x0064, t01=0x00d8}
0x9d06…9d12               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x00e0}
0x9d12…9d26               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0064, t01=0x00ec}
0x9d26…9d30               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0064, t01=0x0100}
0x9d30…9d74               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0064, t01=0x010a}
0x9d74…9d7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x014e}
0x9d7e…9d98               Head {h00=0x0016, h01=0x0050, text=»* MAINFRAME CHANGE«, t00=0x0064, t01=0x0158}
0x9d98…9de4               Head {h00=0x0048, h01=0x0050, text=»*   THE SWITCH 'MAIN' IS CHANGED, AND THE APPROPRIATE 'SYSTEM' LAMP «, t00=0x0064, t01=0x0172}
0x9de4…9e02               Head {h00=0x001a, h01=0x0050, text=»*       IS TTURNED ON «, t00=0x0065, t01=0x002e}
0x9e02…9e0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x004c}
0x9e0c…9e5a               Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0065, t01=0x0056}
0x9e5a…9e64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00a4}
0x9e64…9e78               Head {h00=0x0010, h01=0x0050, text=»MFCHGE EQU *«, t00=0x0065, t01=0x00ae}
0x9e78…9e8e               Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0065, t01=0x00c2}
0x9e8e…9ea2               Head {h00=0x0010, h01=0x0050, text=»MFCH05 EQU *«, t00=0x0065, t01=0x00d8}
0x9ea2…9eb8               Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0065, t01=0x00ec}
0x9eb8…9ece               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1OF«, t00=0x0065, t01=0x0102}
0x9ece…9ee4               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2OF«, t00=0x0065, t01=0x0118}
0x9ee4…9efa               Head {h00=0x0012, h01=0x0050, text=» CF A14,LSAVOF«, t00=0x0065, t01=0x012e}
0x9efa…9f14               Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x0065, t01=0x0144}
0x9f14…9f26               Head {h00=0x000e, h01=0x0050, text=» XRK A1,1 «, t00=0x0065, t01=0x015e}
0x9f26…9f3c               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MFCH10«, t00=0x0065, t01=0x0170}
0x9f3c…9f52               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1ON«, t00=0x0065, t01=0x0186}
0x9f52…9f64               Head {h00=0x000e, h01=0x0050, text=» RF MFCH90«, t00=0x0066, t01=0x000c}
0x9f64…9f78               Head {h00=0x0010, h01=0x0050, text=»MFCH10 EQU *«, t00=0x0066, t01=0x001e}
0x9f78…9f8e               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2ON«, t00=0x0066, t01=0x0032}
0x9f8e…9fa2               Head {h00=0x0010, h01=0x0050, text=»MFCH90 EQU *«, t00=0x0066, t01=0x0048}
0x9fa2…9fbc               Head {h00=0x0016, h01=0x0050, text=» ST A1,MAIN,TCABAS«, t00=0x0066, t01=0x005c}
0x9fbc…9fcc               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0066, t01=0x0076}
0x9fcc…9fd8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0066, t01=0x0086}
0x9fd8…9fe2               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0066, t01=0x0092}
0x9fe2…9fec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x009c}
0x9fec…a02c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0066, t01=0x00a6}
0xa02c…a036               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00e6}
0xa036…a046               Head {h00=0x000c, h01=0x0050, text=»* CLEAR «, t00=0x0066, t01=0x00f0}
0xa046…a050               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0100}
0xa050…a08e               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0066, t01=0x010a}
0xa08e…a0ca               Head {h00=0x0038, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER. THE ENTIRE DISPLAY «, t00=0x0066, t01=0x0148}
0xa0ca…a108               Head {h00=0x003a, h01=0x0050, text=»* BUFFER IS CLEARED TO NULLS AND CURSOR IS LOCATED IN «, t00=0x0066, t01=0x0184}
0xa108…a11a               Head {h00=0x000e, h01=0x0050, text=»* HOME POS«, t00=0x0067, t01=0x0032}
0xa11a…a124               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0044}
0xa124…a164               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0067, t01=0x004e}
0xa164…a16e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x008e}
0xa16e…a182               Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x0067, t01=0x0098}
0xa182…a1a6               Head {h00=0x0020, h01=0x0050, text=» LDK A2,/2D POS FOR 'CLEAR' «, t00=0x0067, t01=0x00ac}
0xa1a6…a1be               Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x0067, t01=0x00d0}
0xa1be…a1f0               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x0067, t01=0x00e8}
0xa1f0…a21c               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0067, t01=0x011a}
0xa21c…a246               Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x0067, t01=0x0146}
0xa246…a256               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0067, t01=0x0170}
0xa256…a260               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0067, t01=0x0180}
0xa260…a26a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x018a}
0xa26a…a2ae (104, 0, 400) Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0068, t01=0x0004}
0xa2ae…a2b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0048}
0xa2b8…a2c8               Head {h00=0x000c, h01=0x0050, text=»* EREOF «, t00=0x0068, t01=0x0052}
0xa2c8…a2d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0062}
0xa2d2…a2f2               Head {h00=0x001c, h01=0x0050, text=»* ERASE TO END OF FIELD «, t00=0x0068, t01=0x006c}
0xa2f2…a2fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x008c}
0xa2fc…a340               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0068, t01=0x0096}
0xa340…a34a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00da}
0xa34a…a35e               Head {h00=0x0010, h01=0x0050, text=»EREOF EQU * «, t00=0x0068, t01=0x00e4}
0xa35e…a370               Head {h00=0x000e, h01=0x0050, text=» LDK A6,1 «, t00=0x0068, t01=0x00f8}
0xa370…a39a               Head {h00=0x0026, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE«, t00=0x0068, t01=0x010a}
0xa39a…a3ba               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/10 UNPROTECTED?«, t00=0x0068, t01=0x0134}
0xa3ba…a3d4               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE100 YES «, t00=0x0068, t01=0x0154}
0xa3d4…a3e6               Head {h00=0x000e, h01=0x0050, text=» ABL ERROR«, t00=0x0068, t01=0x016e}
0xa3e6…a408               Head {h00=0x001e, h01=0x0050, text=»ERE100 LD A2,PCURS,TCABAS «, t00=0x0068, t01=0x0180}
0xa408…a410               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x0012}
0xa410…a43c               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0069, t01=0x001a}
0xa43c…a444               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x0046}
0xa444…a47a               Head {h00=0x0032, h01=0x0050, text=» CW A2,CURATT,TCABAS STANDING ON ATTRIBUTE ?? «, t00=0x0069, t01=0x004e}
0xa47a…a4a8               Head {h00=0x002a, h01=0x0050, text=» ABL(E) ERROR YES!! TURN ON ERROR LAMP«, t00=0x0069, t01=0x0084}
0xa4a8…a4b0               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x00b2}
0xa4b0…a4dc               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0069, t01=0x00ba}
0xa4dc…a4e4               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x00e6}
0xa4e4…a510               Head {h00=0x0028, h01=0x0050, text=»ERE150 CF A14,GBUFFC GET BUFF. CHAR «, t00=0x0069, t01=0x00ee}
0xa510…a532               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR«, t00=0x0069, t01=0x011a}
0xa532…a54a               Head {h00=0x0014, h01=0x0050, text=» RF(G) ERE200 NO«, t00=0x0069, t01=0x013c}
0xa54a…a562               Head {h00=0x0014, h01=0x0050, text=»ERE160 LDR A1,A2«, t00=0x0069, t01=0x0154}
0xa562…a57e               Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0069, t01=0x016c}
0xa57e…a592               Head {h00=0x0010, h01=0x0050, text=»ERE170 EQU *«, t00=0x0069, t01=0x0188}
0xa592…a5a8               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x006a, t01=0x000c}
0xa5a8…a5be               Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x006a, t01=0x0022}
0xa5be…a5d0               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x006a, t01=0x0038}
0xa5d0…a604               Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE AND REPLASE WITH NULLS «, t00=0x006a, t01=0x004a}
0xa604…a630               Head {h00=0x0028, h01=0x0050, text=» CF A14,DISPL DISPLAY ERASED SCREEN «, t00=0x006a, t01=0x007e}
0xa630…a63a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00aa}
0xa63a…a666               Head {h00=0x0028, h01=0x0050, text=»*   SET MDT BIT IF FORMATTED SCREEN «, t00=0x006a, t01=0x00b4}
0xa666…a670               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00e0}
0xa670…a678               Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x00ea}
0xa678…a694               Head {h00=0x0018, h01=0x0050, text=» LD A2,CURATT,TCABAS«, t00=0x006a, t01=0x00f2}
0xa694…a6ac               Head {h00=0x0014, h01=0x0050, text=» CWK A2,LBVDU+1 «, t00=0x006a, t01=0x010e}
0xa6ac…a6d4               Head {h00=0x0024, h01=0x0050, text=» RF(E) ERE180 UNFORMATTED SCREEN«, t00=0x006a, t01=0x0126}
0xa6d4…a6dc               Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x014e}
0xa6dc…a6f0               Head {h00=0x0010, h01=0x0050, text=» ADK A2,BVDU«, t00=0x006a, t01=0x0156}
0xa6f0…a722               Head {h00=0x002e, h01=0x0050, text=» ADR A2,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x006a, t01=0x016a}
0xa722…a742               Head {h00=0x001c, h01=0x0050, text=» LCR A1,A2 GET ATTRIBUTE«, t00=0x006b, t01=0x000c}
0xa742…a760               Head {h00=0x001a, h01=0x0050, text=» ORK A1,1 SET MDT BIT «, t00=0x006b, t01=0x002c}
0xa760…a772               Head {h00=0x000e, h01=0x0050, text=» SCR A1,A2«, t00=0x006b, t01=0x004a}
0xa772…a786               Head {h00=0x0010, h01=0x0050, text=»ERE180 EQU *«, t00=0x006b, t01=0x005c}
0xa786…a796               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006b, t01=0x0070}
0xa796…a7c2               Head {h00=0x0028, h01=0x0050, text=»ERE200 CWK A2,LBVDU-1 END OF BUFFER?«, t00=0x006b, t01=0x0080}
0xa7c2…a7dc               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE300 YES «, t00=0x006b, t01=0x00ac}
0xa7dc…a7ee               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x006b, t01=0x00c6}
0xa7ee…a806               Head {h00=0x0014, h01=0x0050, text=» RB ERE150 NEXT «, t00=0x006b, t01=0x00d8}
0xa806…a834               Head {h00=0x002a, h01=0x0050, text=»ERE300 SUK A6,1 WHOLW BUFF CONTROLED? «, t00=0x006b, t01=0x00f0}
0xa834…a84a               Head {h00=0x0012, h01=0x0050, text=» RB(N) ERE160 «, t00=0x006b, t01=0x011e}
0xa84a…a868               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND.«, t00=0x006b, t01=0x0134}
0xa868…a87a               Head {h00=0x000e, h01=0x0050, text=» RB ERE150«, t00=0x006b, t01=0x0152}
0xa87a…a884               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x006b, t01=0x0164}
0xa884…a88e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x016e}
0xa88e…a8ce               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x006b, t01=0x0178}
0xa8ce…a8d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0028}
0xa8d8…a8e8               Head {h00=0x000c, h01=0x0050, text=»* ERINPT«, t00=0x006c, t01=0x0032}
0xa8e8…a8f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0042}
0xa8f2…a930               Head {h00=0x003a, h01=0x0050, text=»* CLEARS ALL UNPROTECTED CHARACTER LOCATIONS TO NULLS «, t00=0x006c, t01=0x004c}
0xa930…a96e               Head {h00=0x003a, h01=0x0050, text=»* AND REPOSITIONS THE CURSOR TO THE FIRST UNPROTECTED «, t00=0x006c, t01=0x008a}
0xa96e…a994               Head {h00=0x0022, h01=0x0050, text=»* CHAR LOCATION ON THE SCREEN «, t00=0x006c, t01=0x00c8}
0xa994…a99e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00ee}
0xa99e…a9de               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x006c, t01=0x00f8}
0xa9de…a9e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0138}
0xa9e8…a9fc               Head {h00=0x0010, h01=0x0050, text=»ERINPT EQU *«, t00=0x006c, t01=0x0142}
0xa9fc…aa28               Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x006c, t01=0x0156}
0xaa28…aa3e               Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x006c, t01=0x0182}
0xaa3e…aa5a               Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x006d, t01=0x0008}
0xaa5a…aa70               Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x006d, t01=0x0024}
0xaa70…aab2               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006d, t01=0x003a}
0xaab2…aac4               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006d, t01=0x007c}
0xaac4…aaec               Head {h00=0x0024, h01=0x0050, text=» RF(Z) ERI:10 NO ATTRIBUTE FOUND«, t00=0x006d, t01=0x008e}
0xaaec…ab20               Head {h00=0x0030, h01=0x0050, text=» RF(N) ERI:5 ATTRIBUTE NOT IN LAST POSITION «, t00=0x006d, t01=0x00b6}
0xab20…ab4e               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,-1 ATTRIBUTE IN LAST POSITION«, t00=0x006d, t01=0x00ea}
0xab4e…ab62               Head {h00=0x0010, h01=0x0050, text=»ERI:5 EQU * «, t00=0x006d, t01=0x0118}
0xab62…aba4               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006d, t01=0x012c}
0xaba4…abb6               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x006d, t01=0x016e}
0xabb6…abbe               Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x0180}
0xabbe…abd2               Head {h00=0x0010, h01=0x0050, text=»ERI:10 EQU *«, t00=0x006d, t01=0x0188}
0xabd2…abee               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x006e, t01=0x000c}
0xabee…abfe               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006e, t01=0x0028}
0xabfe…ac08               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x006e, t01=0x0038}
0xac08…ac12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0042}
0xac12…ac56               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006e, t01=0x004c}
0xac56…ac60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0090}
0xac60…ac70               Head {h00=0x000c, h01=0x0050, text=»* ERROR «, t00=0x006e, t01=0x009a}
0xac70…ac7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00aa}
0xac7a…acac               Head {h00=0x002e, h01=0x0050, text=»* THE MODULE TAKES CARE OF UNALLOWED KEYS «, t00=0x006e, t01=0x00b4}
0xacac…acb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00e6}
0xacb6…acfa               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x006e, t01=0x00f0}
0xacfa…ad04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0134}
0xad04…ad18               Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x006e, t01=0x013e}
0xad18…ad44               Head {h00=0x0028, h01=0x0050, text=» CF A14,LERRON TURN ON 'ERROR' LAMP «, t00=0x006e, t01=0x0152}
0xad44…ad60               Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x006e, t01=0x017e}
0xad60…ad98               Head {h00=0x0034, h01=0x0050, text=» ORK A5,4 BIT 13:=1,ERROR HANDLING.RESET ALLOWED«, t00=0x006f, t01=0x000a}
0xad98…adb4               Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x006f, t01=0x0042}
0xadb4…adbc               Head {h00=0x0004, h01=0x0050, t00=0x006f, t01=0x005e}
0xadbc…adc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0066}
0xadc6…ade6               Head {h00=0x001c, h01=0x0050, text=»*   TURN ON SOUND ALARM «, t00=0x006f, t01=0x0070}
0xade6…adf0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0090}
0xadf0…adf8               Head {h00=0x0004, h01=0x0050, t00=0x006f, t01=0x009a}
0xadf8…ae10               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x006f, t01=0x00a2}
0xae10…ae36               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS VDU-ECB ADDRESS«, t00=0x006f, t01=0x00ba}
0xae36…ae5c               Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBBA,A8 BUFFER ADDRESS«, t00=0x006f, t01=0x00e0}
0xae5c…ae84               Head {h00=0x0024, h01=0x0050, text=» LDK A7,X'2B' CONTROL CHARACTER «, t00=0x006f, t01=0x0106}
0xae84…ae98               Head {h00=0x0010, h01=0x0050, text=» SC A7,1,A2 «, t00=0x006f, t01=0x012e}
0xae98…aebc               Head {h00=0x0020, h01=0x0050, text=» LDK A7,X'07' BELL CHARACTER«, t00=0x006f, t01=0x0142}
0xaebc…aed0               Head {h00=0x0010, h01=0x0050, text=» SC A7,2,A2 «, t00=0x006f, t01=0x0166}
0xaed0…aef2               Head {h00=0x001e, h01=0x0050, text=» LDK A7,3 REQUESTED LENGTH«, t00=0x006f, t01=0x017a}
0xaef2…af0a               Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x0070, t01=0x000c}
0xaf0a…af2c               Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' SOUND ALARM «, t00=0x0070, t01=0x0024}
0xaf2c…af38               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0070, t01=0x0046}
0xaf38…af48               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0070, t01=0x0052}
0xaf48…af50               Head {h00=0x0004, h01=0x0050, t00=0x0070, t01=0x0062}
0xaf50…af60               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0070, t01=0x006a}
0xaf60…af76               Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0070, t01=0x007a}
0xaf76…af80               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0070, t01=0x0090}
0xaf80…afca               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0070, t01=0x009a}
0xafca…afd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00e4}
0xafd4…b000               Head {h00=0x0028, h01=0x0050, text=»*   KEY LOCK STATUS IS SET IN 'KEYS'«, t00=0x0070, t01=0x00ee}
0xb000…b030               Head {h00=0x002c, h01=0x0050, text=»* ON ENTRY  A2 = KEY LOCK VALUE /70-/77 «, t00=0x0070, t01=0x011a}
0xb030…b03a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x014a}
0xb03a…b084               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0070, t01=0x0154}
0xb084…b08e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x000e}
0xb08e…b0a0               Head {h00=0x000e, h01=0x0050, text=»KEYL EQU *«, t00=0x0071, t01=0x0018}
0xb0a0…b0ca               Head {h00=0x0026, h01=0x0050, text=» SUK A2,/78 GET NEG KEY LOCK VALUE«, t00=0x0071, t01=0x002a}
0xb0ca…b0f0               Head {h00=0x0022, h01=0x0050, text=» LD A3,KEYS,TCABAS OLD STATUS «, t00=0x0071, t01=0x0054}
0xb0f0…b104               Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x0071, t01=0x007a}
0xb104…b118               Head {h00=0x0010, h01=0x0050, text=»KEYL10 EQU *«, t00=0x0071, t01=0x008e}
0xb118…b12a               Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x0071, t01=0x00a2}
0xb12a…b14a               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 1 = OFF,0 = ON«, t00=0x0071, t01=0x00b4}
0xb14a…b160               Head {h00=0x0012, h01=0x0050, text=» RB(N) KEYL10 «, t00=0x0071, t01=0x00d4}
0xb160…b184               Head {h00=0x0020, h01=0x0050, text=» ANR A3,A4 CHECK OLD KEY POS«, t00=0x0071, t01=0x00ea}
0xb184…b1a2               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) KEYL20 WAS ON «, t00=0x0071, t01=0x010e}
0xb1a2…b1bc               Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 WAS OFF«, t00=0x0071, t01=0x012c}
0xb1bc…b1e6               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) KEYL99 NOW OFF, NO CHANGE «, t00=0x0071, t01=0x0146}
0xb1e6…b200               Head {h00=0x0016, h01=0x0050, text=» RF KEYL30 NOW ON «, t00=0x0071, t01=0x0170}
0xb200…b21c               Head {h00=0x0018, h01=0x0050, text=»KEYL20 EQU * WAS ON «, t00=0x0071, t01=0x018a}
0xb21c…b22e               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0072, t01=0x0016}
0xb22e…b256               Head {h00=0x0024, h01=0x0050, text=» RF(Z) KEYL99 NOW ON, NO CHANGE «, t00=0x0072, t01=0x0028}
0xb256…b272               Head {h00=0x0018, h01=0x0050, text=»KEYL30 EQU *  CHANGE«, t00=0x0072, t01=0x0050}
0xb272…b28c               Head {h00=0x0016, h01=0x0050, text=» LD A3,KEYS,TCABAS«, t00=0x0072, t01=0x006c}
0xb28c…b2ac               Head {h00=0x001c, h01=0x0050, text=» XRR A3,A4 CHANGE STATUS«, t00=0x0072, t01=0x0086}
0xb2ac…b2d8               Head {h00=0x0028, h01=0x0050, text=» ST A3,KEYS,TCABAS STORE NEW STATUS «, t00=0x0072, t01=0x00a6}
0xb2d8…b2e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00d2}
0xb2e2…b302               Head {h00=0x001c, h01=0x0050, text=»* KEYLOCK STATUS CHANGED«, t00=0x0072, t01=0x00dc}
0xb302…b350               Head {h00=0x004a, h01=0x0050, text=»*   A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON «, t00=0x0072, t01=0x00fc}
0xb350…b37e               Head {h00=0x002a, h01=0x0050, text=»*   A4 = KEYLOCK CHANGED, LAYOUT AS A3«, t00=0x0072, t01=0x014a}
0xb37e…b3aa               Head {h00=0x0028, h01=0x0050, text=»*   A2 = 1, IF CHANGED TO OFF ELSE 0«, t00=0x0072, t01=0x0178}
0xb3aa…b3b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0014}
0xb3b4…b3e2               Head {h00=0x002a, h01=0x0050, text=»* INSERT USER ROUTINE BELOW THIS LINE «, t00=0x0073, t01=0x001e}
0xb3e2…b3ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x004c}
0xb3ec…b400               Head {h00=0x0010, h01=0x0050, text=»KEYL99 EQU *«, t00=0x0073, t01=0x0056}
0xb400…b410               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0073, t01=0x006a}
0xb410…b41c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0073, t01=0x007a}
0xb41c…b426               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0073, t01=0x0086}
0xb426…b430               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0090}
0xb430…b470               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0073, t01=0x009a}
0xb470…b47a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00da}
0xb47a…b48e               Head {h00=0x0010, h01=0x0050, text=»* LAMPMODULE«, t00=0x0073, t01=0x00e4}
0xb48e…b498               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00f8}
0xb498…b4a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0102}
0xb4a2…b4e2               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0073, t01=0x010c}
0xb4e2…b4ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x014c}
0xb4ec…b500               Head {h00=0x0010, h01=0x0050, text=»LON EQU /B7 «, t00=0x0073, t01=0x0156}
0xb500…b514               Head {h00=0x0010, h01=0x0050, text=»LOF EQU /B8 «, t00=0x0073, t01=0x016a}
0xb514…b52a               Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0073, t01=0x017e}
0xb52a…b53e (116, 0, 400) Head {h00=0x0010, h01=0x0050, text=»LMF1 EQU /20«, t00=0x0074, t01=0x0004}
0xb53e…b552               Head {h00=0x0010, h01=0x0050, text=»LMF2 EQU /10«, t00=0x0074, t01=0x0018}
0xb552…b56a               Head {h00=0x0014, h01=0x0050, text=»LIOL EQU 1  DK2 «, t00=0x0074, t01=0x002c}
0xb56a…b582               Head {h00=0x0014, h01=0x0050, text=»LINH EQU 8  DK2 «, t00=0x0074, t01=0x0044}
0xb582…b59a               Head {h00=0x0014, h01=0x0050, text=»LERR EQU 4  DK2 «, t00=0x0074, t01=0x005c}
0xb59a…b5b4               Head {h00=0x0016, h01=0x0050, text=»LSAV EQU /10  DK2 «, t00=0x0074, t01=0x0074}
0xb5b4…b5c0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0074, t01=0x008e}
0xb5c0…b5d6               Head {h00=0x0012, h01=0x0050, text=» IFF KB6272=1 «, t00=0x0074, t01=0x009a}
0xb5d6…b5ec               Head {h00=0x0012, h01=0x0050, text=»LMF1 EQU 0  =2«, t00=0x0074, t01=0x00b0}
0xb5ec…b602               Head {h00=0x0012, h01=0x0050, text=»LMF2 EQU 0  =2«, t00=0x0074, t01=0x00c6}
0xb602…b618               Head {h00=0x0012, h01=0x0050, text=»LIOL EQU 1  =2«, t00=0x0074, t01=0x00dc}
0xb618…b62e               Head {h00=0x0012, h01=0x0050, text=»LINH EQU 2  =2«, t00=0x0074, t01=0x00f2}
0xb62e…b644               Head {h00=0x0012, h01=0x0050, text=»LERR EQU 4  =2«, t00=0x0074, t01=0x0108}
0xb644…b65a               Head {h00=0x0012, h01=0x0050, text=»LSAV EQU 8  =2«, t00=0x0074, t01=0x011e}
0xb65a…b666               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0074, t01=0x0134}
0xb666…b680               Head {h00=0x0016, h01=0x0050, text=»LMF1ON LDK A3,LMF1«, t00=0x0074, t01=0x0140}
0xb680…b692               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0074, t01=0x015a}
0xb692…b6ac               Head {h00=0x0016, h01=0x0050, text=»LMF1OF LDK A3,LMF1«, t00=0x0074, t01=0x016c}
0xb6ac…b6be               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0074, t01=0x0186}
0xb6be…b6d8               Head {h00=0x0016, h01=0x0050, text=»LMF2ON LDK A3,LMF2«, t00=0x0075, t01=0x0008}
0xb6d8…b6ea               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x0022}
0xb6ea…b704               Head {h00=0x0016, h01=0x0050, text=»LMF2OF LDK A3,LMF2«, t00=0x0075, t01=0x0034}
0xb704…b716               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x004e}
0xb716…b730               Head {h00=0x0016, h01=0x0050, text=»LIOLON LDK A3,LIOL«, t00=0x0075, t01=0x0060}
0xb730…b742               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x007a}
0xb742…b75c               Head {h00=0x0016, h01=0x0050, text=»LIOLOF LDK A3,LIOL«, t00=0x0075, t01=0x008c}
0xb75c…b76e               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x00a6}
0xb76e…b788               Head {h00=0x0016, h01=0x0050, text=»LINHON LDK A3,LINH«, t00=0x0075, t01=0x00b8}
0xb788…b79a               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x00d2}
0xb79a…b7b4               Head {h00=0x0016, h01=0x0050, text=»LINHOF LDK A3,LINH«, t00=0x0075, t01=0x00e4}
0xb7b4…b7c6               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x00fe}
0xb7c6…b7e0               Head {h00=0x0016, h01=0x0050, text=»LERRON LDK A3,LERR«, t00=0x0075, t01=0x0110}
0xb7e0…b7f2               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x012a}
0xb7f2…b80c               Head {h00=0x0016, h01=0x0050, text=»LERROF LDK A3,LERR«, t00=0x0075, t01=0x013c}
0xb80c…b81e               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x0156}
0xb81e…b838               Head {h00=0x0016, h01=0x0050, text=»LSAVON LDK A3,LSAV«, t00=0x0075, t01=0x0168}
0xb838…b84a               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x0182}
0xb84a…b864 (118, 0, 400) Head {h00=0x0016, h01=0x0050, text=»LSAVOF LDK A3,LSAV«, t00=0x0076, t01=0x0004}
0xb864…b876               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0076, t01=0x001e}
0xb876…b880               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0030}
0xb880…b89a               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  DK2«, t00=0x0076, t01=0x003a}
0xb89a…b8b2               Head {h00=0x0014, h01=0x0050, text=»LMPON LDK A7,LON«, t00=0x0076, t01=0x0054}
0xb8b2…b8c4               Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0076, t01=0x006c}
0xb8c4…b8dc               Head {h00=0x0014, h01=0x0050, text=»LMPOF LDK A7,LOF«, t00=0x0076, t01=0x007e}
0xb8dc…b8ee               Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0076, t01=0x0096}
0xb8ee…b900               Head {h00=0x000e, h01=0x0050, text=» XIF   DK2«, t00=0x0076, t01=0x00a8}
0xb900…b922               Head {h00=0x001e, h01=0x0050, text=» IFT KB6272+LMPVDU=1  DK5 «, t00=0x0076, t01=0x00ba}
0xb922…b940               Head {h00=0x001a, h01=0x0050, text=»LMPON LDK A7,LON  DK5 «, t00=0x0076, t01=0x00dc}
0xb940…b956               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK5«, t00=0x0076, t01=0x00fa}
0xb956…b974               Head {h00=0x001a, h01=0x0050, text=»LMPOF LDK A7,LOF  DK5 «, t00=0x0076, t01=0x0110}
0xb974…b98a               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK5«, t00=0x0076, t01=0x012e}
0xb98a…b99c               Head {h00=0x000e, h01=0x0050, text=» XIF   DK5«, t00=0x0076, t01=0x0144}
0xb99c…b9c0               Head {h00=0x0020, h01=0x0050, text=» IFT KB6272+LMPVDU=2  DK2+5 «, t00=0x0076, t01=0x0156}
0xb9c0…b9e8               Head {h00=0x0024, h01=0x0050, text=»LMPON ORS A3,LAMSAV,TCABAS  DK2 «, t00=0x0076, t01=0x017a}
0xb9e8…b9fe               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK2«, t00=0x0077, t01=0x0012}
0xb9fe…ba1a               Head {h00=0x0018, h01=0x0050, text=»LMPOF C1R A3,A3  DK2«, t00=0x0077, t01=0x0028}
0xba1a…ba3c               Head {h00=0x001e, h01=0x0050, text=» ANS A3,LAMSAV,TCABAS  DK2«, t00=0x0077, t01=0x0044}
0xba3c…ba52               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK2«, t00=0x0077, t01=0x0066}
0xba52…ba64               Head {h00=0x000e, h01=0x0050, text=» XIF   DK2«, t00=0x0077, t01=0x007c}
0xba64…ba6e               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0077, t01=0x008e}
0xba6e…ba76               Head {h00=0x0004, h01=0x0050, t00=0x0077, t01=0x0098}
0xba76…ba80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00a0}
0xba80…bac0               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0077, t01=0x00aa}
0xbac0…baca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00ea}
0xbaca…bada               Head {h00=0x000c, h01=0x0050, text=»* SDISP «, t00=0x0077, t01=0x00f4}
0xbada…bae4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0104}
0xbae4…bb0c               Head {h00=0x0024, h01=0x0050, text=»* SIGNAL DISPLAY MONITOR REQUEST«, t00=0x0077, t01=0x010e}
0xbb0c…bb16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0136}
0xbb16…bb56               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0077, t01=0x0140}
0xbb56…bb60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0180}
0xbb60…bb68               Head {h00=0x0004, h01=0x0050, t00=0x0077, t01=0x018a}
0xbb68…bb82 (120, 0, 400) Head {h00=0x0016, h01=0x0050, text=»SDISP EQU *  DK2+5«, t00=0x0078, t01=0x0004}
0xbb82…bb9e               Head {h00=0x0018, h01=0x0050, text=» LDKL A8,ECBSD DK2+5«, t00=0x0078, t01=0x001e}
0xbb9e…bbbc               Head {h00=0x001a, h01=0x0050, text=» ADR A8,CREBAS  DK2+5 «, t00=0x0078, t01=0x003a}
0xbbbc…bbd8               Head {h00=0x0018, h01=0x0050, text=» IFF KB6272=1  DK2+5«, t00=0x0078, t01=0x0058}
0xbbd8…bbf6               Head {h00=0x001a, h01=0x0050, text=» ST A3,ECBCW,A8  DK2+5«, t00=0x0078, t01=0x0074}
0xbbf6…bc0a               Head {h00=0x0010, h01=0x0050, text=» XIF   DK2+5«, t00=0x0078, t01=0x0092}
0xbc0a…bc2e               Head {h00=0x0020, h01=0x0050, text=» IFT LMPVDU+KB6272=1  DK2+5 «, t00=0x0078, t01=0x00a6}
0xbc2e…bc4c               Head {h00=0x001a, h01=0x0050, text=» ST A3,ECBCW,A8  DK2+5«, t00=0x0078, t01=0x00ca}
0xbc4c…bc60               Head {h00=0x0010, h01=0x0050, text=» XIF   DK2+5«, t00=0x0078, t01=0x00e8}
0xbc60…bc84               Head {h00=0x0020, h01=0x0050, text=» IFT LMPVDU+KB6272=2  DK2+5 «, t00=0x0078, t01=0x00fc}
0xbc84…bca0               Head {h00=0x0018, h01=0x0050, text=» CM* ECBBA,A8  DK2+5«, t00=0x0078, t01=0x0120}
0xbca0…bcba               Head {h00=0x0016, h01=0x0050, text=» LDK A3,/1C  DK2+5«, t00=0x0078, t01=0x013c}
0xbcba…bcda               Head {h00=0x001c, h01=0x0050, text=» SC* A3,ECBBA,A8  DK2+5 «, t00=0x0078, t01=0x0156}
0xbcda…bcfe               Head {h00=0x0020, h01=0x0050, text=» LD A3,LAMSAV,TCABAS  DK2+5 «, t00=0x0078, t01=0x0176}
0xbcfe…bd1e               Head {h00=0x001c, h01=0x0050, text=» ORS* A3,ECBBA,A8  DK2+5«, t00=0x0079, t01=0x000a}
0xbd1e…bd36               Head {h00=0x0014, h01=0x0050, text=» LDK A3,2  DK2+5«, t00=0x0079, t01=0x002a}
0xbd36…bd54               Head {h00=0x001a, h01=0x0050, text=» ST A3,ECBRL,A8  DK2+5«, t00=0x0079, t01=0x0042}
0xbd54…bd6e               Head {h00=0x0016, h01=0x0050, text=» LDK A7,/85  DK2+5«, t00=0x0079, t01=0x0060}
0xbd6e…bd82               Head {h00=0x0010, h01=0x0050, text=» XIF   DK2+5«, t00=0x0079, t01=0x007a}
0xbd82…bd96               Head {h00=0x0010, h01=0x0050, text=» LKM   DK2+5«, t00=0x0079, t01=0x008e}
0xbd96…bdac               Head {h00=0x0012, h01=0x0050, text=» DATA 1  DK2+5«, t00=0x0079, t01=0x00a2}
0xbdac…bdc4               Head {h00=0x0014, h01=0x0050, text=» RTN A14  DK2+5 «, t00=0x0079, t01=0x00b8}
0xbdc4…bdce               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0079, t01=0x00d0}
0xbdce…bdd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00da}
0xbdd8…be18               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0079, t01=0x00e4}
0xbe18…be22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0124}
0xbe22…be36               Head {h00=0x0010, h01=0x0050, text=»*     ATMASB«, t00=0x0079, t01=0x012e}
0xbe36…be40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0142}
0xbe40…be7e               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR BACKWARDS AND MASK IT «, t00=0x0079, t01=0x014c}
0xbe7e…be88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x018a}
0xbe88…bec8 (122, 0, 400) Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007a, t01=0x0004}
0xbec8…bed2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0044}
0xbed2…bef8               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x007a, t01=0x004e}
0xbef8…bf20               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x007a, t01=0x0074}
0xbf20…bf52               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     1=END OF BUFFER LEFT «, t00=0x007a, t01=0x009c}
0xbf52…bf7e               Head {h00=0x0028, h01=0x0050, text=»*      2= ATTRIBUTE IN LAST POSITION«, t00=0x007a, t01=0x00ce}
0xbf7e…bf88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00fa}
0xbf88…bf9c               Head {h00=0x0010, h01=0x0050, text=»ATMASB EQU *«, t00=0x007a, t01=0x0104}
0xbf9c…bfae               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x007a, t01=0x0118}
0xbfae…bfc2               Head {h00=0x0010, h01=0x0050, text=»ASB05 EQU * «, t00=0x007a, t01=0x012a}
0xbfc2…bfe8               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x007a, t01=0x013e}
0xbfe8…c00a               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR. «, t00=0x007a, t01=0x0164}
0xc00a…c022               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASB10 NO «, t00=0x007a, t01=0x0186}
0xc022…c044               Head {h00=0x001e, h01=0x0050, text=»ASB08 ST A3,ATTRIB,TCABAS «, t00=0x007b, t01=0x000e}
0xc044…c074               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x007b, t01=0x0030}
0xc074…c084               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007b, t01=0x0060}
0xc084…c0a8               Head {h00=0x0020, h01=0x0050, text=»ASB10 CWK A2,0 END OF BUFFER«, t00=0x007b, t01=0x0070}
0xc0a8…c0c0               Head {h00=0x0014, h01=0x0050, text=» RF(E) ASB20 YES«, t00=0x007b, t01=0x0094}
0xc0c0…c0d2               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x007b, t01=0x00ac}
0xc0d2…c0e8               Head {h00=0x0012, h01=0x0050, text=» RB ASB05 NEXT«, t00=0x007b, t01=0x00be}
0xc0e8…c0fc               Head {h00=0x0010, h01=0x0050, text=»ASB20 EQU * «, t00=0x007b, t01=0x00d4}
0xc0fc…c106               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x007b, t01=0x00e8}
0xc106…c10e               Head {h00=0x0004, h01=0x0050, t00=0x007b, t01=0x00f2}
0xc10e…c148               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x007b, t01=0x00fa}
0xc148…c170               Head {h00=0x0024, h01=0x0050, text=» LDK A1,2 ATTRIBUTE IN LAST POS.«, t00=0x007b, t01=0x0134}
0xc170…c19a               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,1919 LAST BUFFER POSITION«, t00=0x007b, t01=0x015c}
0xc19a…c1be               Head {h00=0x0020, h01=0x0050, text=» CF A14,GBUFFC GET CHARACTER«, t00=0x007b, t01=0x0186}
0xc1be…c1e0               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE ??? «, t00=0x007c, t01=0x001a}
0xc1e0…c1fc               Head {h00=0x0018, h01=0x0050, text=» RB(NG) ASB08 YES!!!«, t00=0x007c, t01=0x003c}
0xc1fc…c220               Head {h00=0x0020, h01=0x0050, text=» SUR A2,A2 FIRST SCREEN POS.«, t00=0x007c, t01=0x0058}
0xc220…c256               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x007c, t01=0x007c}
0xc256…c25e               Head {h00=0x0004, h01=0x0050, t00=0x007c, t01=0x00b2}
0xc25e…c280               Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 END BUFFER LEFT «, t00=0x007c, t01=0x00ba}
0xc280…c29a               Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x007c, t01=0x00dc}
0xc29a…c2b2               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,LBVDU+1«, t00=0x007c, t01=0x00f6}
0xc2b2…c2ea               Head {h00=0x0034, h01=0x0050, text=» ST A7,CURATT,TCABAS POSSIBLY UNFORMATTED SCREEN«, t00=0x007c, t01=0x010e}
0xc2ea…c2fa               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007c, t01=0x0146}
0xc2fa…c304               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x007c, t01=0x0156}
0xc304…c30e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0160}
0xc30e…c34e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007c, t01=0x016a}
0xc34e…c358               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x001a}
0xc358…c36c               Head {h00=0x0010, h01=0x0050, text=»*     ATMASF«, t00=0x007d, t01=0x0024}
0xc36c…c376               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0038}
0xc376…c3b4               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR. FORWARDS AND MASK IT «, t00=0x007d, t01=0x0042}
0xc3b4…c3be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0080}
0xc3be…c400               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x007d, t01=0x008a}
0xc400…c40a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00cc}
0xc40a…c420               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x007d, t01=0x00d6}
0xc420…c446               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x007d, t01=0x00ec}
0xc446…c46e               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x007d, t01=0x0112}
0xc46e…c4a0               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     2=END OF BUFFER RIGHT«, t00=0x007d, t01=0x013a}
0xc4a0…c4c6               Head {h00=0x0022, h01=0x0050, text=»*   A3=ATTRIB IN LAST BUFF POS«, t00=0x007d, t01=0x016c}
0xc4c6…c4d0 (126, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0004}
0xc4d0…c4d8               Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x000e}
0xc4d8…c4e0               Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x0016}
0xc4e0…c4f4               Head {h00=0x0010, h01=0x0050, text=»S:ATT EQU * «, t00=0x007e, t01=0x001e}
0xc4f4…c510               Head {h00=0x0018, h01=0x0050, text=» LD A7,ATTRIB,TCABAS«, t00=0x007e, t01=0x0032}
0xc510…c52c               Head {h00=0x0018, h01=0x0050, text=» LD A8,CURATT,TCABAS«, t00=0x007e, t01=0x004e}
0xc52c…c55c               Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x007e, t01=0x006a}
0xc55c…c578               Head {h00=0x0018, h01=0x0050, text=» ST A7,ATTRIB,TCABAS«, t00=0x007e, t01=0x009a}
0xc578…c594               Head {h00=0x0018, h01=0x0050, text=» ST A8,CURATT,TCABAS«, t00=0x007e, t01=0x00b6}
0xc594…c5a4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007e, t01=0x00d2}
0xc5a4…c5ac               Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x00e2}
0xc5ac…c5c0               Head {h00=0x0010, h01=0x0050, text=»ATMASF EQU *«, t00=0x007e, t01=0x00ea}
0xc5c0…c5d2               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x007e, t01=0x00fe}
0xc5d2…c5e6               Head {h00=0x0010, h01=0x0050, text=»ASF05 EQU * «, t00=0x007e, t01=0x0110}
0xc5e6…c60c               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x007e, t01=0x0124}
0xc60c…c62c               Head {h00=0x001c, h01=0x0050, text=» CWK A3,/1F ATTRIB CHAR?«, t00=0x007e, t01=0x014a}
0xc62c…c644               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASF10 NO «, t00=0x007e, t01=0x016a}
0xc644…c688               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007e, t01=0x0182}
0xc688…c6b8               Head {h00=0x002c, h01=0x0050, text=» CWK A2,LBVDU-1 EOB +ATTRIB IN LAST POS «, t00=0x007f, t01=0x0036}
0xc6b8…c6fc               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007f, t01=0x0066}
0xc6fc…c714               Head {h00=0x0014, h01=0x0050, text=» RF(NE) ASF08 NO«, t00=0x007f, t01=0x00aa}
0xc714…c726               Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x007f, t01=0x00c2}
0xc726…c748               Head {h00=0x001e, h01=0x0050, text=»ASF08 ST A3,ATTRIB,TCABAS «, t00=0x007f, t01=0x00d4}
0xc748…c778               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x007f, t01=0x00f6}
0xc778…c788               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007f, t01=0x0126}
0xc788…c7b4               Head {h00=0x0028, h01=0x0050, text=»ASF10 CWK A2,LBVDU-1 END OF BUFFER? «, t00=0x007f, t01=0x0136}
0xc7b4…c7cc               Head {h00=0x0014, h01=0x0050, text=» RF(L) ASF20 NO «, t00=0x007f, t01=0x0162}
0xc7cc…c7de               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x007f, t01=0x017a}
0xc7de…c7ee               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007f, t01=0x018c}
0xc7ee…c804               Head {h00=0x0012, h01=0x0050, text=»ASF20 ADK A2,1«, t00=0x0080, t01=0x000c}
0xc804…c816               Head {h00=0x000e, h01=0x0050, text=» RB ASF05 «, t00=0x0080, t01=0x0022}
0xc816…c820               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0080, t01=0x0034}
0xc820…c82a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x003e}
0xc82a…c864               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0080, t01=0x0048}
0xc864…c86e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0082}
0xc86e…c87e               Head {h00=0x000c, h01=0x0050, text=»* GBUFFC«, t00=0x0080, t01=0x008c}
0xc87e…c888               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x009c}
0xc888…c8c2               Head {h00=0x0036, h01=0x0050, text=»* GET VDU BUFFER CHAR WHICH IS INDICATED BY CURSOR«, t00=0x0080, t01=0x00a6}
0xc8c2…c8cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00e0}
0xc8cc…c906               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0080, t01=0x00ea}
0xc906…c910               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0124}
0xc910…c930               Head {h00=0x001c, h01=0x0050, text=»* A2=CURSOR BINARY ADDR «, t00=0x0080, t01=0x012e}
0xc930…c946               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x0080, t01=0x014e}
0xc946…c950               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0164}
0xc950…c95a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x016e}
0xc95a…c96e               Head {h00=0x0010, h01=0x0050, text=»GBUFFC EQU *«, t00=0x0080, t01=0x0178}
0xc96e…c980               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0080, t01=0x018c}
0xc980…c996               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0081, t01=0x000e}
0xc996…c9bc               Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS GET VDU BUFFER «, t00=0x0081, t01=0x0024}
0xc9bc…c9ce               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A2«, t00=0x0081, t01=0x004a}
0xc9ce…c9f8               Head {h00=0x0026, h01=0x0050, text=» LCR A3,A4 GET CHARACTER IN BUFF. «, t00=0x0081, t01=0x005c}
0xc9f8…ca08               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x0086}
0xca08…ca12               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0081, t01=0x0096}
0xca12…ca1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00a0}
0xca1c…ca60               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0081, t01=0x00aa}
0xca60…ca6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00ee}
0xca6a…ca7a               Head {h00=0x000c, h01=0x0050, text=»* RESET «, t00=0x0081, t01=0x00f8}
0xca7a…ca84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0108}
0xca84…cac0               Head {h00=0x0038, h01=0x0050, text=»* RESET 'KEYBOARD INHIBIT' IN FOLLOWING SITUATIONS: «, t00=0x0081, t01=0x0112}
0xcac0…cafc               Head {h00=0x0038, h01=0x0050, text=»* 1- A DEVICE WITH AN ATTACHED KEYBOARD IS EXECUTING«, t00=0x0081, t01=0x014e}
0xcafc…cb24               Head {h00=0x0024, h01=0x0050, text=»*  A COMMAND. BIT 14=1 IN KBINH «, t00=0x0081, t01=0x018a}
0xcb24…cb5a               Head {h00=0x0032, h01=0x0050, text=»* 2- A PA-KEY OPERATION IS IN PROCESS PRIOR TO«, t00=0x0082, t01=0x0022}
0xcb5a…cb9a               Head {h00=0x003c, h01=0x0050, text=»*  INITIATION OF A COMMAND FOR A DEVICE WITH AN ATTACHED«, t00=0x0082, t01=0x0058}
0xcb9a…cbc0               Head {h00=0x0022, h01=0x0050, text=»*  KEYBOARD. BIT 14=1 IN KBINH«, t00=0x0082, t01=0x0098}
0xcbc0…cbee               Head {h00=0x002a, h01=0x0050, text=»* 3- ERRORSITUATION. BIT 14=1 IN KBINH«, t00=0x0082, t01=0x00be}
0xcbee…cbf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00ec}
0xcbf8…cc36               Head {h00=0x003a, h01=0x0050, text=»* IF BIT 15=1 IN KBINH => NO RESETTING ALLOWED DURING «, t00=0x0082, t01=0x00f6}
0xcc36…cc5e               Head {h00=0x0024, h01=0x0050, text=»* UPDATE AND DISPLAY SITUATION. «, t00=0x0082, t01=0x0134}
0xcc5e…cc68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x015c}
0xcc68…ccac               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0082, t01=0x0166}
0xccac…ccb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x001a}
0xccb6…ccca               Head {h00=0x0010, h01=0x0050, text=»RESET EQU * «, t00=0x0083, t01=0x0024}
0xccca…ccf4               Head {h00=0x0026, h01=0x0050, text=» CM MODE,TCABAS RESET INSERT MODE «, t00=0x0083, t01=0x0038}
0xccf4…cd22               Head {h00=0x002a, h01=0x0050, text=» CF A14,LIOLOF TURN OFF "INSERT" LAMP «, t00=0x0083, t01=0x0062}
0xcd22…cd4c               Head {h00=0x0026, h01=0x0050, text=» CM KBINH,TCABAS RESSTORE KEYBOARD«, t00=0x0083, t01=0x0090}
0xcd4c…cd78               Head {h00=0x0028, h01=0x0050, text=» CF A14,LERROF TURN OFF 'ERROR' LAMP«, t00=0x0083, t01=0x00ba}
0xcd78…cdb0               Head {h00=0x0034, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT' LAMP «, t00=0x0083, t01=0x00e6}
0xcdb0…cdc0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0083, t01=0x011e}
0xcdc0…cdca               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0083, t01=0x012e}
0xcdca…cdd2               Head {h00=0x0004, h01=0x0050, t00=0x0083, t01=0x0138}
0xcdd2…cdda               Head {h00=0x0004, h01=0x0050, t00=0x0083, t01=0x0140}
0xcdda…ce22               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0083, t01=0x0148}
0xce22…ce2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0190}
0xce2c…ce64               Head {h00=0x0034, h01=0x0050, text=»*   C O P Y  :   COPY CONTENTS IN VDU BUFFER ON «, t00=0x0084, t01=0x000a}
0xce64…ce8c               Head {h00=0x0024, h01=0x0050, text=»*                HARDCOPY DEVICE«, t00=0x0084, t01=0x0042}
0xce8c…ce96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x006a}
0xce96…ceda               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0084, t01=0x0074}
0xceda…cee2               Head {h00=0x0004, h01=0x0050, t00=0x0084, t01=0x00b8}
0xcee2…cef4               Head {h00=0x000e, h01=0x0050, text=»COPY EQU *«, t00=0x0084, t01=0x00c0}
0xcef4…cf10               Head {h00=0x0018, h01=0x0050, text=» LD A5,COPNO,TCABAS «, t00=0x0084, t01=0x00d2}
0xcf10…cf26               Head {h00=0x0012, h01=0x0050, text=» ABL(Z) ERROR «, t00=0x0084, t01=0x00ee}
0xcf26…cf42               Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x0084, t01=0x0104}
0xcf42…cf64               Head {h00=0x001e, h01=0x0050, text=» ADR A3,TCABAS   ADDRESSS «, t00=0x0084, t01=0x0120}
0xcf64…cf86               Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x0084, t01=0x0142}
0xcf86…cfb6               Head {h00=0x002c, h01=0x0050, text=» LDK A4,/8B ORDER = WRITE ADDRESSED WAIT«, t00=0x0084, t01=0x0164}
0xcfb6…cfc0 (133, 0, 400) Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0085, t01=0x0004}
0xcfc0…cfca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x000e}
0xcfca…cff2               Head {h00=0x0024, h01=0x0050, text=»* WRITE INTERTASK COMMUNICATION «, t00=0x0085, t01=0x0018}
0xcff2…cffc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0040}
0xcffc…d01a               Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0085, t01=0x004a}
0xd01a…d02e               Head {h00=0x0010, h01=0x0050, text=»* A4 = ORDER«, t00=0x0085, t01=0x0068}
0xd02e…d046               Head {h00=0x0014, h01=0x0050, text=»* A5 = "TO-TID" «, t00=0x0085, t01=0x007c}
0xd046…d060               Head {h00=0x0016, h01=0x0050, text=»* A6 = REQ LENGTH «, t00=0x0085, t01=0x0094}
0xd060…d06a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00ae}
0xd06a…d07e               Head {h00=0x0010, h01=0x0050, text=»ICWRTE EQU *«, t00=0x0085, t01=0x00b8}
0xd07e…d096               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x0085, t01=0x00cc}
0xd096…d0ac               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0085, t01=0x00e4}
0xd0ac…d0c0               Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0085, t01=0x00fa}
0xd0c0…d0ee               Head {h00=0x002a, h01=0x0050, text=» CF A14,REQTIM NO TIME OUT SUPERVISION«, t00=0x0085, t01=0x010e}
0xd0ee…d110               Head {h00=0x001e, h01=0x0050, text=» ST A5,ECBCW,A8 TO TASK ID«, t00=0x0085, t01=0x013c}
0xd110…d132               Head {h00=0x001e, h01=0x0050, text=» ST A6,ECBRL,A8 REQ LENGTH«, t00=0x0085, t01=0x015e}
0xd132…d14a               Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0085, t01=0x0180}
0xd14a…d162               Head {h00=0x0014, h01=0x0050, text=» LDR A7,A4 ORDER«, t00=0x0086, t01=0x0008}
0xd162…d16e               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0086, t01=0x0020}
0xd16e…d17e               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0086, t01=0x002c}
0xd17e…d18e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0086, t01=0x003c}
0xd18e…d19a               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0086, t01=0x004c}
0xd19a…d19e               Head {h00=0x4004, h01=0x0000}
0xd19e…d1a2               00 86 00 58                                                                                                                                                                                                                                       ┆   X┆
0xd1a2…d1aa (135, 1, 8)   20 04 00 00 00 87 00 04                                                                                                                                                                                                                           ┆        ┆
0xd1aa…d1fa (136, 0, 400) 00 2a 00 25 01 8a 00 0c 00 08 00 03 07 06 01 d9 00 04 00 26 00 0a 00 0c 00 08 00 03 02 06 01 dc 00 2a 00 26 00 1a 00 0c 00 08 00 03 07 06 01 e1 00 28 00 26 00 2a 00 0c 00 08 00 03 07 06 01 e3 00 2a 00 26 00 3a 00 0e 00 09 00 04 14 07 01 e9   ┆ * %               &             * &             ( & *           * & :          ┆
0xd1fa…d24a               30 01 b1 04 00 26 00 4a 00 0e 00 0a 00 04 10 08 01 ec 20 02 00 80 00 26 00 5c 00 0c 00 08 00 03 07 06 01 ee 00 1a 00 26 00 6e 00 0e 00 09 00 04 15 07 01 f0 30 01 b2 80 00 26 00 7e 00 0e 00 09 00 04 14 07 01 fb 30 01 b4 80 00 26 00 90 00 0c   ┆0    & J               &               & n          0    & ~          0    &    ┆
0xd24a…d29a               00 08 00 03 07 06 01 fe 00 46 00 26 00 a2 00 4a 00 46 00 22 00 44 01 c0 01 8b 4c 01 e5 4c 01 ae 4c 80 52 11 3c 52 80 52 12 3c 52 80 52 13 3c 52 80 52 14 3c 52 49 1f 04 80 52 80 52 00 74 11 01 58 4c 01 a0 4c 80 52 18 4c 61 a0 74 5c 54 00 86   ┆         F &   J F " D    L  L  L R <R R <R R <R R <RI   R R t  XL  L R La t T  ┆
0xd29a…d2ea               7c 21 8b 4c 1d 80 52 11 00 26 00 b2 00 0e 00 09 00 04 14 07 02 03 00 01 00 01 00 26 01 00 00 0e 00 0a 00 04 10 08 02 09 20 02 00 2f 00 26 01 12 00 0c 00 08 00 03 05 06 02 1e 00 3a 00 26 01 24 00 0c 00 08 00 03 05 06 02 24 00 38 00 26 01 34   ┆|! L  R  &                 &               / &             : & $         $ 8 & 4┆
0xd2ea…d33a               00 0c 00 08 00 03 08 06 02 25 00 27 00 26 01 44 00 0c 00 08 00 03 07 06 02 27 00 30 00 26 01 54 00 0c 00 08 00 03 02 06 02 39 03 d2 00 26 01 64 00 0e 00 09 00 04 14 07 02 3c 30 01 b4 2f 00 26 01 74 00 4a 00 46 00 22 00 44 02 00 11 01 af 4c   ┆         % ' & D         ' 0 & T         9   & d         <0  / & t J F " D     L┆
0xd33a…d38a (137, 0, 398) 00 a0 10 01 a1 4c 62 af a0 15 61 a1 00 86 af 49 1f 22 20 7c 86 33 49 1f 1b 30 58 96 02 41 90 31 58 46 80 52 36 91 09 02 02 06 00 00 00 00 00 0f 5f 1c 5f 96 3f 52 11 8b 4c 24 00 7c 00 26 01 86 00 0c 00 08 00 03 07 06 02 44 00 36 00 27 00 44   ┆     Lb   a    I " | 3I  0X  A 1XF R6           _ _ ?R  L$ | &           D 6 ' D┆
0xd38a…d3da               00 0c 00 08 00 03 02 06 02 46 00 2a 00 27 00 54 00 0c 00 08 00 03 07 06 02 48 00 46 00 27 00 64 00 0c 00 08 00 03 05 06 02 4e 00 3a 00 27 00 74 00 0c 00 08 00 03 05 06 02 54 00 38 00 27 00 84 00 0c 00 08 00 03 08 06 02 55 00 2a 00 27 00 94   ┆         F * ' T         H F ' d         N : ' t         T 8 '           U * '  ┆
0xd3da…d42a               00 0c 00 08 00 03 07 06 02 57 00 30 00 27 00 a4 00 0e 00 09 00 04 14 07 02 64 30 01 00 4c 00 27 00 b4 00 0c 00 08 00 03 07 06 02 6e 00 34 00 27 00 c6 00 0e 00 0a 00 04 10 08 02 76 20 02 00 80 00 27 00 d6 00 0c 00 08 00 03 07 06 02 78 00 1a   ┆         W 0 '           d0  L '           n 4 '           v     '           x  ┆
0xd42a…d47a               00 27 00 e8 00 0e 00 09 00 04 15 07 02 7a 30 01 b2 80 00 27 00 f8 00 4a 00 46 00 22 00 44 02 40 86 57 1f 80 52 3c 52 80 52 11 11 57 15 30 58 96 02 41 90 31 58 46 80 52 36 91 03 02 02 04 5f 13 5f c0 01 58 4c 00 74 11 40 27 00 8c 74 80 52 1a   ┆ '           z0    '   J F " D @ W  R<R R  W 0X  A 1XF R6     _ _  XL t @'  t R ┆
0xd47a…d4c8               13 02 74 11 01 a0 4c 80 52 18 4c 61 a0 74 54 a0 00 27 01 0a 00 0e 00 09 00 04 14 07 02 85 30 01 b4 80 00 27 01 58 00 12 00 0d 00 06 14 0b 02 89 00 05 53 4c 55 54 44 80 00 27 01 6a 00 0e 00 09 00 04 14 07 02 98 00 01 00 4c 00 27 01 80         ┆  t   L R La tT  '            0    ' X            SLUTD  ' j             L '  ┆
0xd4c8…d518 (138, 0, 400) 00 0e 00 09 00 04 14 07 02 b5 30 01 00 4c 00 28 00 04 00 0c 00 08 00 03 05 06 02 bc 00 40 00 28 00 16 00 0c 00 08 00 03 05 06 02 c0 00 3e 00 28 00 26 00 4a 00 46 00 22 00 44 02 80 49 27 9d 21 8b 4c d8 01 af 4c 00 80 10 68 af 80 15 61 10 15   ┆          0  L (             @ (             > ( & J F " D  I' ! L   L   h   a  ┆
0xd518…d568               50 ac 01 af 4c 62 af 10 13 61 10 00 88 af 00 81 10 02 81 11 20 88 67 81 06 14 81 1c 0c 5f 49 21 88 4c 0c 20 81 11 08 30 58 3f 81 30 00 28 00 36 00 0c 00 08 00 03 07 06 02 c4 00 24 00 28 00 84 00 0e 00 09 00 04 15 07 02 c6 30 01 b2 21 00 28   ┆P   Lb   a            g      _I! L     0X? 0 ( 6           $ (            0  ! (┆
0xd568…d5b8               00 94 00 0e 00 0a 00 04 14 08 02 d2 30 02 b0 12 00 28 00 a6 00 0e 00 09 00 04 14 07 02 dd 30 01 00 12 00 28 00 b8 00 0e 00 09 00 04 14 07 02 e1 30 01 d1 12 00 28 00 ca 00 0e 00 09 00 04 14 07 02 e4 30 01 00 12 00 28 00 dc 00 0c 00 08 00 03   ┆            0    (            0    (            0    (            0    (        ┆
0xd5b8…d608               06 06 02 ec 03 f4 00 28 00 ee 00 0c 00 08 00 03 06 06 02 ef 04 4e 00 28 00 fe 00 0c 00 08 00 03 07 06 02 f9 00 44 00 28 01 0e 00 0e 00 09 00 04 14 07 03 00 30 01 00 12 00 28 01 1e 00 4a 00 46 00 22 00 44 02 c0 58 5f 59 80 52 18 4c 11 52 51   ┆       (             N (             D (            0    (   J F " D  X_Y R L RQ┆
0xd608…d658               00 58 86 49 a7 04 2d aa 4c 47 24 58 f5 43 49 a7 23 23 f7 4c 11 09 f7 4c 01 d6 4c 00 fb f8 00 f5 58 80 52 9c 80 52 40 a6 2c 58 6e 02 41 a6 80 52 40 a6 57 1d 2b f7 00 28 01 30 00 0e 00 09 00 04 14 07 03 0d 30 01 b1 80 00 28 01 7e 00 0e 00 09   ┆ X I  - LG$X CI ## L   L  L     X R  R@ ,Xn A  R@ W +  ( 0          0    ( ~    ┆
0xd658…d6a8 (139, 0, 400) 00 04 14 07 03 10 30 01 d1 80 00 28 01 90 00 0c 00 08 00 03 06 06 03 15 03 f4 00 29 00 12 00 0c 00 08 00 03 06 06 03 18 04 4e 00 29 00 22 00 0c 00 08 00 03 07 06 03 1a 00 48 00 29 00 32 00 0c 00 08 00 03 07 06 03 21 00 46 00 29 00 42 00 0c   ┆      0    (               )             N ) "           H ) 2         ! F ) B  ┆
0xd6a8…d6f8               00 08 00 03 05 06 03 27 00 38 00 29 00 52 00 0c 00 08 00 03 08 06 03 28 00 2c 00 29 00 62 00 0c 00 08 00 03 07 06 03 2a 00 30 00 29 00 72 00 4a 00 46 00 22 00 44 03 00 4c 19 00 f8 fb 02 fb d6 00 f7 fc 03 f7 4c 09 f7 4c 00 f5 58 80 52 9c 80   ┆       ' 8 ) R         ( , ) b         * 0 ) r J F " D  L            L  L  X R  ┆
0xd6f8…d748               52 80 52 4b 8d b4 57 37 80 52 14 12 41 90 31 58 46 80 52 36 91 09 00 00 02 05 00 00 00 00 09 5f 19 04 74 11 40 27 5f d6 00 29 00 82 00 0c 00 08 00 03 07 06 03 48 00 2c 00 29 00 d0 00 0c 00 08 00 03 02 06 03 4a 01 e4 00 29 00 e0 00 0e 00 09   ┆R RK  W7 R  A 1XF R6           _  t @'_  )           H , )           J   )      ┆
0xd748…d798               00 04 14 07 03 4d 30 01 00 f8 00 29 00 f0 00 0c 00 08 00 03 05 06 03 58 00 40 00 29 01 02 00 0c 00 08 00 03 05 06 03 5c 00 3e 00 29 01 12 00 0c 00 08 00 03 07 06 03 60 00 08 00 29 01 22 00 0c 00 08 00 03 07 06 03 62 00 12 00 29 01 32 00 0e   ┆     M0    )           X @ )             > )           `   ) "         b   ) 2  ┆
0xd798…d7e8               00 0a 00 04 10 08 03 72 20 02 00 3c 00 29 01 42 00 0c 00 08 00 03 07 06 03 75 00 12 00 29 01 54 00 4a 00 46 00 22 00 44 03 40 40 27 49 1b 1a 41 24 80 52 3f 52 01 d6 4c 00 db 67 9c 49 22 52 5f 94 30 58 3f 11 30 58 5f 0d 80 52 80 52 14 11 10   ┆       r   < ) B         u   ) T J F " D @@'I  A$ R?R  L  g I"R_ 0X? 0X_  R R   ┆
0xd7e8…d838 (140, 0, 398) c9 00 44 c9 00 81 10 02 81 11 23 81 4c 1e 80 52 11 11 81 c9 00 6f 81 11 c9 02 00 29 01 64 00 0c 00 08 00 03 07 06 03 83 00 12 00 2a 00 22 00 0e 00 09 00 04 14 07 03 94 30 01 b1 1b 00 2a 00 32 00 0c 00 08 00 03 05 06 03 a2 00 40 00 2a 00 44   ┆  D       # L  R     o     ) d             * "          0    * 2           @ * D┆
0xd838…d888               00 0e 00 0a 00 04 10 08 03 aa 20 02 ff ff 00 2a 00 54 00 0c 00 08 00 03 05 06 03 ac 00 3a 00 2a 00 66 00 0e 00 09 00 04 14 07 03 b1 30 01 00 ff 00 2a 00 76 00 14 00 11 00 08 14 0f 03 ba 00 09 53 55 42 54 4f 54 41 4c 00 2a 00 88 00 0c 00 08   ┆               * T           : * f          0    * v            SUBTOTAL *      ┆
0xd888…d8d8               00 03 07 06 03 bc 00 0c 00 2a 00 a0 00 0c 00 08 00 03 07 06 03 be 00 0a 00 2a 00 b0 00 0c 00 08 00 03 07 06 03 c0 00 0e 00 2a 00 c0 00 4a 00 46 00 22 00 44 03 80 da c9 80 52 11 12 81 c9 00 6f 81 12 c9 02 da c9 5f 25 03 58 4c 41 22 00 81 11   ┆         *               *               *   J F " D     R     o      _% XLA"   ┆
0xd8d8…d928               02 81 11 22 81 72 06 30 58 3f 81 5f 0d 01 9d 28 4c 30 58 96 02 2b f7 4c 1f 02 73 11 41 a4 01 ae 4c 80 52 80 52 80 00 2a 00 d0 00 0c 00 08 00 03 07 06 03 c2 00 06 00 2a 01 1e 00 0c 00 09 00 04 14 07 03 c5 00 01 00 2a 01 2e 00 0c 00 08 00 03   ┆   " r 0X? _   (L0X  + L  s A   L R R  *               *               * .      ┆
0xd928…d976               07 06 03 ce 00 02 00 2a 01 3e 00 0c 00 08 00 03 03 06 03 d1 00 20 00 2a 01 4e 00 0e 00 09 00 04 14 07 03 d5 30 01 d1 52 00 2a 01 5e 00 0c 00 08 00 03 03 06 03 d7 00 22 00 2a 01 70 00 0e 00 0a 00 04 10 08 03 e0 20 02 00 c7 00 2a 01 80         ┆       * >             * N          0  R * ^           " * p               *  ┆

Reduced view