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

⟦2a16800c4⟧

    Length: 52424 (0xccc8)
    Notes: pts_type(SC)
    Names: »GLSTRT.SC«, »START.SC«

Derivation

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

	IDENT START   	2.1DK 1 80-10-10 870150540210 

			=1, ODD BUFFER ADDRESS 
			REL 2.1 79-05-23 
			=2, 6234 LAMPS 
			REL 2.1 79-05-23 
			=3, UNDEFINED LABEL
			REL 2.1 79-05-23 
			=4, CURSOR STOPS AT LAST POS. EACH LINE
			REL 2.1 79-05-23 
			=5, RESET KEY FOR KB6235 
			REL 2.1 79-05-23 
			DK1 - PA 4-9 
************************************************************* 
* 
*   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 
* 
* 
* 
*     EXTERNAL REFERENSES 
* 
* 
* 
	EXTRN	DCINP
	EXTRN	DCGETM 
	EXTRN	ICREAD 
	EXTRN	GTRBUF 
	EXTRN	RLRBUF 
	EXTRN	ERASE	VDUPRT 
	EXTRN	TRPF 
	EXTRN	SETCUR 
	EXTRN	WCHAR
	EXTRN	TRPA 
	EXTRN	ERASUA 
	EXTRN	DISPL
	EXTRN	ERASUP 
* 
	EXTRN	KEYCNV	KEY CONVERSION IF NOT PTS 6272
	EXTRN	TASCII 
* 
	EXTRN	I:EVA0	CREDIT EVALUATION ROUTINE 
	EXTRN	I:RT1	RETURN TO CREDIT CODE
	 


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

* 
KB6272	EQU	1	IF PTS 6272 (6236) IS NOT USED YOU MUST USE 'KEYCNV' 
			USE THE KEY CONVERSION TABLE IN 'TB3270' 
KEYLST	EQU	0	KEY LOCK STATUS SAVED IN 'KEYS'
OFLIN	EQU	1 
DCLIN	EQU	1	NUMBER OF MAIN FRAMES (1 OR 2)
PFX	EQU	1 
PAX	EQU	1 
IN:DL	EQU	1	INSERT&DELETE FUNCTIONS 
COPCMD	EQU	1	COPY COMMAND (ONLY TO PRINTER) IF := 1 
COPL	EQU	1	COPY LOCK IF := 1
	 
* 
* 
*     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
	 
NULL	EQU	/7F	NULL CHARACTER 
DUPCH	EQU	/7B 
FMCH	EQU	/60
LBVDU	EQU	1920	1920 CHAR DISPLAY	6344 
LPAGE	EQU	48	LINES ON ONE PAGE
LLINE	EQU	80	80 CHAR PER DISPLAY LINE 
* 
*	CONFIG DATA 'CB1' REL ADDRESSES 
* 
NBRKBV	EQU	0	NUMBER OF KB/VDUS
NBRGTP	EQU	NBRKBV+2	NUMBER OF GTPS
* 
MF1KBV	EQU	NBRGTP+2	DV ADDRESSES KB/VDU MF #1 
MF1GTP	EQU	MF1KBV+16	DV ADDRESSES GTPS MF # 1 
	IFT	DCLIN=2
MF2KBV	EQU	MF1GTP+16
MF2GTP	EQU	MF2KBV+16
	XIF
	 
* 
*	KEY TABLE	FIXED ENTRY FOR EACH FUNCTION 
* 
KEYTAB	EQU	*
	DATA	CHAR	SPACE
	DATA	CHAR	!
	DATA	CHAR	"
	DATA	CHAR	#
	DATA	CHAR	$
	DATA	CHAR	%
	DATA	CHAR	&
	DATA	CHAR	'
	DATA	CHAR	(
	DATA	CHAR	)
	DATA	CHAR	*
	DATA	CHAR	+
	DATA	NUM	,	DK
	DATA	NUM	- 
	DATA	NUM	. 
	DATA	CHAR	/
* 
	DATA	NUM 
	DATA	NUM	1 
	DATA	NUM	2 
	DATA	NUM	3 
	DATA	NUM	4 
	DATA	NUM	5 
	DATA	NUM	6 
	DATA	NUM	7 
	DATA	NUM	8 
	DATA	NUM	9 
	DATA	CHAR	:
	DATA	CHAR	;
	DATA	CHAR	<
	DATA	CHAR	=
	DATA	CHAR	>
	DATA	CHAR	?
* 
	DATA	CHAR	E' 
	DATA	CHAR	A
	DATA	CHAR	B
	DATA	CHAR	C
	DATA	CHAR	D
	DATA	CHAR	E
	DATA	CHAR	F
	DATA	CHAR	G
	DATA	CHAR	H
	DATA	CHAR	I
	DATA	CHAR	J
	DATA	CHAR	K
	DATA	CHAR	L
	DATA	CHAR	M
	DATA	CHAR	N
	DATA	CHAR	O
* 
	DATA	CHAR	P
	DATA	CHAR	Q
	DATA	CHAR	R
	DATA	CHAR	S
	DATA	CHAR	T
	DATA	CHAR	U
	DATA	CHAR	V
	DATA	CHAR	W
	DATA	CHAR	X
	DATA	CHAR	Y
	DATA	CHAR	Z
	DATA	CHAR	[
	DATA	CHAR	BACK SLASH 
	DATA	CHAR	]
	DATA	CHAR	CIRCOMFLEX 
	DATA	CHAR	UNDERLINE
* 
	DATA	RETURN	/60 CANNOT BE USED 
	DATA	CHAR	LOWER CASE 
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
	DATA	CHAR
* 
	IFT	KEYLST=1 
	DATA	KEYL	KEYLOCK
	DATA	KEYL
	DATA	KEYL
	DATA	KEYL
	DATA	KEYL
	DATA	KEYL
	DATA	KEYL
	DATA	KEYL
	XIF
	IFF	KEYLST=1 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	XIF
	DATA	CHAR	LOWER CASE X 
	DATA	CHAR
	DATA	CHAR
	DATA	RETURN	/7B-/7F CANNOT BE USED 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
* 
	IFT	PAX=1
	DATA	PAEX
	XIF
	IFF	PAX=1
	DATA	RETURN
	XIF
	DATA	PA1 
	DATA	PA2 
	DATA	PA3 
	DATA	PA410	PA4 - PA10 (ALFASKOP) 
	DATA	PA410 
	DATA	PA410 
	DATA	PA410 
	DATA	PA410 
	DATA	PA410 
	DATA	PA410 
	DATA	CLEAR 
	IFT	PFX=1
	DATA	PFEX
	XIF
	IFF	PFX=1
	DATA	RETURN
	XIF
	DATA	PF	1
	DATA	PF	2
	DATA	PF	3
* 
	DATA	PF	4
	DATA	PF	5
	DATA	PF	6
	DATA	PF	7
	DATA	PF	8
	DATA	PF	9
	DATA	PF	10 
	DATA	PF	11 
	DATA	PF	12 
	DATA	RETURN	/99-/A4 RESERVED FOR PF13-24 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
* 
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
	DATA	ENTER 
	DATA	CRUP
	DATA	CRLEFT
	DATA	CRRIGT
	DATA	CRDOWN
	DATA	BAKTAB
	DATA	TAB 
	DATA	CRNL
	DATA	RDHOME
	DATA	ERINPT
	DATA	EREOF 
* 
	IFT	IN:DL=1
	DATA	INSERT
	DATA	DELETE
	XIF
	IFF	IN:DL=1
	DATA	RETURN
	DATA	RETURN
	XIF
	DATA	RESET 
	DATA	DUP 
	DATA	FLDMRK
	DATA	COPY
	IFT	OFLIN=1
	DATA	OFLINE
	XIF
	IFF	OFLIN=1
	DATA	RETURN
	XIF
	IFT	DCLIN=2
	DATA	MFCHGE
	XIF
	IFF	DCLIN=2
	DATA	RETURN
	XIF
	DATA	RETURN
	DATA	RETURN
	DATA	ZERO:2
	DATA	ZERO:3
	DATA	NUMCOM
	DATA	RETURN
	DATA	RETURN
	DATA	RETURN
* 
	DATA	LCASPW	LOWER CASE P - W (BECAUSE OF KEYLOCK)
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	DATA	LCASPW
	 
************************************************************* 
* 
*	START ADDRESS FOR DC TASKS
************************************************************* 

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

	IFT	OFLIN=1


	STR	A12,A14	SAVE REGISTERS A12-A13 ON A14 STACK
	ST	A13,-2,A14
	SUKL	A14,4	UPDATE STACK POINTER
	CM	OFFFLG,TCABAS 
	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
	 
*************************************************************** 
* 
*   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
	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 
	RF(G)	PAEXB	PA 4-9?	DK1
	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) 
PAEXB	EQU	*		DK1
	SUK	A2,/6		DK1 
	RF(G)	PFERR		DK1 
	ADK	A2,/69	SET PA 4-9	DK1
	RB	CAN200		DK1 
* 
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 
* 
********************************************************* 
* 
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
LINH	EQU	8
LERR	EQU	4
LSAV	EQU	2
	XIF
	IFF	KB6272=1 
LMF1	EQU	0		=2
LMF2	EQU	0		=2
LIOL	EQU	1		=2
LINH	EQU	2		=2
LERR	EQU	4		=2
LSAV	EQU	8		=2
	XIF
LMF1ON	LDK	A3,LMF1
	RF	LMPON 
LMF1OF	LDK	A3,LMF1
	RF	LMPOF 
LMF2ON	LDK	A3,LMF2
	RF	LMPON 
LMF2OF	LDK	A3,LMF2
	RF	LMPOF 
LIOLON	LDK	A3,LIOL
	RF	LMPON 
LIOLOF	LDK	A3,LIOL
	RF	LMPOF 
LINHON	LDK	A3,LINH
	RF	LMPON 
LINHOF	LDK	A3,LINH
	RF	LMPOF 
LERRON	LDK	A3,LERR
	RF	LMPON 
LERROF	LDK	A3,LERR
	RF	LMPOF 
LSAVON	LDK	A3,LSAV
	RF	LMPON 
LSAVOF	LDK	A3,LSAV
	RF	LMPOF 
* 
LMPON	LDK	A7,LON
	RF	SDISP 
LMPOF	LDK	A7,LOF
	RF	SDISP 
	 

* 
********************************************************
* 
*	SDISP 
* 
*	SIGNAL DISPLAY MONITOR REQUEST
* 
********************************************************
* 
SDISP	EQU	* 
	LDKL	A8,ECBSD
	ADR	A8,CREBAS
	ST	A3,ECBCW,A8 
	LKM
	DATA	1 
	RTN	A14
	 
* 
********************************************************
* 
*     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…0036 (0, 0, 398)   Head {h00=0x0032, h01=0x0050, text=» IDENT START    2.1DK 1 80-10-10 870150540210 «, t00=0x0000, t01=0x0004}
0x0036…003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0060               Head {h00=0x001e, h01=0x0050, text=»   =1, ODD BUFFER ADDRESS «, t00=0x0000, t01=0x0042}
0x0060…007c               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0064}
0x007c…0096               Head {h00=0x0016, h01=0x0050, text=»   =2, 6234 LAMPS «, t00=0x0000, t01=0x0080}
0x0096…00b2               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x009a}
0x00b2…00d0               Head {h00=0x001a, h01=0x0050, text=»   =3, UNDEFINED LABEL«, t00=0x0000, t01=0x00b6}
0x00d0…00ec               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x00d4}
0x00ec…011e               Head {h00=0x002e, h01=0x0050, text=»   =4, CURSOR STOPS AT LAST POS. EACH LINE«, t00=0x0000, t01=0x00f0}
0x011e…013a               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0122}
0x013a…015e               Head {h00=0x0020, h01=0x0050, text=»   =5, RESET KEY FOR KB6235 «, t00=0x0000, t01=0x013e}
0x015e…017a               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0162}
0x017a…0192               Head {h00=0x0014, h01=0x0050, text=»   DK1 - PA 4-9 «, t00=0x0000, t01=0x017e}
0x0192…01d8               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0001, t01=0x0008}
0x01d8…01e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004e}
0x01e2…022e               Head {h00=0x0048, h01=0x0050, text=»*   S T A R T  :  MODULE HANDLING KEYBOARD INPUT.KEYBOARD INITIATED «, t00=0x0001, t01=0x0058}
0x022e…027a               Head {h00=0x0048, h01=0x0050, text=»*                 MESSAGES ADDRESSED TO THE MAIN FRAME ARE COMPOSED «, t00=0x0001, t01=0x00a4}
0x027a…02c0               Head {h00=0x0042, h01=0x0050, text=»*                 AND SENT BY USING ROUTINES IN MODULE VDUPRT.«, t00=0x0001, t01=0x00f0}
0x02c0…02ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0136}
0x02ca…031c               Head {h00=0x004e, h01=0x0050, text=»**************************************************************************«, t00=0x0001, t01=0x0140}
0x031c…0324 (2, 0, 400)   Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0004}
0x0324…032c               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x000c}
0x032c…0334               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0014}
0x0334…033c               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x001c}
0x033c…0346               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0002, t01=0x0024}
0x0346…0350               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002e}
0x0350…035a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0038}
0x035a…0374               Head {h00=0x0016, h01=0x0050, text=»* ENTRY PARAMETERS«, t00=0x0002, t01=0x0042}
0x0374…037e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005c}
0x037e…0388               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0066}
0x0388…0392               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0070}
0x0392…03b6               Head {h00=0x0020, h01=0x0050, text=» ENTRY LINHON,LINHOF,ATMASB «, t00=0x0002, t01=0x007a}
0x03b6…03d2               Head {h00=0x0018, h01=0x0050, text=» ENTRY LSAVOF,LSAVON«, t00=0x0002, t01=0x009e}
0x03d2…03e6               Head {h00=0x0010, h01=0x0050, text=» ENTRY EMULA«, t00=0x0002, t01=0x00ba}
0x03e6…0410               Head {h00=0x0026, h01=0x0050, text=» ENTRY LIOLON TURN ON OFFLINE LAMP«, t00=0x0002, t01=0x00ce}
0x0410…043c               Head {h00=0x0028, h01=0x0050, text=» ENTRY LIOLOF TURN OFF OFFLINE LAMP «, t00=0x0002, t01=0x00f8}
0x043c…0460               Head {h00=0x0020, h01=0x0050, text=» ENTRY VDUKB KB3270 (CREDIT)«, t00=0x0002, t01=0x0124}
0x0460…0476               Head {h00=0x0012, h01=0x0050, text=» ENTRY DCTASK «, t00=0x0002, t01=0x0148}
0x0476…048c               Head {h00=0x0012, h01=0x0050, text=» ENTRY DC1INQ «, t00=0x0002, t01=0x015e}
0x048c…04a2               Head {h00=0x0012, h01=0x0050, text=» ENTRY DC2INQ «, t00=0x0002, t01=0x0174}
0x04a2…04ca               Head {h00=0x0024, h01=0x0050, text=» ENTRY REQTIM SET REQUEST TIMER «, t00=0x0002, t01=0x018a}
0x04ca…04e0               Head {h00=0x0012, h01=0x0050, text=» ENTRY ICWRTE «, t00=0x0003, t01=0x0022}
0x04e0…04ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0038}
0x04ea…04f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0042}
0x04f4…04fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x004c}
0x04fe…0520               Head {h00=0x001e, h01=0x0050, text=»*     EXTERNAL REFERENSES «, t00=0x0003, t01=0x0056}
0x0520…052a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0078}
0x052a…0534               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0082}
0x0534…053e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x008c}
0x053e…0552               Head {h00=0x0010, h01=0x0050, text=» EXTRN DCINP«, t00=0x0003, t01=0x0096}
0x0552…0568               Head {h00=0x0012, h01=0x0050, text=» EXTRN DCGETM «, t00=0x0003, t01=0x00aa}
0x0568…057e               Head {h00=0x0012, h01=0x0050, text=» EXTRN ICREAD «, t00=0x0003, t01=0x00c0}
0x057e…0594               Head {h00=0x0012, h01=0x0050, text=» EXTRN GTRBUF «, t00=0x0003, t01=0x00d6}
0x0594…05aa               Head {h00=0x0012, h01=0x0050, text=» EXTRN RLRBUF «, t00=0x0003, t01=0x00ec}
0x05aa…05c6               Head {h00=0x0018, h01=0x0050, text=» EXTRN ERASE VDUPRT «, t00=0x0003, t01=0x0102}
0x05c6…05da               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPF «, t00=0x0003, t01=0x011e}
0x05da…05f0               Head {h00=0x0012, h01=0x0050, text=» EXTRN SETCUR «, t00=0x0003, t01=0x0132}
0x05f0…0604               Head {h00=0x0010, h01=0x0050, text=» EXTRN WCHAR«, t00=0x0003, t01=0x0148}
0x0604…0618               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPA «, t00=0x0003, t01=0x015c}
0x0618…062e               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUA «, t00=0x0003, t01=0x0170}
0x062e…0642               Head {h00=0x0010, h01=0x0050, text=» EXTRN DISPL«, t00=0x0003, t01=0x0186}
0x0642…0658               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUP «, t00=0x0004, t01=0x000a}
0x0658…0662               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0020}
0x0662…0696               Head {h00=0x0030, h01=0x0050, text=» EXTRN KEYCNV KEY CONVERSION IF NOT PTS 6272«, t00=0x0004, t01=0x002a}
0x0696…06ac               Head {h00=0x0012, h01=0x0050, text=» EXTRN TASCII «, t00=0x0004, t01=0x005e}
0x06ac…06b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0074}
0x06b6…06e6               Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0004, t01=0x007e}
0x06e6…0710               Head {h00=0x0026, h01=0x0050, text=» EXTRN I:RT1 RETURN TO CREDIT CODE«, t00=0x0004, t01=0x00ae}
0x0710…071a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0004, t01=0x00d8}
0x071a…0722               Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00e2}
0x0722…072a               Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00ea}
0x072a…076c               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0004, t01=0x00f2}
0x076c…0776               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0134}
0x0776…0796               Head {h00=0x001c, h01=0x0050, text=»*   CONDITIONAL ASSEMBLY«, t00=0x0004, t01=0x013e}
0x0796…07a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x015e}
0x07a0…07ca               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0004, t01=0x0168}
0x07ca…07d2 (5, 0, 400)   Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0004}
0x07d2…07dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000c}
0x07dc…0826               Head {h00=0x0046, h01=0x0050, text=»KB6272 EQU 1 IF PTS 6272 (6236) IS NOT USED YOU MUST USE 'KEYCNV' «, t00=0x0005, t01=0x0016}
0x0826…085a               Head {h00=0x0030, h01=0x0050, text=»   USE THE KEY CONVERSION TABLE IN 'TB3270' «, t00=0x0005, t01=0x0060}
0x085a…088e               Head {h00=0x0030, h01=0x0050, text=»KEYLST EQU 0 KEY LOCK STATUS SAVED IN 'KEYS'«, t00=0x0005, t01=0x0094}
0x088e…08a2               Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 1 «, t00=0x0005, t01=0x00c8}
0x08a2…08d4               Head {h00=0x002e, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1 OR 2)«, t00=0x0005, t01=0x00dc}
0x08d4…08e6               Head {h00=0x000e, h01=0x0050, text=»PFX EQU 1 «, t00=0x0005, t01=0x010e}
0x08e6…08f8               Head {h00=0x000e, h01=0x0050, text=»PAX EQU 1 «, t00=0x0005, t01=0x0120}
0x08f8…0924               Head {h00=0x0028, h01=0x0050, text=»IN:DL EQU 1 INSERT&DELETE FUNCTIONS «, t00=0x0005, t01=0x0132}
0x0924…0960               Head {h00=0x0038, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 «, t00=0x0005, t01=0x015e}
0x0960…0984               Head {h00=0x0020, h01=0x0050, text=»COPL EQU 1 COPY LOCK IF := 1«, t00=0x0006, t01=0x000a}
0x0984…098e               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0006, t01=0x002e}
0x098e…0998               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0038}
0x0998…09a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0042}
0x09a2…09b8               Head {h00=0x0012, h01=0x0050, text=»*     EQUATES «, t00=0x0006, t01=0x004c}
0x09b8…09c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0062}
0x09c2…09e0               Head {h00=0x001a, h01=0x0050, text=»RSET EQU /B2 RESET KEY«, t00=0x0006, t01=0x006c}
0x09e0…0a06               Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0006, t01=0x008a}
0x0a06…0a10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00b0}
0x0a10…0a18               Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00ba}
0x0a18…0a2c               Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0006, t01=0x00c2}
0x0a2c…0a40               Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0006, t01=0x00d6}
0x0a40…0a54               Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0006, t01=0x00ea}
0x0a54…0a68               Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0006, t01=0x00fe}
0x0a68…0a7c               Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0006, t01=0x0112}
0x0a7c…0a86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0126}
0x0a86…0a90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0130}
0x0a90…0aaa               Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0006, t01=0x013a}
0x0aaa…0ab4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0154}
0x0ab4…0abe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x015e}
0x0abe…0ada               Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0006, t01=0x0168}
0x0ada…0ae4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0184}
0x0ae4…0aee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x018e}
0x0aee…0b00               Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0007, t01=0x0008}
0x0b00…0b0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x001a}
0x0b0a…0b24               Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0007, t01=0x0024}
0x0b24…0b38               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x003e}
0x0b38…0b4e               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x0052}
0x0b4e…0b6a               Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x0068}
0x0b6a…0b88               Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0007, t01=0x0084}
0x0b88…0ba6               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0007, t01=0x00a2}
0x0ba6…0bb2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x00c0}
0x0bb2…0bc6               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x00cc}
0x0bc6…0bdc               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0007, t01=0x00e0}
0x0bdc…0bf8               Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x00f6}
0x0bf8…0c16               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0007, t01=0x0112}
0x0c16…0c22               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0130}
0x0c22…0c36               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0007, t01=0x013c}
0x0c36…0c4c               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x0150}
0x0c4c…0c68               Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0007, t01=0x0166}
0x0c68…0c86               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0007, t01=0x0182}
0x0c86…0c92               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0010}
0x0c92…0ca6               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x001c}
0x0ca6…0cbc               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x0030}
0x0cbc…0cd8               Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0008, t01=0x0046}
0x0cd8…0ce4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0062}
0x0ce4…0d02               Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0008, t01=0x006e}
0x0d02…0d1e               Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0008, t01=0x008c}
0x0d1e…0d3a               Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0008, t01=0x00a8}
0x0d3a…0d44               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0008, t01=0x00c4}
0x0d44…0d4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ce}
0x0d4e…0d58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d8}
0x0d58…0d7e               Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0008, t01=0x00e2}
0x0d7e…0d88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0108}
0x0d88…0d9e               Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0008, t01=0x0112}
0x0d9e…0db8               Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0008, t01=0x0128}
0x0db8…0dc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0142}
0x0dc2…0dcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x014c}
0x0dcc…0de8               Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0008, t01=0x0156}
0x0de8…0df2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0172}
0x0df2…0e06               Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0008, t01=0x017c}
0x0e06…0e22               Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0008, t01=0x0190}
0x0e22…0e4e               Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0009, t01=0x001c}
0x0e4e…0e82               Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0009, t01=0x0048}
0x0e82…0eb0               Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0009, t01=0x007c}
0x0eb0…0ecc               Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0009, t01=0x00aa}
0x0ecc…0ef6               Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0009, t01=0x00c6}
0x0ef6…0f28               Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x0009, t01=0x00f0}
0x0f28…0f50               Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x0009, t01=0x0122}
0x0f50…0f84               Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x0009, t01=0x014a}
0x0f84…0fba               Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x0009, t01=0x017e}
0x0fba…0fea               Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000a, t01=0x0024}
0x0fea…1012               Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000a, t01=0x0054}
0x1012…103e               Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000a, t01=0x007c}
0x103e…106c               Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000a, t01=0x00a8}
0x106c…108e               Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000a, t01=0x00d6}
0x108e…10b8               Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000a, t01=0x00f8}
0x10b8…10e0               Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000a, t01=0x0122}
0x10e0…1112               Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000a, t01=0x014a}
0x1112…1148               Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000a, t01=0x017c}
0x1148…1180               Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000b, t01=0x0022}
0x1180…118a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x000b, t01=0x005a}
0x118a…11ae               Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x000b, t01=0x0064}
0x11ae…11c4               Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x000b, t01=0x0088}
0x11c4…11d8               Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x000b, t01=0x009e}
0x11d8…1206               Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHAR DISPLAY 6344 «, t00=0x000b, t01=0x00b2}
0x1206…122c               Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000b, t01=0x00e0}
0x122c…125a               Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000b, t01=0x0106}
0x125a…1264               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0134}
0x1264…128e               Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000b, t01=0x013e}
0x128e…1298               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0168}
0x1298…12be               Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000b, t01=0x0172}
0x12be…12e8               Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000c, t01=0x0008}
0x12e8…12f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0032}
0x12f2…1328               Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000c, t01=0x003c}
0x1328…135e               Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000c, t01=0x0072}
0x135e…1372               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000c, t01=0x00a8}
0x1372…138e               Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000c, t01=0x00bc}
0x138e…13aa               Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000c, t01=0x00d8}
0x13aa…13b6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00f4}
0x13b6…13c0               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x000c, t01=0x0100}
0x13c0…13ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x010a}
0x13ca…13fc               Head {h00=0x002e, h01=0x0050, text=»* KEY TABLE FIXED ENTRY FOR EACH FUNCTION «, t00=0x000c, t01=0x0114}
0x13fc…1406               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0146}
0x1406…141a               Head {h00=0x0010, h01=0x0050, text=»KEYTAB EQU *«, t00=0x000c, t01=0x0150}
0x141a…1432               Head {h00=0x0014, h01=0x0050, text=» DATA CHAR SPACE«, t00=0x000c, t01=0x0164}
0x1432…1446               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR !«, t00=0x000c, t01=0x017c}
0x1446…145a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR "«, t00=0x000c, t01=0x0190}
0x145a…146e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR #«, t00=0x000d, t01=0x0014}
0x146e…1482               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR $«, t00=0x000d, t01=0x0028}
0x1482…1496               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR %«, t00=0x000d, t01=0x003c}
0x1496…14aa               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR &«, t00=0x000d, t01=0x0050}
0x14aa…14be               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR '«, t00=0x000d, t01=0x0064}
0x14be…14d2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR («, t00=0x000d, t01=0x0078}
0x14d2…14e6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR )«, t00=0x000d, t01=0x008c}
0x14e6…14fa               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR *«, t00=0x000d, t01=0x00a0}
0x14fa…150e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR +«, t00=0x000d, t01=0x00b4}
0x150e…1524               Head {h00=0x0012, h01=0x0050, text=» DATA NUM , DK«, t00=0x000d, t01=0x00c8}
0x1524…1538               Head {h00=0x0010, h01=0x0050, text=» DATA NUM - «, t00=0x000d, t01=0x00de}
0x1538…154c               Head {h00=0x0010, h01=0x0050, text=» DATA NUM . «, t00=0x000d, t01=0x00f2}
0x154c…1560               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR /«, t00=0x000d, t01=0x0106}
0x1560…156a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011a}
0x156a…157c               Head {h00=0x000e, h01=0x0050, text=» DATA NUM «, t00=0x000d, t01=0x0124}
0x157c…1590               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 1 «, t00=0x000d, t01=0x0136}
0x1590…15a4               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 2 «, t00=0x000d, t01=0x014a}
0x15a4…15b8               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 3 «, t00=0x000d, t01=0x015e}
0x15b8…15cc               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 4 «, t00=0x000d, t01=0x0172}
0x15cc…15e0               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 5 «, t00=0x000d, t01=0x0186}
0x15e0…15f4               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 6 «, t00=0x000e, t01=0x000a}
0x15f4…1608               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 7 «, t00=0x000e, t01=0x001e}
0x1608…161c               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 8 «, t00=0x000e, t01=0x0032}
0x161c…1630               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 9 «, t00=0x000e, t01=0x0046}
0x1630…1644               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR :«, t00=0x000e, t01=0x005a}
0x1644…1658               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ;«, t00=0x000e, t01=0x006e}
0x1658…166c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR <«, t00=0x000e, t01=0x0082}
0x166c…1680               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR =«, t00=0x000e, t01=0x0096}
0x1680…1694               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR >«, t00=0x000e, t01=0x00aa}
0x1694…16a8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ?«, t00=0x000e, t01=0x00be}
0x16a8…16b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d2}
0x16b2…16c8               Head {h00=0x0012, h01=0x0050, text=» DATA CHAR E' «, t00=0x000e, t01=0x00dc}
0x16c8…16dc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR A«, t00=0x000e, t01=0x00f2}
0x16dc…16f0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR B«, t00=0x000e, t01=0x0106}
0x16f0…1704               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR C«, t00=0x000e, t01=0x011a}
0x1704…1718               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR D«, t00=0x000e, t01=0x012e}
0x1718…172c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR E«, t00=0x000e, t01=0x0142}
0x172c…1740               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR F«, t00=0x000e, t01=0x0156}
0x1740…1754               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR G«, t00=0x000e, t01=0x016a}
0x1754…1768               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR H«, t00=0x000e, t01=0x017e}
0x1768…177c (15, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» DATA CHAR I«, t00=0x000f, t01=0x0004}
0x177c…1790               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR J«, t00=0x000f, t01=0x0018}
0x1790…17a4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR K«, t00=0x000f, t01=0x002c}
0x17a4…17b8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR L«, t00=0x000f, t01=0x0040}
0x17b8…17cc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR M«, t00=0x000f, t01=0x0054}
0x17cc…17e0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR N«, t00=0x000f, t01=0x0068}
0x17e0…17f4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR O«, t00=0x000f, t01=0x007c}
0x17f4…17fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0090}
0x17fe…1812               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR P«, t00=0x000f, t01=0x009a}
0x1812…1826               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Q«, t00=0x000f, t01=0x00ae}
0x1826…183a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR R«, t00=0x000f, t01=0x00c2}
0x183a…184e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR S«, t00=0x000f, t01=0x00d6}
0x184e…1862               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR T«, t00=0x000f, t01=0x00ea}
0x1862…1876               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR U«, t00=0x000f, t01=0x00fe}
0x1876…188a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR V«, t00=0x000f, t01=0x0112}
0x188a…189e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR W«, t00=0x000f, t01=0x0126}
0x189e…18b2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR X«, t00=0x000f, t01=0x013a}
0x18b2…18c6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Y«, t00=0x000f, t01=0x014e}
0x18c6…18da               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Z«, t00=0x000f, t01=0x0162}
0x18da…18ee               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR [«, t00=0x000f, t01=0x0176}
0x18ee…190c               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR BACK SLASH «, t00=0x000f, t01=0x018a}
0x190c…1920               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ]«, t00=0x0010, t01=0x0018}
0x1920…193e               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR CIRCOMFLEX «, t00=0x0010, t01=0x002c}
0x193e…195a               Head {h00=0x0018, h01=0x0050, text=» DATA CHAR UNDERLINE«, t00=0x0010, t01=0x004a}
0x195a…1964               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0066}
0x1964…198c               Head {h00=0x0024, h01=0x0050, text=» DATA RETURN /60 CANNOT BE USED «, t00=0x0010, t01=0x0070}
0x198c…19aa               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR LOWER CASE «, t00=0x0010, t01=0x0098}
0x19aa…19bc               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x00b6}
0x19bc…19ce               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x00c8}
0x19ce…19e0               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x00da}
0x19e0…19f2               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x00ec}
0x19f2…1a04               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x00fe}
0x1a04…1a16               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0110}
0x1a16…1a28               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0122}
0x1a28…1a3a               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0134}
0x1a3a…1a4c               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0146}
0x1a4c…1a5e               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0158}
0x1a5e…1a70               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x016a}
0x1a70…1a82               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x017c}
0x1a82…1a94               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x018e}
0x1a94…1aa6               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0010}
0x1aa6…1ab0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0022}
0x1ab0…1ac6               Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0011, t01=0x002c}
0x1ac6…1ae0               Head {h00=0x0016, h01=0x0050, text=» DATA KEYL KEYLOCK«, t00=0x0011, t01=0x0042}
0x1ae0…1af2               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x005c}
0x1af2…1b04               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x006e}
0x1b04…1b16               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x0080}
0x1b16…1b28               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x0092}
0x1b28…1b3a               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x00a4}
0x1b3a…1b4c               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x00b6}
0x1b4c…1b5e               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x00c8}
0x1b5e…1b6a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x00da}
0x1b6a…1b80               Head {h00=0x0012, h01=0x0050, text=» IFF KEYLST=1 «, t00=0x0011, t01=0x00e6}
0x1b80…1b94               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x00fc}
0x1b94…1ba8               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0110}
0x1ba8…1bbc               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0124}
0x1bbc…1bd0               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0138}
0x1bd0…1be4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x014c}
0x1be4…1bf8               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0160}
0x1bf8…1c0c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0174}
0x1c0c…1c20               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0188}
0x1c20…1c2c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x000c}
0x1c2c…1c4c               Head {h00=0x001c, h01=0x0050, text=» DATA CHAR LOWER CASE X «, t00=0x0012, t01=0x0018}
0x1c4c…1c5e               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x0038}
0x1c5e…1c70               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x004a}
0x1c70…1c9c               Head {h00=0x0028, h01=0x0050, text=» DATA RETURN /7B-/7F CANNOT BE USED «, t00=0x0012, t01=0x005c}
0x1c9c…1cb0               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0088}
0x1cb0…1cc4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x009c}
0x1cc4…1cd8               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x00b0}
0x1cd8…1cec               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x00c4}
0x1cec…1cf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d8}
0x1cf6…1d08               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0012, t01=0x00e2}
0x1d08…1d1a               Head {h00=0x000e, h01=0x0050, text=» DATA PAEX«, t00=0x0012, t01=0x00f4}
0x1d1a…1d26               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0106}
0x1d26…1d38               Head {h00=0x000e, h01=0x0050, text=» IFF PAX=1«, t00=0x0012, t01=0x0112}
0x1d38…1d4c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0124}
0x1d4c…1d58               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0138}
0x1d58…1d6a               Head {h00=0x000e, h01=0x0050, text=» DATA PA1 «, t00=0x0012, t01=0x0144}
0x1d6a…1d7c               Head {h00=0x000e, h01=0x0050, text=» DATA PA2 «, t00=0x0012, t01=0x0156}
0x1d7c…1d8e               Head {h00=0x000e, h01=0x0050, text=» DATA PA3 «, t00=0x0012, t01=0x0168}
0x1d8e…1db8               Head {h00=0x0026, h01=0x0050, text=» DATA PA410 PA4 - PA10 (ALFASKOP) «, t00=0x0012, t01=0x017a}
0x1db8…1dcc               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x0014}
0x1dcc…1de0               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x0028}
0x1de0…1df4               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x003c}
0x1df4…1e08               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x0050}
0x1e08…1e1c               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x0064}
0x1e1c…1e30               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x0078}
0x1e30…1e44               Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0013, t01=0x008c}
0x1e44…1e56               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x0013, t01=0x00a0}
0x1e56…1e68               Head {h00=0x000e, h01=0x0050, text=» DATA PFEX«, t00=0x0013, t01=0x00b2}
0x1e68…1e74               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00c4}
0x1e74…1e86               Head {h00=0x000e, h01=0x0050, text=» IFF PFX=1«, t00=0x0013, t01=0x00d0}
0x1e86…1e9a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x00e2}
0x1e9a…1ea6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00f6}
0x1ea6…1eb8               Head {h00=0x000e, h01=0x0050, text=» DATA PF 1«, t00=0x0013, t01=0x0102}
0x1eb8…1eca               Head {h00=0x000e, h01=0x0050, text=» DATA PF 2«, t00=0x0013, t01=0x0114}
0x1eca…1edc               Head {h00=0x000e, h01=0x0050, text=» DATA PF 3«, t00=0x0013, t01=0x0126}
0x1edc…1ee6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0138}
0x1ee6…1ef8               Head {h00=0x000e, h01=0x0050, text=» DATA PF 4«, t00=0x0013, t01=0x0142}
0x1ef8…1f0a               Head {h00=0x000e, h01=0x0050, text=» DATA PF 5«, t00=0x0013, t01=0x0154}
0x1f0a…1f1c               Head {h00=0x000e, h01=0x0050, text=» DATA PF 6«, t00=0x0013, t01=0x0166}
0x1f1c…1f2e               Head {h00=0x000e, h01=0x0050, text=» DATA PF 7«, t00=0x0013, t01=0x0178}
0x1f2e…1f40               Head {h00=0x000e, h01=0x0050, text=» DATA PF 8«, t00=0x0013, t01=0x018a}
0x1f40…1f52               Head {h00=0x000e, h01=0x0050, text=» DATA PF 9«, t00=0x0014, t01=0x000c}
0x1f52…1f66               Head {h00=0x0010, h01=0x0050, text=» DATA PF 10 «, t00=0x0014, t01=0x001e}
0x1f66…1f7a               Head {h00=0x0010, h01=0x0050, text=» DATA PF 11 «, t00=0x0014, t01=0x0032}
0x1f7a…1f8e               Head {h00=0x0010, h01=0x0050, text=» DATA PF 12 «, t00=0x0014, t01=0x0046}
0x1f8e…1fc0               Head {h00=0x002e, h01=0x0050, text=» DATA RETURN /99-/A4 RESERVED FOR PF13-24 «, t00=0x0014, t01=0x005a}
0x1fc0…1fd4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x008c}
0x1fd4…1fe8               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00a0}
0x1fe8…1ffc               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00b4}
0x1ffc…2010               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00c8}
0x2010…2024               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00dc}
0x2024…2038               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00f0}
0x2038…2042               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0104}
0x2042…2056               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x010e}
0x2056…206a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0122}
0x206a…207e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0136}
0x207e…2092               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x014a}
0x2092…20a6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x015e}
0x20a6…20ba               Head {h00=0x0010, h01=0x0050, text=» DATA ENTER «, t00=0x0014, t01=0x0172}
0x20ba…20cc               Head {h00=0x000e, h01=0x0050, text=» DATA CRUP«, t00=0x0014, t01=0x0186}
0x20cc…20e0               Head {h00=0x0010, h01=0x0050, text=» DATA CRLEFT«, t00=0x0015, t01=0x0008}
0x20e0…20f4               Head {h00=0x0010, h01=0x0050, text=» DATA CRRIGT«, t00=0x0015, t01=0x001c}
0x20f4…2108               Head {h00=0x0010, h01=0x0050, text=» DATA CRDOWN«, t00=0x0015, t01=0x0030}
0x2108…211c               Head {h00=0x0010, h01=0x0050, text=» DATA BAKTAB«, t00=0x0015, t01=0x0044}
0x211c…212e               Head {h00=0x000e, h01=0x0050, text=» DATA TAB «, t00=0x0015, t01=0x0058}
0x212e…2140               Head {h00=0x000e, h01=0x0050, text=» DATA CRNL«, t00=0x0015, t01=0x006a}
0x2140…2154               Head {h00=0x0010, h01=0x0050, text=» DATA RDHOME«, t00=0x0015, t01=0x007c}
0x2154…2168               Head {h00=0x0010, h01=0x0050, text=» DATA ERINPT«, t00=0x0015, t01=0x0090}
0x2168…217c               Head {h00=0x0010, h01=0x0050, text=» DATA EREOF «, t00=0x0015, t01=0x00a4}
0x217c…2186               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00b8}
0x2186…219a               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x0015, t01=0x00c2}
0x219a…21ae               Head {h00=0x0010, h01=0x0050, text=» DATA INSERT«, t00=0x0015, t01=0x00d6}
0x21ae…21c2               Head {h00=0x0010, h01=0x0050, text=» DATA DELETE«, t00=0x0015, t01=0x00ea}
0x21c2…21ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00fe}
0x21ce…21e2               Head {h00=0x0010, h01=0x0050, text=» IFF IN:DL=1«, t00=0x0015, t01=0x010a}
0x21e2…21f6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x011e}
0x21f6…220a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0132}
0x220a…2216               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0146}
0x2216…222a               Head {h00=0x0010, h01=0x0050, text=» DATA RESET «, t00=0x0015, t01=0x0152}
0x222a…223c               Head {h00=0x000e, h01=0x0050, text=» DATA DUP «, t00=0x0015, t01=0x0166}
0x223c…2250               Head {h00=0x0010, h01=0x0050, text=» DATA FLDMRK«, t00=0x0015, t01=0x0178}
0x2250…2262               Head {h00=0x000e, h01=0x0050, text=» DATA COPY«, t00=0x0015, t01=0x018c}
0x2262…2276               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0016, t01=0x000e}
0x2276…228a               Head {h00=0x0010, h01=0x0050, text=» DATA OFLINE«, t00=0x0016, t01=0x0022}
0x228a…2296               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0036}
0x2296…22aa               Head {h00=0x0010, h01=0x0050, text=» IFF OFLIN=1«, t00=0x0016, t01=0x0042}
0x22aa…22be               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0056}
0x22be…22ca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x006a}
0x22ca…22de               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0016, t01=0x0076}
0x22de…22f2               Head {h00=0x0010, h01=0x0050, text=» DATA MFCHGE«, t00=0x0016, t01=0x008a}
0x22f2…22fe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x009e}
0x22fe…2312               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0016, t01=0x00aa}
0x2312…2326               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x00be}
0x2326…2332               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00d2}
0x2332…2346               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x00de}
0x2346…235a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x00f2}
0x235a…236e               Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:2«, t00=0x0016, t01=0x0106}
0x236e…2382               Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:3«, t00=0x0016, t01=0x011a}
0x2382…2396               Head {h00=0x0010, h01=0x0050, text=» DATA NUMCOM«, t00=0x0016, t01=0x012e}
0x2396…23aa               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0142}
0x23aa…23be               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0156}
0x23be…23d2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x016a}
0x23d2…23dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x017e}
0x23dc…2416               Head {h00=0x0036, h01=0x0050, text=» DATA LCASPW LOWER CASE P - W (BECAUSE OF KEYLOCK)«, t00=0x0016, t01=0x0188}
0x2416…242a               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x0032}
0x242a…243e               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x0046}
0x243e…2452               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x005a}
0x2452…2466               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x006e}
0x2466…247a               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x0082}
0x247a…248e               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x0096}
0x248e…24a2               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x00aa}
0x24a2…24ac               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0017, t01=0x00be}
0x24ac…24f2               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0017, t01=0x00c8}
0x24f2…24fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x010e}
0x24fc…2520               Head {h00=0x0020, h01=0x0050, text=»* START ADDRESS FOR DC TASKS«, t00=0x0017, t01=0x0118}
0x2520…2566               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0017, t01=0x013c}
0x2566…256e               Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x0182}
0x256e…2582               Head {h00=0x0010, h01=0x0050, text=»DCTASK EQU *«, t00=0x0017, t01=0x018a}
0x2582…2598               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0018, t01=0x000e}
0x2598…25c2               Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A9 POLL & SELECT ADDRESS «, t00=0x0018, t01=0x0024}
0x25c2…25d8               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0018, t01=0x004e}
0x25d8…25ee               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0018, t01=0x0064}
0x25ee…2606               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0018, t01=0x007a}
0x2606…262e               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x0018, t01=0x0092}
0x262e…263a               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0018, t01=0x00ba}
0x263a…264a               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0018, t01=0x00c6}
0x264a…265e               Head {h00=0x0010, h01=0x0050, text=»DCT100 EQU *«, t00=0x0018, t01=0x00d6}
0x265e…2690               Head {h00=0x002e, h01=0x0050, text=» LDK A7,/80 TEST IF ANY MESSAGE WITH WAIT «, t00=0x0018, t01=0x00ea}
0x2690…269c               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0018, t01=0x011c}
0x269c…26ac               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0018, t01=0x0128}
0x26ac…26d6               Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x0018, t01=0x0138}
0x26d6…26ec               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0018, t01=0x0162}
0x26ec…2702               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0018, t01=0x0178}
0x2702…2718               Head {h00=0x0012, h01=0x0050, text=» CF A14,DCGETM«, t00=0x0018, t01=0x018e}
0x2718…2730               Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x0019, t01=0x0014}
0x2730…2756               Head {h00=0x0022, h01=0x0050, text=» CF A14,RLRBUF RELEASE BUFFER «, t00=0x0019, t01=0x002c}
0x2756…2768               Head {h00=0x000e, h01=0x0050, text=» RB DCT100«, t00=0x0019, t01=0x0052}
0x2768…2772               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0019, t01=0x0064}
0x2772…277c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x006e}
0x277c…2786               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0078}
0x2786…27b2               Head {h00=0x0028, h01=0x0050, text=»* SUBROUTINE ACTIVATED BY ALL TASKS «, t00=0x0019, t01=0x0082}
0x27b2…27bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ae}
0x27bc…27c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b8}
0x27c6…27da               Head {h00=0x0010, h01=0x0050, text=»EMULA EQU * «, t00=0x0019, t01=0x00c2}
0x27da…2800               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS GET ECB ADDRESS«, t00=0x0019, t01=0x00d6}
0x2800…2828               Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBCW,A8 STORE IN ECBDCT «, t00=0x0019, t01=0x00fc}
0x2828…2850               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x0019, t01=0x0124}
0x2850…285c               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0019, t01=0x014c}
0x285c…286c               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0019, t01=0x0158}
0x286c…287c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0019, t01=0x0168}
0x287c…2886               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0019, t01=0x0178}
0x2886…2890               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0182}
0x2890…28ce               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0019, t01=0x018c}
0x28ce…28d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x003a}
0x28d8…28ec               Head {h00=0x0010, h01=0x0050, text=»*     VDUKB «, t00=0x001a, t01=0x0044}
0x28ec…28f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0058}
0x28f6…291c               Head {h00=0x0022, h01=0x0050, text=»* MAIN MODULE FOR KEYBOARD VDU«, t00=0x001a, t01=0x0062}
0x291c…2926               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0088}
0x2926…2966               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x001a, t01=0x0092}
0x2966…297a               Head {h00=0x0010, h01=0x0050, text=»VDUKB EQU * «, t00=0x001a, t01=0x00d2}
0x297a…2990               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x001a, t01=0x00e6}
0x2990…29ba               Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x001a, t01=0x00fc}
0x29ba…29c2               Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0126}
0x29c2…29d6               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x001a, t01=0x012e}
0x29d6…29de               Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0142}
0x29de…29e6               Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x014a}
0x29e6…2a1e               Head {h00=0x0034, h01=0x0050, text=» STR A12,A14 SAVE REGISTERS A12-A13 ON A14 STACK«, t00=0x001a, t01=0x0152}
0x2a1e…2a34               Head {h00=0x0012, h01=0x0050, text=» ST A13,-2,A14«, t00=0x001a, t01=0x018a}
0x2a34…2a5c               Head {h00=0x0024, h01=0x0050, text=» SUKL A14,4 UPDATE STACK POINTER«, t00=0x001b, t01=0x0010}
0x2a5c…2a76               Head {h00=0x0016, h01=0x0050, text=» CM OFFFLG,TCABAS «, t00=0x001b, t01=0x0038}
0x2a76…2aa4               Head {h00=0x002a, h01=0x0050, text=» CF A14,LIOLOF TURN OFF OFF LINE LAMP «, t00=0x001b, t01=0x0052}
0x2aa4…2ab0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0080}
0x2ab0…2ab8               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x008c}
0x2ab8…2ac2               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001b, t01=0x0094}
0x2ac2…2b08               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x001b, t01=0x009e}
0x2b08…2b12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00e4}
0x2b12…2b42               Head {h00=0x002c, h01=0x0050, text=»*   TRANSFER PARAMETER FOR MAIN FRAME #1«, t00=0x001b, t01=0x00ee}
0x2b42…2b4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x011e}
0x2b4c…2b92               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001b, t01=0x0128}
0x2b92…2b9a               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x016e}
0x2b9a…2bbe               Head {h00=0x0020, h01=0x0050, text=» LDR* A4,TCABAS REL TASK NO «, t00=0x001b, t01=0x0176}
0x2bbe…2be4               Head {h00=0x0022, h01=0x0050, text=» AD A4,6,CREBAS 'CB1' ADDRESS «, t00=0x001c, t01=0x000a}
0x2be4…2c0e               Head {h00=0x0026, h01=0x0050, text=» LC A1,MF1KBV-1,A4 GET DV-ADDRESS «, t00=0x001c, t01=0x0030}
0x2c0e…2c22               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001c, t01=0x005a}
0x2c22…2c38               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001c, t01=0x006e}
0x2c38…2c4e               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x001c, t01=0x0084}
0x2c4e…2c56               Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x009a}
0x2c56…2c6a               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001c, t01=0x00a2}
0x2c6a…2cb0               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001c, t01=0x00b6}
0x2cb0…2cba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00fc}
0x2cba…2cea               Head {h00=0x002c, h01=0x0050, text=»*   TRANSFER PARAMETER FOR MAIN-FRAME #2«, t00=0x001c, t01=0x0106}
0x2cea…2cf4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0136}
0x2cf4…2d3a               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001c, t01=0x0140}
0x2d3a…2d42               Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0186}
0x2d42…2d6c               Head {h00=0x0026, h01=0x0050, text=» LC A1,MF2KBV-1,A4 GET DV ADDRESS «, t00=0x001c, t01=0x018e}
0x2d6c…2d80               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001d, t01=0x0028}
0x2d80…2d98               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001d, t01=0x003c}
0x2d98…2dae               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x001d, t01=0x0054}
0x2dae…2dba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x006a}
0x2dba…2dc4               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001d, t01=0x0076}
0x2dc4…2dd8               Head {h00=0x0010, h01=0x0050, text=»VDU080 EQU *«, t00=0x001d, t01=0x0080}
0x2dd8…2dfa               Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x001d, t01=0x0094}
0x2dfa…2e02               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x00b6}
0x2e02…2e14               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001d, t01=0x00be}
0x2e14…2e2c               Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x001d, t01=0x00d0}
0x2e2c…2e66               Head {h00=0x0036, h01=0x0050, text=» ST A1,CURATT,TCABAS INITIATE WITH UNFORM. SCREEN «, t00=0x001d, t01=0x00e8}
0x2e66…2e7c               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1ON«, t00=0x001d, t01=0x0122}
0x2e7c…2eac               Head {h00=0x002c, h01=0x0050, text=» CM MAIN,TCABAS INDICATE MAIN-FRAME # 1 «, t00=0x001d, t01=0x0138}
0x2eac…2eb6               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001d, t01=0x0168}
0x2eb6…2ec0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0172}
0x2ec0…2ee0               Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x001d, t01=0x017c}
0x2ee0…2ef0               Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x001e, t01=0x000c}
0x2ef0…2f02               Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x001e, t01=0x001c}
0x2f02…2f16               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001e, t01=0x002e}
0x2f16…2f2c               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x001e, t01=0x0042}
0x2f2c…2f3e               Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x001e, t01=0x0058}
0x2f3e…2f50               Head {h00=0x000e, h01=0x0050, text=»ICR EQU 8 «, t00=0x001e, t01=0x006a}
0x2f50…2f64               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 4 «, t00=0x001e, t01=0x007c}
0x2f64…2f70               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0090}
0x2f70…2f84               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001e, t01=0x009c}
0x2f84…2f9a               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x001e, t01=0x00b0}
0x2f9a…2fac               Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x001e, t01=0x00c6}
0x2fac…2fc0               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 3 «, t00=0x001e, t01=0x00d8}
0x2fc0…2fcc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00ec}
0x2fcc…2fe0               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x001e, t01=0x00f8}
0x2fe0…2ff6               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x001e, t01=0x010c}
0x2ff6…3008               Head {h00=0x000e, h01=0x0050, text=»ICR EQU 6 «, t00=0x001e, t01=0x0122}
0x3008…301c               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 3 «, t00=0x001e, t01=0x0134}
0x301c…3028               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0148}
0x3028…303c               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x001e, t01=0x0154}
0x303c…3052               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x001e, t01=0x0168}
0x3052…3066               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 2 «, t00=0x001e, t01=0x017e}
0x3066…3072 (31, 0, 398)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0004}
0x3072…307c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0010}
0x307c…3092               Head {h00=0x0012, h01=0x0050, text=» LDK A1,ECBBS «, t00=0x001f, t01=0x001a}
0x3092…30ae               Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBLK,TCABAS«, t00=0x001f, t01=0x0030}
0x30ae…30c2               Head {h00=0x0010, h01=0x0050, text=»VDU100 EQU *«, t00=0x001f, t01=0x004c}
0x30c2…30e2               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC1,TCABAS«, t00=0x001f, t01=0x0060}
0x30e2…3100               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU110 PENDING«, t00=0x001f, t01=0x0080}
0x3100…3134               Head {h00=0x0030, h01=0x0050, text=» CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT «, t00=0x001f, t01=0x009e}
0x3134…3148               Head {h00=0x0010, h01=0x0050, text=»VDU110 EQU *«, t00=0x001f, t01=0x00d2}
0x3148…315c               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001f, t01=0x00e6}
0x315c…317c               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x001f, t01=0x00fa}
0x317c…319a               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU120 PENDING«, t00=0x001f, t01=0x011a}
0x319a…31d4               Head {h00=0x0036, h01=0x0050, text=» CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT«, t00=0x001f, t01=0x0138}
0x31d4…31e0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0172}
0x31e0…31f4               Head {h00=0x0010, h01=0x0050, text=»VDU120 EQU *«, t00=0x001f, t01=0x017e}
0x31f4…320a (32, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0020, t01=0x0004}
0x320a…322a               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+ICR,TCABAS«, t00=0x0020, t01=0x001a}
0x322a…3248               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU125 PENDING«, t00=0x0020, t01=0x003a}
0x3248…3266               Head {h00=0x001a, h01=0x0050, text=» LDKL A3,ICWORK BUFFER«, t00=0x0020, t01=0x0058}
0x3266…3286               Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS   ADDRESS«, t00=0x0020, t01=0x0076}
0x3286…32a2               Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x0020, t01=0x0096}
0x32a2…32b8               Head {h00=0x0012, h01=0x0050, text=» CF A14,ICREAD«, t00=0x0020, t01=0x00b2}
0x32b8…32d8               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+ICR,TCABAS«, t00=0x0020, t01=0x00c8}
0x32d8…32e4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00e8}
0x32e4…32f8               Head {h00=0x0010, h01=0x0050, text=»VDU125 EQU *«, t00=0x0020, t01=0x00f4}
0x32f8…3318               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+KB,TCABAS «, t00=0x0020, t01=0x0108}
0x3318…3336               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU150 PENDING«, t00=0x0020, t01=0x0128}
0x3336…3362               Head {h00=0x0028, h01=0x0050, text=» CF A14,RDKBNW READ KEYBOARD NO WAIT«, t00=0x0020, t01=0x0146}
0x3362…3376               Head {h00=0x0010, h01=0x0050, text=»VDU150 EQU *«, t00=0x0020, t01=0x0172}
0x3376…338e               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0020, t01=0x0186}
0x338e…33a4               Head {h00=0x0012, h01=0x0050, text=» ADR A7,TCABAS«, t00=0x0021, t01=0x000e}
0x33a4…33b0               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0021, t01=0x0024}
0x33b0…33ce               Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x0021, t01=0x0030}
0x33ce…33ee               Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+KB,TCABAS «, t00=0x0021, t01=0x004e}
0x33ee…3416               Head {h00=0x0024, h01=0x0050, text=» RF(E) KBINP INPUT FROM KEYBOARD«, t00=0x0021, t01=0x006e}
0x3416…342c               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0021, t01=0x0096}
0x342c…344c               Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+ICR,TCABAS«, t00=0x0021, t01=0x00ac}
0x344c…3478               Head {h00=0x0028, h01=0x0050, text=» RF(E) BUFCOP SEND BUFFER TO PRINTER«, t00=0x0021, t01=0x00cc}
0x3478…3484               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x00f8}
0x3484…34c2               Head {h00=0x003a, h01=0x0050, text=» ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ«, t00=0x0021, t01=0x0104}
0x34c2…34e6               Head {h00=0x0020, h01=0x0050, text=» CF A14,DCINP INPUT FROM DC «, t00=0x0021, t01=0x0142}
0x34e6…34f8               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0021, t01=0x0166}
0x34f8…3502               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0021, t01=0x0178}
0x3502…350c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0182}
0x350c…3530               Head {h00=0x0020, h01=0x0050, text=»* READ KEYBOARD WITH NO WAIT«, t00=0x0021, t01=0x018c}
0x3530…353a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0020}
0x353a…354e               Head {h00=0x0010, h01=0x0050, text=»RDKBNW EQU *«, t00=0x0022, t01=0x002a}
0x354e…3564               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x0022, t01=0x003e}
0x3564…357a               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0022, t01=0x0054}
0x357a…358c               Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0022, t01=0x006a}
0x358c…35b2               Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 1«, t00=0x0022, t01=0x007c}
0x35b2…35e0               Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 INDICATE NOT POWER OFF«, t00=0x0022, t01=0x00a2}
0x35e0…3600               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+KB,TCABAS «, t00=0x0022, t01=0x00d0}
0x3600…3612               Head {h00=0x000e, h01=0x0050, text=» RF DC1I30«, t00=0x0022, t01=0x00f0}
0x3612…361c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0102}
0x361c…363c               Head {h00=0x001c, h01=0x0050, text=»* TEST IF ANY MESSAGE DC«, t00=0x0022, t01=0x010c}
0x363c…3646               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x012c}
0x3646…365a               Head {h00=0x0010, h01=0x0050, text=»DC1INQ EQU *«, t00=0x0022, t01=0x0136}
0x365a…3670               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0022, t01=0x014a}
0x3670…3686               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0022, t01=0x0160}
0x3686…36a6               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+DC1,TCABAS«, t00=0x0022, t01=0x0176}
0x36a6…36ba               Head {h00=0x0010, h01=0x0050, text=»DC1I20 EQU *«, t00=0x0023, t01=0x0008}
0x36ba…36cc               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0023, t01=0x001c}
0x36cc…36e2               Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0023, t01=0x002e}
0x36e2…36f4               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0023, t01=0x0044}
0x36f4…3708               Head {h00=0x0010, h01=0x0050, text=»DC1I30 EQU *«, t00=0x0023, t01=0x0056}
0x3708…3714               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0023, t01=0x006a}
0x3714…3724               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0023, t01=0x0076}
0x3724…3734               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0023, t01=0x0086}
0x3734…3748               Head {h00=0x0010, h01=0x0050, text=»DC2INQ EQU *«, t00=0x0023, t01=0x0096}
0x3748…375c               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0023, t01=0x00aa}
0x375c…3774               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x0023, t01=0x00be}
0x3774…378a               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0023, t01=0x00d6}
0x378a…37aa               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+DC2,TCABAS«, t00=0x0023, t01=0x00ec}
0x37aa…37bc               Head {h00=0x000e, h01=0x0050, text=» RB DC1I20«, t00=0x0023, t01=0x010c}
0x37bc…37c8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x011e}
0x37c8…37de               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0023, t01=0x012a}
0x37de…37e8               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0023, t01=0x0140}
0x37e8…37f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x014a}
0x37f2…3818               Head {h00=0x0022, h01=0x0050, text=»* SEND BUFFER TO PRINTER TASK «, t00=0x0023, t01=0x0154}
0x3818…3822               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x017a}
0x3822…3836               Head {h00=0x0010, h01=0x0050, text=»BUFCOP EQU *«, t00=0x0023, t01=0x0184}
0x3836…3854               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0024, t01=0x0008}
0x3854…3870               Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x0024, t01=0x0026}
0x3870…3890               Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS   ADDRESS«, t00=0x0024, t01=0x0042}
0x3890…38a4               Head {h00=0x0010, h01=0x0050, text=» IFT COPL=1 «, t00=0x0024, t01=0x0062}
0x38a4…38ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0076}
0x38ae…38ca               Head {h00=0x0018, h01=0x0050, text=»* CHECK IF COPY LOCK«, t00=0x0024, t01=0x0080}
0x38ca…38d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x009c}
0x38d4…38e6               Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0024, t01=0x00a6}
0x38e6…38fa               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/18 «, t00=0x0024, t01=0x00b8}
0x38fa…390e               Head {h00=0x0010, h01=0x0050, text=» XRK A2,/10 «, t00=0x0024, t01=0x00cc}
0x390e…392e               Head {h00=0x001c, h01=0x0050, text=» RB(Z) VDU100 DON'T COPY«, t00=0x0024, t01=0x00e0}
0x392e…393a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0100}
0x393a…3950               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0024, t01=0x010c}
0x3950…3984               Head {h00=0x0030, h01=0x0050, text=» LDK A4,/8B ORDER: WRITE ADDRESSED WITH WAIT«, t00=0x0024, t01=0x0122}
0x3984…39a8               Head {h00=0x0020, h01=0x0050, text=» LD A5,ICWORK,TCABAS TASK ID«, t00=0x0024, t01=0x0156}
0x39a8…39ca               Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x0024, t01=0x017a}
0x39ca…39e0               Head {h00=0x0012, h01=0x0050, text=» CF A14,ICWRTE«, t00=0x0025, t01=0x000c}
0x39e0…39fc               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0025, t01=0x0022}
0x39fc…3a28               Head {h00=0x0028, h01=0x0050, text=» ANK A1,/E NOT INHIBITED ANY LONGER «, t00=0x0025, t01=0x003e}
0x3a28…3a44               Head {h00=0x0018, h01=0x0050, text=» ST A1,KBINH,TCABAS «, t00=0x0025, t01=0x006a}
0x3a44…3a56               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0025, t01=0x0086}
0x3a56…3a62               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0098}
0x3a62…3a6c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0025, t01=0x00a4}
0x3a6c…3a86               Head {h00=0x0016, h01=0x0050, text=»** KEYBOARD INPUT «, t00=0x0025, t01=0x00ae}
0x3a86…3a90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00c8}
0x3a90…3aa4               Head {h00=0x0010, h01=0x0050, text=»KBINP EQU * «, t00=0x0025, t01=0x00d2}
0x3aa4…3ac0               Head {h00=0x0018, h01=0x0050, text=» CM ECBBLK+KB,TCABAS«, t00=0x0025, t01=0x00e6}
0x3ac0…3ad8               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A8 «, t00=0x0025, t01=0x0102}
0x3ad8…3af8               Head {h00=0x001c, h01=0x0050, text=» RF(Z) KBIN05 POWER OFF «, t00=0x0025, t01=0x011a}
0x3af8…3b10               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRC,A8 «, t00=0x0025, t01=0x013a}
0x3b10…3b26               Head {h00=0x0012, h01=0x0050, text=» RF(0) KBIN10 «, t00=0x0025, t01=0x0152}
0x3b26…3b3a               Head {h00=0x0010, h01=0x0050, text=»KBIN05 EQU *«, t00=0x0025, t01=0x0168}
0x3b3a…3b62               Head {h00=0x0024, h01=0x0050, text=» LDK A7,4 RESET KEYBOARD BUFFER «, t00=0x0025, t01=0x017c}
0x3b62…3b6e               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0026, t01=0x0014}
0x3b6e…3b7e               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0026, t01=0x0020}
0x3b7e…3b90               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0026, t01=0x0030}
0x3b90…3ba4               Head {h00=0x0010, h01=0x0050, text=»KBIN10 EQU *«, t00=0x0026, t01=0x0042}
0x3ba4…3bc0               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0026, t01=0x0056}
0x3bc0…3bf0               Head {h00=0x002c, h01=0x0050, text=» ANK A1,1 RESETTING BY 'RESET' ALLOWED ?«, t00=0x0026, t01=0x0072}
0x3bf0…3c0a               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) KBIN05 NO «, t00=0x0026, t01=0x00a2}
0x3c0a…3c36               Head {h00=0x0028, h01=0x0050, text=» LC* A2,ECBBA,A8 GET INPUT CHARACTER«, t00=0x0026, t01=0x00bc}
0x3c36…3c50               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  =5 «, t00=0x0026, t01=0x00e8}
0x3c50…3c7a               Head {h00=0x0026, h01=0x0050, text=» CF A14,KEYCNV CONVERT KEY CODE =5«, t00=0x0026, t01=0x0102}
0x3c7a…3c8c               Head {h00=0x000e, h01=0x0050, text=» XIF   =5 «, t00=0x0026, t01=0x012c}
0x3c8c…3ca8               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0026, t01=0x013e}
0x3ca8…3cce               Head {h00=0x0022, h01=0x0050, text=» ANK A1,6 MUST BE RESET KEY ? «, t00=0x0026, t01=0x015a}
0x3cce…3ce6               Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN20 NO«, t00=0x0026, t01=0x0180}
0x3ce6…3d06               Head {h00=0x001c, h01=0x0050, text=» CWK A2,RSET RESET KEY ?«, t00=0x0027, t01=0x0008}
0x3d06…3d20               Head {h00=0x0016, h01=0x0050, text=» RB(NE) KBIN05 NO «, t00=0x0027, t01=0x0028}
0x3d20…3d34               Head {h00=0x0010, h01=0x0050, text=»KBIN20 EQU *«, t00=0x0027, t01=0x0042}
0x3d34…3d5c               Head {h00=0x0024, h01=0x0050, text=» LDR A5,A2 COPY INPUT CHARACTER «, t00=0x0027, t01=0x0056}
0x3d5c…3d76               Head {h00=0x0016, h01=0x0050, text=» SUK A5,/20 INDEX «, t00=0x0027, t01=0x007e}
0x3d76…3d98               Head {h00=0x001e, h01=0x0050, text=» RB(N) VDU100 ILLEGAL CHAR«, t00=0x0027, t01=0x0098}
0x3d98…3dac               Head {h00=0x0010, h01=0x0050, text=» CWK A5,/A7 «, t00=0x0027, t01=0x00ba}
0x3dac…3dce               Head {h00=0x001e, h01=0x0050, text=» RB(G) VDU100 ILLEGAL CHAR«, t00=0x0027, t01=0x00ce}
0x3dce…3e06               Head {h00=0x0034, h01=0x0050, text=» CF A14,DCABOR ABORT DC-READ TO ENABLE DC-WRITE «, t00=0x0027, t01=0x00f0}
0x3e06…3e18               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0027, t01=0x0128}
0x3e18…3e52               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) VDU100 DC COMPLETED, TAKE CARE OF MESSAGE«, t00=0x0027, t01=0x013a}
0x3e52…3e72               Head {h00=0x001c, h01=0x0050, text=» ADR A5,A5 TO KEY TABLE «, t00=0x0027, t01=0x0174}
0x3e72…3e7c (40, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0004}
0x3e7c…3e94               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0028, t01=0x000e}
0x3e94…3eaa               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0028, t01=0x0026}
0x3eaa…3ec6               Head {h00=0x0018, h01=0x0050, text=» LD A1,RDMORE,TCABAS«, t00=0x0028, t01=0x003c}
0x3ec6…3edc               Head {h00=0x0012, h01=0x0050, text=» RF(Z) KBIN30 «, t00=0x0028, t01=0x0058}
0x3edc…3ee6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x006e}
0x3ee6…3efa               Head {h00=0x0010, h01=0x0050, text=» CFR A14,A1 «, t00=0x0028, t01=0x0078}
0x3efa…3f0e               Head {h00=0x0010, h01=0x0050, text=» ABL VDU100 «, t00=0x0028, t01=0x008c}
0x3f0e…3f18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00a0}
0x3f18…3f2c               Head {h00=0x0010, h01=0x0050, text=»KBIN30 EQU *«, t00=0x0028, t01=0x00aa}
0x3f2c…3f6a               Head {h00=0x003a, h01=0x0050, text=» CFI A14,KEYTAB,A5 BRANCH TO RESPECTIVE INPUT HANDLER «, t00=0x0028, t01=0x00be}
0x3f6a…3f7e               Head {h00=0x0010, h01=0x0050, text=» ABL VDU100 «, t00=0x0028, t01=0x00fc}
0x3f7e…3f88               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0028, t01=0x0110}
0x3f88…3f92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x011a}
0x3f92…3fbc               Head {h00=0x0026, h01=0x0050, text=»* ABORT DC-REQUEST TO ENABLE WRITE«, t00=0x0028, t01=0x0124}
0x3fbc…3fc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x014e}
0x3fc6…3fda               Head {h00=0x0010, h01=0x0050, text=»DCABOR EQU *«, t00=0x0028, t01=0x0158}
0x3fda…3fec               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0028, t01=0x016c}
0x3fec…4002               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0028, t01=0x017e}
0x4002…4016 (41, 0, 398)  Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0029, t01=0x0004}
0x4016…4030               Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x0029, t01=0x0018}
0x4030…4046               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCAB05«, t00=0x0029, t01=0x0032}
0x4046…4052               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0048}
0x4052…4070               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0029, t01=0x0054}
0x4070…4084               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0029, t01=0x0072}
0x4084…4096               Head {h00=0x000e, h01=0x0050, text=» RF DCAB10«, t00=0x0029, t01=0x0086}
0x4096…40aa               Head {h00=0x0010, h01=0x0050, text=»DCAB05 EQU *«, t00=0x0029, t01=0x0098}
0x40aa…40c8               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x0029, t01=0x00ac}
0x40c8…40e0               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x0029, t01=0x00ca}
0x40e0…40f4               Head {h00=0x0010, h01=0x0050, text=»DCAB10 EQU *«, t00=0x0029, t01=0x00e2}
0x40f4…4100               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00f6}
0x4100…4116               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0029, t01=0x0102}
0x4116…4122               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0029, t01=0x0118}
0x4122…4132               Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x0029, t01=0x0124}
0x4132…4142               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x0134}
0x4142…414c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0029, t01=0x0144}
0x414c…4156               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x014e}
0x4156…4172               Head {h00=0x0018, h01=0x0050, text=»* SET REQUEST TIMER «, t00=0x0029, t01=0x0158}
0x4172…4190               Head {h00=0x001a, h01=0x0050, text=»* A1 = TIME OUT VALUE «, t00=0x0029, t01=0x0174}
0x4190…41aa (42, 0, 400)  Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x002a, t01=0x0004}
0x41aa…41b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x001e}
0x41b4…41c8               Head {h00=0x0010, h01=0x0050, text=»REQTIM EQU *«, t00=0x002a, t01=0x0028}
0x41c8…41e0               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x002a, t01=0x003c}
0x41e0…41f4               Head {h00=0x0010, h01=0x0050, text=» LDK A7,/B9 «, t00=0x002a, t01=0x0054}
0x41f4…4200               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x0068}
0x4200…4210               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x002a, t01=0x0074}
0x4210…4220               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x0084}
0x4220…422a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002a, t01=0x0094}
0x422a…4232               Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x009e}
0x4232…423c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00a6}
0x423c…4246               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00b0}
0x4246…4288               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002a, t01=0x00ba}
0x4288…4292               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00fc}
0x4292…42a2               Head {h00=0x000c, h01=0x0050, text=»* RETURN«, t00=0x002a, t01=0x0106}
0x42a2…42ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0116}
0x42ac…42f2               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002a, t01=0x0120}
0x42f2…42fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0166}
0x42fc…4312               Head {h00=0x0012, h01=0x0050, text=»RETURN RTN A14«, t00=0x002a, t01=0x0170}
0x4312…431c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002a, t01=0x0186}
0x431c…4326               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0190}
0x4326…4366               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002b, t01=0x000a}
0x4366…4370               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x004a}
0x4370…4384               Head {h00=0x0010, h01=0x0050, text=»*     CRLEFT«, t00=0x002b, t01=0x0054}
0x4384…438e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0068}
0x438e…43c8               Head {h00=0x0036, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS TO LEFT«, t00=0x002b, t01=0x0072}
0x43c8…43d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ac}
0x43d2…4412               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002b, t01=0x00b6}
0x4412…441c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00f6}
0x441c…4430               Head {h00=0x0010, h01=0x0050, text=»CRLEFT EQU *«, t00=0x002b, t01=0x0100}
0x4430…445e               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002b, t01=0x0114}
0x445e…4470               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x002b, t01=0x0142}
0x4470…4498               Head {h00=0x0024, h01=0x0050, text=» RF(NN) CRL050 NOT LEFTMOST POS «, t00=0x002b, t01=0x0154}
0x4498…44b0               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x002b, t01=0x017c}
0x44b0…44c8 (44, 0, 398)  Head {h00=0x0014, h01=0x0050, text=»CRL050 RF CRH100«, t00=0x002c, t01=0x0004}
0x44c8…44d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x001c}
0x44d2…4512               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002c, t01=0x0026}
0x4512…451c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0066}
0x451c…4530               Head {h00=0x0010, h01=0x0050, text=»*     CRRIGT«, t00=0x002c, t01=0x0070}
0x4530…453a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0084}
0x453a…457a               Head {h00=0x003c, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS. TO THE RIGHT«, t00=0x002c, t01=0x008e}
0x457a…4584               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ce}
0x4584…45c4               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002c, t01=0x00d8}
0x45c4…45ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0118}
0x45ce…45e4               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x002c, t01=0x0122}
0x45e4…45ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0138}
0x45ee…4602               Head {h00=0x0010, h01=0x0050, text=»CRRIGT EQU *«, t00=0x002c, t01=0x0142}
0x4602…4630               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002c, t01=0x0156}
0x4630…4642               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x002c, t01=0x0184}
0x4642…4666               Head {h00=0x0020, h01=0x0050, text=» CWK A2,LBVDU END OF BUFFER?«, t00=0x002d, t01=0x0008}
0x4666…467e               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRR050 NO«, t00=0x002d, t01=0x002c}
0x467e…4690               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x002d, t01=0x0044}
0x4690…46a8               Head {h00=0x0014, h01=0x0050, text=»CRR050 RF CRH100«, t00=0x002d, t01=0x0056}
0x46a8…46b2               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002d, t01=0x006e}
0x46b2…46bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0078}
0x46bc…4700               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x002d, t01=0x0082}
0x4700…470a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00c6}
0x470a…471a               Head {h00=0x000c, h01=0x0050, text=»* CRDOWN«, t00=0x002d, t01=0x00d0}
0x471a…4724               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00e0}
0x4724…4764               Head {h00=0x003c, h01=0x0050, text=»* THE MODULE MOVES THE CURSOR TO NEXT ROW. SAME COLUMN. «, t00=0x002d, t01=0x00ea}
0x4764…476e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x012a}
0x476e…47b2               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002d, t01=0x0134}
0x47b2…47bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0178}
0x47bc…47d0               Head {h00=0x0010, h01=0x0050, text=»CRDOWN EQU *«, t00=0x002d, t01=0x0182}
0x47d0…47fa               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x002e, t01=0x0008}
0x47fa…4810               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LLINE«, t00=0x002e, t01=0x0032}
0x4810…4830               Head {h00=0x001c, h01=0x0050, text=» CWK A2,LBVDU LAST LINE?«, t00=0x002e, t01=0x0048}
0x4830…4848               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRD050 NO«, t00=0x002e, t01=0x0068}
0x4848…485e               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LBVDU«, t00=0x002e, t01=0x0080}
0x485e…4876               Head {h00=0x0014, h01=0x0050, text=»CRD050 RF CRH100«, t00=0x002e, t01=0x0096}
0x4876…4880               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ae}
0x4880…48c6               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002e, t01=0x00b8}
0x48c6…48d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00fe}
0x48d0…48de               Head {h00=0x000a, h01=0x0050, text=»* CRUP«, t00=0x002e, t01=0x0108}
0x48de…48e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0116}
0x48e8…4914               Head {h00=0x0028, h01=0x0050, text=»* MOVE CURSOR ONE LINE UP. SAME COL.«, t00=0x002e, t01=0x0120}
0x4914…491e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x014c}
0x491e…4964               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002e, t01=0x0156}
0x4964…496e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x000c}
0x496e…4980               Head {h00=0x000e, h01=0x0050, text=»CRUP EQU *«, t00=0x002f, t01=0x0016}
0x4980…49ae               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002f, t01=0x0028}
0x49ae…49c4               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LLINE«, t00=0x002f, t01=0x0056}
0x49c4…49e6               Head {h00=0x001e, h01=0x0050, text=» RF(NN) CRU050 UPMOST LINE«, t00=0x002f, t01=0x006c}
0x49e6…49fc               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LBVDU«, t00=0x002f, t01=0x008e}
0x49fc…4a14               Head {h00=0x0014, h01=0x0050, text=»CRU050 RF CRH100«, t00=0x002f, t01=0x00a4}
0x4a14…4a1e               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002f, t01=0x00bc}
0x4a1e…4a28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00c6}
0x4a28…4a66               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002f, t01=0x00d0}
0x4a66…4a70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x010e}
0x4a70…4a80               Head {h00=0x000c, h01=0x0050, text=»* CRHOME«, t00=0x002f, t01=0x0118}
0x4a80…4a8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0128}
0x4a8a…4aae               Head {h00=0x0020, h01=0x0050, text=»* HOME POSITIONING OF CURSOR«, t00=0x002f, t01=0x0132}
0x4aae…4ab8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0156}
0x4ab8…4af6               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002f, t01=0x0160}
0x4af6…4b00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x000e}
0x4b00…4b14               Head {h00=0x0010, h01=0x0050, text=»CRHOME EQU *«, t00=0x0030, t01=0x0018}
0x4b14…4b26               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0030, t01=0x002c}
0x4b26…4b3a               Head {h00=0x0010, h01=0x0050, text=»CRH100 EQU *«, t00=0x0030, t01=0x003e}
0x4b3a…4b68               Head {h00=0x002a, h01=0x0050, text=» ST A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x0030, t01=0x0052}
0x4b68…4b8c               Head {h00=0x0020, h01=0x0050, text=» CF A14,ATMASB UPDATE ATTRIB«, t00=0x0030, t01=0x0080}
0x4b8c…4bb2               Head {h00=0x0022, h01=0x0050, text=» CF A14,SETCUR DISPLAY CURSOR «, t00=0x0030, t01=0x00a4}
0x4bb2…4bc2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0030, t01=0x00ca}
0x4bc2…4bcc               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0030, t01=0x00da}
0x4bcc…4bd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00e4}
0x4bd6…4c14               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0030, t01=0x00ee}
0x4c14…4c1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x012c}
0x4c1e…4c2c               Head {h00=0x000a, h01=0x0050, text=»* CRNL«, t00=0x0030, t01=0x0136}
0x4c2c…4c36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0144}
0x4c36…4c6c               Head {h00=0x0032, h01=0x0050, text=»* CURSOR IN FIRST UNPROTECTED POS ON NEW LINE «, t00=0x0030, t01=0x014e}
0x4c6c…4c76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0184}
0x4c76…4cb4               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0030, t01=0x018e}
0x4cb4…4cbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x003c}
0x4cbe…4cd0               Head {h00=0x000e, h01=0x0050, text=»CRNL EQU *«, t00=0x0031, t01=0x0046}
0x4cd0…4cfa               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0031, t01=0x0058}
0x4cfa…4d1a               Head {h00=0x001c, h01=0x0050, text=» ADKL A2,LLINE NEXT LINE«, t00=0x0031, t01=0x0082}
0x4d1a…4d30               Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x0031, t01=0x00a2}
0x4d30…4d46               Head {h00=0x0012, h01=0x0050, text=» RF(L) CRN050 «, t00=0x0031, t01=0x00b8}
0x4d46…4d64               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND «, t00=0x0031, t01=0x00ce}
0x4d64…4d6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ec}
0x4d6e…4d8c               Head {h00=0x001a, h01=0x0050, text=»* COMPUTE LEFTMOST POS«, t00=0x0031, t01=0x00f6}
0x4d8c…4d96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0114}
0x4d96…4dae               Head {h00=0x0014, h01=0x0050, text=»CRN050 LDK A1,0 «, t00=0x0031, t01=0x011e}
0x4dae…4dca               Head {h00=0x0018, h01=0x0050, text=»CRN100 SUKL A2,LLINE«, t00=0x0031, t01=0x0136}
0x4dca…4de0               Head {h00=0x0012, h01=0x0050, text=» RF(N) CRN120 «, t00=0x0031, t01=0x0152}
0x4de0…4df6               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,LLINE«, t00=0x0031, t01=0x0168}
0x4df6…4e08               Head {h00=0x000e, h01=0x0050, text=» RB CRN100«, t00=0x0031, t01=0x017e}
0x4e08…4e3e               Head {h00=0x0032, h01=0x0050, text=»CRN120 ST A1,PCURS,TCABAS STORE CURSOR ADDRESS«, t00=0x0031, t01=0x0190}
0x4e3e…4e48               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0032, t01=0x0036}
0x4e48…4e50               Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x0040}
0x4e50…4e9a               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0032, t01=0x0048}
0x4e9a…4eac               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0032, t01=0x0092}
0x4eac…4ede               Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x0032, t01=0x00a4}
0x4ede…4ef0               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0032, t01=0x00d6}
0x4ef0…4f18               Head {h00=0x0024, h01=0x0050, text=» RF(Z) CRN130 NO ATTRIBUTE FOUND«, t00=0x0032, t01=0x00e8}
0x4f18…4f2c               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x0032, t01=0x0110}
0x4f2c…4f50               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TAB PROTECTED FIELD «, t00=0x0032, t01=0x0124}
0x4f50…4f82               Head {h00=0x002e, h01=0x0050, text=» CW A2,PCURS,TCABAS CURSOR ON ATTRIBUTE ??«, t00=0x0032, t01=0x0148}
0x4f82…4f9e               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN150 NO!! «, t00=0x0032, t01=0x017a}
0x4f9e…4fca               Head {h00=0x0028, h01=0x0050, text=» CWK A2,1919 LAST SCREEN POSITION?? «, t00=0x0033, t01=0x0008}
0x4fca…4fe6               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN140 NO!! «, t00=0x0033, t01=0x0034}
0x4fe6…5000               Head {h00=0x0016, h01=0x0050, text=»CRN130 LDKL A2,-1 «, t00=0x0033, t01=0x0050}
0x5000…5018               Head {h00=0x0014, h01=0x0050, text=»CRN140 ADK A2,1 «, t00=0x0033, t01=0x006a}
0x5018…5034               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x0033, t01=0x0082}
0x5034…5060               Head {h00=0x0028, h01=0x0050, text=»CRN150 CF A14,SETCUR POSITION CURSOR«, t00=0x0033, t01=0x009e}
0x5060…5070               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0033, t01=0x00ca}
0x5070…50bc               Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0033, t01=0x00da}
0x50bc…50c6               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0033, t01=0x0126}
0x50c6…50d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0130}
0x50d0…510c               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0033, t01=0x013a}
0x510c…5116               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0176}
0x5116…5124               Head {h00=0x000a, h01=0x0050, text=»* TAB «, t00=0x0033, t01=0x0180}
0x5124…512e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x018e}
0x512e…5164               Head {h00=0x0032, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHAR. LOCATION «, t00=0x0034, t01=0x0008}
0x5164…5190               Head {h00=0x0028, h01=0x0050, text=»* OF THE NEXT UNPROTECTED DATA FIELD«, t00=0x0034, t01=0x003e}
0x5190…519a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x006a}
0x519a…51d6               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0034, t01=0x0074}
0x51d6…51e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00b0}
0x51e0…5216               Head {h00=0x0032, h01=0x0050, text=»* A1=END OF BUFFER PAREM.    0=EOB NOT REACHED«, t00=0x0034, t01=0x00ba}
0x5216…5228               Head {h00=0x000e, h01=0x0050, text=»*   2=EOB «, t00=0x0034, t01=0x00f0}
0x5228…5248               Head {h00=0x001c, h01=0x0050, text=»*   3=ATTRIB. IN EOB POS«, t00=0x0034, t01=0x0102}
0x5248…526a               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x0034, t01=0x0122}
0x526a…5280               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTGR«, t00=0x0034, t01=0x0144}
0x5280…528a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x015a}
0x528a…529c               Head {h00=0x000e, h01=0x0050, text=»TAB EQU * «, t00=0x0034, t01=0x0164}
0x529c…52ae               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x0034, t01=0x0176}
0x52ae…52d8               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0034, t01=0x0188}
0x52d8…5306               Head {h00=0x002a, h01=0x0050, text=»TAB100 CF A14,ATMASF SEARCH ATTRIBUTE «, t00=0x0035, t01=0x0022}
0x5306…5326               Head {h00=0x001c, h01=0x0050, text=» CWK A1,0 END OF BUFFER?«, t00=0x0035, t01=0x0050}
0x5326…5340               Head {h00=0x0016, h01=0x0050, text=» RF(G) TAB300 YES «, t00=0x0035, t01=0x0070}
0x5340…5352               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0035, t01=0x008a}
0x5352…5378               Head {h00=0x0022, h01=0x0050, text=»TAB150 ANK A3,/10 UNPROTECTED?«, t00=0x0035, t01=0x009c}
0x5378…5392               Head {h00=0x0016, h01=0x0050, text=» RF(E) TAB200 YES «, t00=0x0035, t01=0x00c2}
0x5392…53b2               Head {h00=0x001c, h01=0x0050, text=» RB TAB100 NEXT ATTRIB. «, t00=0x0035, t01=0x00dc}
0x53b2…53d4               Head {h00=0x001e, h01=0x0050, text=»TAB200 ST A2,PCURS,TCABAS «, t00=0x0035, t01=0x00fc}
0x53d4…53fe               Head {h00=0x0026, h01=0x0050, text=» CF A14,SETCUR DISPLAY NEW CURSOR «, t00=0x0035, t01=0x011e}
0x53fe…540e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x0148}
0x540e…5426               Head {h00=0x0014, h01=0x0050, text=»TAB300 LDK A2,0 «, t00=0x0035, t01=0x0158}
0x5426…5456               Head {h00=0x002c, h01=0x0050, text=» CWK A1,3 ATTRIBUTE IN LAST POSITION ?? «, t00=0x0035, t01=0x0170}
0x5456…5460               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0036, t01=0x0010}
0x5460…54a0               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0036, t01=0x001a}
0x54a0…54bc               Head {h00=0x0018, h01=0x0050, text=» RF(NE) TAB350 NO!! «, t00=0x0036, t01=0x005a}
0x54bc…54e8               Head {h00=0x0028, h01=0x0050, text=» ANK A5,1 WHOLE BUFFER CONTROLLED ??«, t00=0x0036, t01=0x0076}
0x54e8…5504               Head {h00=0x0018, h01=0x0050, text=» RB(Z) TAB200 YES!! «, t00=0x0036, t01=0x00a2}
0x5504…5518               Head {h00=0x0010, h01=0x0050, text=» SUR A5,A5  «, t00=0x0036, t01=0x00be}
0x5518…553a               Head {h00=0x001e, h01=0x0050, text=» RB TAB150 CHECK ATTRIBUTE«, t00=0x0036, t01=0x00d2}
0x553a…554e               Head {h00=0x0010, h01=0x0050, text=»TAB350 EQU *«, t00=0x0036, t01=0x00f4}
0x554e…558e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0036, t01=0x0108}
0x558e…55b6               Head {h00=0x0024, h01=0x0050, text=» ANK A5,1 WHOLE BUFF. CONTROLED?«, t00=0x0036, t01=0x0148}
0x55b6…55ce               Head {h00=0x0014, h01=0x0050, text=» RF(G) TAB400 NO«, t00=0x0036, t01=0x0170}
0x55ce…5602               Head {h00=0x0030, h01=0x0050, text=» RB TAB200 ALL PROT. OR NON-FORMATTED BUFF. «, t00=0x0036, t01=0x0188}
0x5602…561a               Head {h00=0x0014, h01=0x0050, text=»TAB400 LDK A5,0 «, t00=0x0037, t01=0x002c}
0x561a…562c               Head {h00=0x000e, h01=0x0050, text=» RB TAB100«, t00=0x0037, t01=0x0044}
0x562c…5636               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0037, t01=0x0056}
0x5636…5640               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0060}
0x5640…5684               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0037, t01=0x006a}
0x5684…568e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00ae}
0x568e…569c               Head {h00=0x000a, h01=0x0050, text=»* DUP «, t00=0x0037, t01=0x00b8}
0x569c…56a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00c6}
0x56a6…56be               Head {h00=0x0014, h01=0x0050, text=»* DUPLICATE KEY «, t00=0x0037, t01=0x00d0}
0x56be…56fc               Head {h00=0x003a, h01=0x0050, text=»* OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x0037, t01=0x00e8}
0x56fc…573a               Head {h00=0x003a, h01=0x0050, text=»* TO BE ENTERED INTO THE DISPLAY BUFFER AND A STANDARD«, t00=0x0037, t01=0x0126}
0x573a…5766               Head {h00=0x0028, h01=0x0050, text=»* TAB KEY OPERATION TO BE PERFORMED «, t00=0x0037, t01=0x0164}
0x5766…5770               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0190}
0x5770…57b4               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0038, t01=0x000a}
0x57b4…57be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x004e}
0x57be…57d0               Head {h00=0x000e, h01=0x0050, text=»DUP EQU * «, t00=0x0038, t01=0x0058}
0x57d0…57fa               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0038, t01=0x006a}
0x57fa…5834               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE«, t00=0x0038, t01=0x0094}
0x5834…584a               Head {h00=0x0012, h01=0x0050, text=» LDK A2,DUPCH «, t00=0x0038, t01=0x00ce}
0x584a…587e               Head {h00=0x0030, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFF. ADDR.«, t00=0x0038, t01=0x00e4}
0x587e…5890               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x0038, t01=0x0118}
0x5890…58a4               Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0038, t01=0x012a}
0x58a4…58b8               Head {h00=0x0010, h01=0x0050, text=» CF A14,TAB «, t00=0x0038, t01=0x013e}
0x58b8…58c8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0038, t01=0x0152}
0x58c8…58d2               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0038, t01=0x0162}
0x58d2…58dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x016c}
0x58dc…5920               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0038, t01=0x0176}
0x5920…592a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x002a}
0x592a…5944               Head {h00=0x0016, h01=0x0050, text=»*       FIELD MARK«, t00=0x0039, t01=0x0034}
0x5944…594e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x004e}
0x594e…5992               Head {h00=0x0040, h01=0x0050, text=»*       OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x0039, t01=0x0058}
0x5992…59d2               Head {h00=0x003c, h01=0x0050, text=»*       TO BE ENTERED IN THE DISPLAY BUFFER IN ADDITION «, t00=0x0039, t01=0x009c}
0x59d2…5a02               Head {h00=0x002c, h01=0x0050, text=»*       TO THE DC CHARACTER TRANSMITTED «, t00=0x0039, t01=0x00dc}
0x5a02…5a0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x010c}
0x5a0c…5a4e               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0039, t01=0x0116}
0x5a4e…5a58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0158}
0x5a58…5a6c               Head {h00=0x0010, h01=0x0050, text=»FLDMRK EQU *«, t00=0x0039, t01=0x0162}
0x5a6c…5a94               Head {h00=0x0024, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE??«, t00=0x0039, t01=0x0176}
0x5a94…5ace               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE«, t00=0x003a, t01=0x000e}
0x5ace…5ae2               Head {h00=0x0010, h01=0x0050, text=» LDK A2,FMCH«, t00=0x003a, t01=0x0048}
0x5ae2…5b18               Head {h00=0x0032, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFFER ADDR. «, t00=0x003a, t01=0x005c}
0x5b18…5b2a               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x003a, t01=0x0092}
0x5b2a…5b3e               Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x003a, t01=0x00a4}
0x5b3e…5b4e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003a, t01=0x00b8}
0x5b4e…5b58               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x003a, t01=0x00c8}
0x5b58…5b62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00d2}
0x5b62…5ba4               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003a, t01=0x00dc}
0x5ba4…5bae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x011e}
0x5bae…5bc4               Head {h00=0x0012, h01=0x0050, text=»*       RDHOME«, t00=0x003a, t01=0x0128}
0x5bc4…5bce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x013e}
0x5bce…5bec               Head {h00=0x001a, h01=0x0050, text=»*       READY HOME KEY«, t00=0x003a, t01=0x0148}
0x5bec…5c28               Head {h00=0x0038, h01=0x0050, text=»*       OPERATION OF THIS KEY CAUSES THE CURSOR TOBE«, t00=0x003a, t01=0x0166}
0x5c28…5c66               Head {h00=0x003a, h01=0x0050, text=»*        POSITIONED AT THE FIRST UNPROTECTED CHARACTER«, t00=0x003b, t01=0x0012}
0x5c66…5c84               Head {h00=0x001a, h01=0x0050, text=»*       ON THE SCREEN «, t00=0x003b, t01=0x0050}
0x5c84…5c8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x006e}
0x5c8e…5cce               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003b, t01=0x0078}
0x5cce…5cd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00b8}
0x5cd8…5cf4               Head {h00=0x0018, h01=0x0050, text=»RDHOME LDKL A4,BVDU «, t00=0x003b, t01=0x00c2}
0x5cf4…5d1e               Head {h00=0x0026, h01=0x0050, text=» ADR A4,TCABAS VDU BUFFER ADDRESS «, t00=0x003b, t01=0x00de}
0x5d1e…5d4e               Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x003b, t01=0x0108}
0x5d4e…5d62               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003b, t01=0x0138}
0x5d62…5d76               Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x003b, t01=0x014c}
0x5d76…5d8c               Head {h00=0x0012, h01=0x0050, text=» RF(NL) RDH10 «, t00=0x003b, t01=0x0160}
0x5d8c…5da0               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003b, t01=0x0176}
0x5da0…5dc8               Head {h00=0x0024, h01=0x0050, text=» ABL(Z) CRHOME UNPROTECTED FIELD«, t00=0x003b, t01=0x018a}
0x5dc8…5de6               Head {h00=0x001a, h01=0x0050, text=»RDH10 CM PCURS,TCABAS «, t00=0x003c, t01=0x0022}
0x5de6…5e16               Head {h00=0x002c, h01=0x0050, text=» CF A14,TAB SEARCH 1ST UNPROTECTED FIELD«, t00=0x003c, t01=0x0040}
0x5e16…5e26               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003c, t01=0x0070}
0x5e26…5e30               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x003c, t01=0x0080}
0x5e30…5e3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x008a}
0x5e3a…5e78               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003c, t01=0x0094}
0x5e78…5e82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00d2}
0x5e82…5e92               Head {h00=0x000c, h01=0x0050, text=»* BAKTAB«, t00=0x003c, t01=0x00dc}
0x5e92…5e9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00ec}
0x5e9c…5ed6               Head {h00=0x0036, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHARACTER LOCATION «, t00=0x003c, t01=0x00f6}
0x5ed6…5f0c               Head {h00=0x0032, h01=0x0050, text=»* OF THE NEXT PRECIDING UNPROTECTED DATA FIELD«, t00=0x003c, t01=0x0130}
0x5f0c…5f16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0166}
0x5f16…5f52               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x003c, t01=0x0170}
0x5f52…5f5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x001c}
0x5f5c…5f7e               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x003d, t01=0x0026}
0x5f7e…5f94               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x003d, t01=0x0048}
0x5f94…5fa8               Head {h00=0x0010, h01=0x0050, text=»BAKTAB EQU *«, t00=0x003d, t01=0x005e}
0x5fa8…5fba               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x003d, t01=0x0072}
0x5fba…5fe4               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x003d, t01=0x0084}
0x5fe4…600a               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x003d, t01=0x00ae}
0x600a…602c               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR? «, t00=0x003d, t01=0x00d4}
0x602c…6046               Head {h00=0x0016, h01=0x0050, text=» RF(NG) BAK100 YES«, t00=0x003d, t01=0x00f6}
0x6046…606c               Head {h00=0x0022, h01=0x0050, text=» CWK A2,0 UPPER LEFTMOST POS? «, t00=0x003d, t01=0x0110}
0x606c…6086               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x003d, t01=0x0136}
0x6086…6098               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003d, t01=0x0150}
0x6098…60c4               Head {h00=0x0028, h01=0x0050, text=»BAK100 CWK A2,0 UPPER LEFTMOST POS? «, t00=0x003d, t01=0x0162}
0x60c4…60de               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x003d, t01=0x018e}
0x60de…60f6               Head {h00=0x0014, h01=0x0050, text=»BAK200 SUK A2,1 «, t00=0x003e, t01=0x0018}
0x60f6…611e               Head {h00=0x0024, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE «, t00=0x003e, t01=0x0030}
0x611e…6162               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003e, t01=0x0058}
0x6162…6174               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003e, t01=0x009c}
0x6174…6196               Head {h00=0x001e, h01=0x0050, text=» RF(Z) BAK400 NO ATTRIBUTE«, t00=0x003e, t01=0x00ae}
0x6196…61ce               Head {h00=0x0034, h01=0x0050, text=» RF(N) BAK250 ATTRIBUTE FOUND. NOT IN LAST POS. «, t00=0x003e, t01=0x00d0}
0x61ce…6202               Head {h00=0x0030, h01=0x0050, text=» SUR A2,A2 ATTRIBUTE FOUND IN LAST POSITION «, t00=0x003e, t01=0x0108}
0x6202…6214               Head {h00=0x000e, h01=0x0050, text=» RF BAK300«, t00=0x003e, t01=0x013c}
0x6214…6228               Head {h00=0x0010, h01=0x0050, text=»BAK250 EQU *«, t00=0x003e, t01=0x014e}
0x6228…626a               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x003e, t01=0x0162}
0x626a…6288               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x003f, t01=0x0014}
0x6288…62a2               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK100 YES«, t00=0x003f, t01=0x0032}
0x62a2…62b4               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x003f, t01=0x004c}
0x62b4…62d6               Head {h00=0x001e, h01=0x0050, text=»BAK300 ST A2,PCURS,TCABAS «, t00=0x003f, t01=0x005e}
0x62d6…62f8               Head {h00=0x001e, h01=0x0050, text=» CF A14,SETCUR SET CURSOR «, t00=0x003f, t01=0x0080}
0x62f8…6308               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003f, t01=0x00a2}
0x6308…6336               Head {h00=0x002a, h01=0x0050, text=»BAK400 SUK A5,1 WHOLE BUFF CONTROLLED?«, t00=0x003f, t01=0x00b2}
0x6336…6350               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) BAK300 YES«, t00=0x003f, t01=0x00e0}
0x6350…637c               Head {h00=0x0028, h01=0x0050, text=» LDKL A2,LBVDU-1 END BUFFER ADDRESS «, t00=0x003f, t01=0x00fa}
0x637c…63a2               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x003f, t01=0x0126}
0x63a2…63c6               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x003f, t01=0x014c}
0x63c6…63de               Head {h00=0x0014, h01=0x0050, text=» RB(G) BAK200 NO«, t00=0x003f, t01=0x0170}
0x63de…63fc               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x003f, t01=0x0188}
0x63fc…6416               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK200 YES«, t00=0x0040, t01=0x0016}
0x6416…6448               Head {h00=0x002e, h01=0x0050, text=» ST A3,ATTRIB,TCABAS UPDATE NEW ATTRIBUTE «, t00=0x0040, t01=0x0030}
0x6448…6464               Head {h00=0x0018, h01=0x0050, text=» ST A2,CURATT,TCABAS«, t00=0x0040, t01=0x0062}
0x6464…64ac               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0040, t01=0x007e}
0x64ac…64be               Head {h00=0x000e, h01=0x0050, text=» RB BAK200«, t00=0x0040, t01=0x00c6}
0x64be…6506               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0040, t01=0x00d8}
0x6506…6510               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0040, t01=0x0120}
0x6510…651a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0040, t01=0x012a}
0x651a…6524               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0134}
0x6524…6566               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0040, t01=0x013e}
0x6566…6570               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0180}
0x6570…657e               Head {h00=0x000a, h01=0x0050, text=»* CHAR«, t00=0x0040, t01=0x018a}
0x657e…6588               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0008}
0x6588…65c6               Head {h00=0x003a, h01=0x0050, text=»* ALPHABETIC AND SPECIAL CHAR UPDATING AND DISPLAYING «, t00=0x0041, t01=0x0012}
0x65c6…65d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0050}
0x65d0…6612               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0041, t01=0x005a}
0x6612…661c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x009c}
0x661c…6630               Head {h00=0x0010, h01=0x0050, text=»LCASPW EQU *«, t00=0x0041, t01=0x00a6}
0x6630…6660               Head {h00=0x002c, h01=0x0050, text=» SUK A2,/50 CONVERT TO LOWER CASE P - W «, t00=0x0041, t01=0x00ba}
0x6660…6682               Head {h00=0x001e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS«, t00=0x0041, t01=0x00ea}
0x6682…668c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x010c}
0x668c…669e               Head {h00=0x000e, h01=0x0050, text=»CHAR EQU *«, t00=0x0041, t01=0x0116}
0x669e…66c8               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0041, t01=0x0128}
0x66c8…66fa               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x0041, t01=0x0152}
0x66fa…671e               Head {h00=0x0020, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIB?«, t00=0x0041, t01=0x0184}
0x671e…6738               Head {h00=0x0016, h01=0x0050, text=» RF(E) CHA300 YES «, t00=0x0042, t01=0x0018}
0x6738…676e               Head {h00=0x0032, h01=0x0050, text=»CHA100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0042, t01=0x0032}
0x676e…6780               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0042, t01=0x0068}
0x6780…67a6               Head {h00=0x0022, h01=0x0050, text=» ANK A4,/10 PROTECTRED FIELD? «, t00=0x0042, t01=0x007a}
0x67a6…67c0               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CHA300 YES«, t00=0x0042, t01=0x00a0}
0x67c0…67d8               Head {h00=0x0014, h01=0x0050, text=»CHA200 LDR A4,A3«, t00=0x0042, t01=0x00ba}
0x67d8…67fa               Head {h00=0x001e, h01=0x0050, text=» ANK A4,/8 NUMERIC FIELD? «, t00=0x0042, t01=0x00d2}
0x67fa…6812               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x0042, t01=0x00f4}
0x6812…6842               Head {h00=0x002c, h01=0x0050, text=»CHA300 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x0042, t01=0x010c}
0x6842…684c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0042, t01=0x013c}
0x684c…6894               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0042, t01=0x0146}
0x6894…689e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x018e}
0x689e…68c8               Head {h00=0x0026, h01=0x0050, text=»*   Z E R O : 3    TRIPLE ZERO KEY«, t00=0x0043, t01=0x0008}
0x68c8…68f4               Head {h00=0x0028, h01=0x0050, text=»*   Z E R O : 2     DOUBLE ZERO KEY «, t00=0x0043, t01=0x0032}
0x68f4…68fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x005e}
0x68fe…6938               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0043, t01=0x0068}
0x6938…6940               Head {h00=0x0004, h01=0x0050, t00=0x0043, t01=0x00a2}
0x6940…6954               Head {h00=0x0010, h01=0x0050, text=»ZERO:3 EQU *«, t00=0x0043, t01=0x00aa}
0x6954…6978               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0043, t01=0x00be}
0x6978…69b4               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0043, t01=0x00e2}
0x69b4…69da               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0043, t01=0x011e}
0x69da…69e2               Head {h00=0x0004, h01=0x0050, t00=0x0043, t01=0x0144}
0x69e2…69f6               Head {h00=0x0010, h01=0x0050, text=»ZERO:2 EQU *«, t00=0x0043, t01=0x014c}
0x69f6…6a1a               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0043, t01=0x0160}
0x6a1a…6a56               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0043, t01=0x0184}
0x6a56…6a7c               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0044, t01=0x0030}
0x6a7c…6aa2               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0044, t01=0x0056}
0x6aa2…6aba               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0044, t01=0x007c}
0x6aba…6ac4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0094}
0x6ac4…6b06               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0044, t01=0x009e}
0x6b06…6b10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00e0}
0x6b10…6b1e               Head {h00=0x000a, h01=0x0050, text=»* NUM «, t00=0x0044, t01=0x00ea}
0x6b1e…6b28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00f8}
0x6b28…6b4e               Head {h00=0x0022, h01=0x0050, text=»* DISPLAY AND UPDATE NUMERICS «, t00=0x0044, t01=0x0102}
0x6b4e…6b58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0128}
0x6b58…6b9a               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0044, t01=0x0132}
0x6b9a…6ba4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0174}
0x6ba4…6bb8               Head {h00=0x0010, h01=0x0050, text=»NUMCOM EQU *«, t00=0x0044, t01=0x017e}
0x6bb8…6bcc (69, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2C «, t00=0x0045, t01=0x0004}
0x6bcc…6bee               Head {h00=0x001e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS«, t00=0x0045, t01=0x0018}
0x6bee…6bf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x003a}
0x6bf8…6c0a               Head {h00=0x000e, h01=0x0050, text=»NUM EQU * «, t00=0x0045, t01=0x0044}
0x6c0a…6c34               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0045, t01=0x0056}
0x6c34…6c66               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x0045, t01=0x0080}
0x6c66…6c8e               Head {h00=0x0024, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIBUTE? «, t00=0x0045, t01=0x00b2}
0x6c8e…6ca8               Head {h00=0x0016, h01=0x0050, text=» RF(E) NUM200 YES «, t00=0x0045, t01=0x00da}
0x6ca8…6cde               Head {h00=0x0032, h01=0x0050, text=»NUM100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0045, t01=0x00f4}
0x6cde…6cf0               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0045, t01=0x012a}
0x6cf0…6d14               Head {h00=0x0020, h01=0x0050, text=» ANK A4,/10 PROTECTED FIELD?«, t00=0x0045, t01=0x013c}
0x6d14…6d2c               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x0045, t01=0x0160}
0x6d2c…6d5c               Head {h00=0x002c, h01=0x0050, text=»NUM200 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x0045, t01=0x0178}
0x6d5c…6d66               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0046, t01=0x0018}
0x6d66…6d70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0022}
0x6d70…6db2               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0046, t01=0x002c}
0x6db2…6dbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x006e}
0x6dbc…6dcc               Head {h00=0x000c, h01=0x0050, text=»* ANCOMM«, t00=0x0046, t01=0x0078}
0x6dcc…6dd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0088}
0x6dd6…6e16               Head {h00=0x003c, h01=0x0050, text=»* COMMON SUBMODULE FOR ALPHANUMERIC CHAR. DISPLAYING AND«, t00=0x0046, t01=0x0092}
0x6e16…6e28               Head {h00=0x000e, h01=0x0050, text=»* UPDATING«, t00=0x0046, t01=0x00d2}
0x6e28…6e32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00e4}
0x6e32…6e74               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0046, t01=0x00ee}
0x6e74…6e7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0130}
0x6e7e…6e92               Head {h00=0x0010, h01=0x0050, text=»ANCOMM EQU *«, t00=0x0046, t01=0x013a}
0x6e92…6eb8               Head {h00=0x0022, h01=0x0050, text=» LC* A4,ECBKB+ECBBA,CREBAS  =1«, t00=0x0046, t01=0x014e}
0x6eb8…6ecc               Head {h00=0x0010, h01=0x0050, text=»ANC005 EQU *«, t00=0x0046, t01=0x0174}
0x6ecc…6ee2               Head {h00=0x0012, h01=0x0050, text=» LDKL A6,BVDU «, t00=0x0046, t01=0x0188}
0x6ee2…6ef8               Head {h00=0x0012, h01=0x0050, text=» ADR A6,TCABAS«, t00=0x0047, t01=0x000e}
0x6ef8…6f0a               Head {h00=0x000e, h01=0x0050, text=» ADR A6,A2«, t00=0x0047, t01=0x0024}
0x6f0a…6f12               Head {h00=0x0004, h01=0x0050, t00=0x0047, t01=0x0036}
0x6f12…6f3c               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0047, t01=0x003e}
0x6f3c…6f58               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ANC010 YES!!«, t00=0x0047, t01=0x0068}
0x6f58…6f7a               Head {h00=0x001e, h01=0x0050, text=» SCR A4,A6 UPDATE VDU BUFF«, t00=0x0047, t01=0x0084}
0x6f7a…6fa8               Head {h00=0x002a, h01=0x0050, text=»ANC010 LDR A7,A6 SAVE CURSOR POSITION «, t00=0x0047, t01=0x00a6}
0x6fa8…6fc4               Head {h00=0x0018, h01=0x0050, text=» LD A5,CURATT,TCABAS«, t00=0x0047, t01=0x00d4}
0x6fc4…6ff0               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0047, t01=0x00f0}
0x6ff0…700a               Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC100 YES «, t00=0x0047, t01=0x011c}
0x700a…702e               Head {h00=0x0020, h01=0x0050, text=» SUR A6,A2 BVDU START ADDR. «, t00=0x0047, t01=0x0136}
0x702e…704c               Head {h00=0x001a, h01=0x0050, text=» ADR A6,A5 ATTRIB. POS«, t00=0x0047, t01=0x015a}
0x704c…707c               Head {h00=0x002c, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0047, t01=0x0178}
0x707c…7098               Head {h00=0x0018, h01=0x0050, text=» ORK A3,1 MDT-BIT ON«, t00=0x0048, t01=0x0018}
0x7098…70aa               Head {h00=0x000e, h01=0x0050, text=» SCR A3,A6«, t00=0x0048, t01=0x0034}
0x70aa…70be               Head {h00=0x0010, h01=0x0050, text=»ANC100 EQU *«, t00=0x0048, t01=0x0046}
0x70be…70d6               Head {h00=0x0014, h01=0x0050, text=» IFT IN:DL=1  =3«, t00=0x0048, t01=0x005a}
0x70d6…7100               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0048, t01=0x0072}
0x7100…711a               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC120 NO!!«, t00=0x0048, t01=0x009c}
0x711a…714e               Head {h00=0x0030, h01=0x0050, text=» LCR A1,A7 GET CHARACTER AT CURSOR POSITION «, t00=0x0048, t01=0x00b6}
0x714e…7162               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/7F «, t00=0x0048, t01=0x00ea}
0x7162…717e               Head {h00=0x0018, h01=0x0050, text=» CWK A1,NULL NULL?? «, t00=0x0048, t01=0x00fe}
0x717e…719a               Head {h00=0x0018, h01=0x0050, text=» RF(NE) INS:10 NO!! «, t00=0x0048, t01=0x011a}
0x719a…71c2               Head {h00=0x0024, h01=0x0050, text=» SCR A4,A7 STORE INPUT CHARACTER«, t00=0x0048, t01=0x0136}
0x71c2…71d4               Head {h00=0x000e, h01=0x0050, text=» XIF   =3 «, t00=0x0048, t01=0x015e}
0x71d4…71e8               Head {h00=0x0010, h01=0x0050, text=»ANC120 EQU *«, t00=0x0048, t01=0x0170}
0x71e8…71f0               Head {h00=0x0004, h01=0x0050, t00=0x0048, t01=0x0184}
0x71f0…7226               Head {h00=0x0032, h01=0x0050, text=» LDK A5,/2B CURSOR NOT MOVED BEFORE DISPLAYING«, t00=0x0048, t01=0x018c}
0x7226…724a               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBVDU+ECBBA,CREBAS  «, t00=0x0049, t01=0x0032}
0x724a…7262               Head {h00=0x0014, h01=0x0050, text=» SC A5,1,A1  =1 «, t00=0x0049, t01=0x0056}
0x7262…7276               Head {h00=0x0010, h01=0x0050, text=» LDK A5,/1E «, t00=0x0049, t01=0x006e}
0x7276…7290               Head {h00=0x0016, h01=0x0050, text=» ADK A1,2 NEXT POS«, t00=0x0049, t01=0x0082}
0x7290…72bc               Head {h00=0x0028, h01=0x0050, text=» SCR A5,A1 LOW INT, STORE IN BUFFER «, t00=0x0049, t01=0x009c}
0x72bc…72ce               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A3«, t00=0x0049, t01=0x00c8}
0x72ce…72f6               Head {h00=0x0024, h01=0x0050, text=» ANK A3,/4 STANDARD DISPLAYING? «, t00=0x0049, t01=0x00da}
0x72f6…7310               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC200 YES «, t00=0x0049, t01=0x0102}
0x7310…733a               Head {h00=0x0026, h01=0x0050, text=» ANK A6,/2 INTENSIFIED DISPLAYING?«, t00=0x0049, t01=0x011c}
0x733a…7354               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC150 YES «, t00=0x0049, t01=0x0146}
0x7354…7372               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD SPACE«, t00=0x0049, t01=0x0160}
0x7372…7394               Head {h00=0x001e, h01=0x0050, text=» RF ANC250 NON DISPLAYING «, t00=0x0049, t01=0x017e}
0x7394…73c0               Head {h00=0x0028, h01=0x0050, text=»ANC150 LDK A5,/1F SET HIGH INTENSITY«, t00=0x004a, t01=0x0010}
0x73c0…73e2               Head {h00=0x001e, h01=0x0050, text=» SCR A5,A1 STORE IN BUFFER«, t00=0x004a, t01=0x003c}
0x73e2…740e               Head {h00=0x0028, h01=0x0050, text=»ANC200 LDR A2,A4 UPDATE A2 WITH CHAR«, t00=0x004a, t01=0x005e}
0x740e…7442               Head {h00=0x0030, h01=0x0050, text=»ANC250 CF A14,WCHAR DISPLAY CHAR AND CURSOR «, t00=0x004a, t01=0x008a}
0x7442…746c               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x004a, t01=0x00be}
0x746c…747e               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x004a, t01=0x00e8}
0x747e…7492               Head {h00=0x0010, h01=0x0050, text=»ANC252 EQU *«, t00=0x004a, t01=0x00fa}
0x7492…74a8               Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x004a, t01=0x010e}
0x74a8…74be               Head {h00=0x0012, h01=0x0050, text=» RF(NE) ANC255«, t00=0x004a, t01=0x0124}
0x74be…74d0               Head {h00=0x000e, h01=0x0050, text=» LDKL A2,0«, t00=0x004a, t01=0x013a}
0x74d0…74e4               Head {h00=0x0010, h01=0x0050, text=»ANC255 EQU *«, t00=0x004a, t01=0x014c}
0x74e4…7500               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x004a, t01=0x0160}
0x7500…7526               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x004a, t01=0x017c}
0x7526…754a               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x004b, t01=0x0012}
0x754a…7562               Head {h00=0x0014, h01=0x0050, text=» RF(G) ANC300 NO«, t00=0x004b, t01=0x0036}
0x7562…756a               Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x004e}
0x756a…7596               Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB SKIP TO NEXT UNPROTECTED«, t00=0x004b, t01=0x0056}
0x7596…75aa               Head {h00=0x0010, h01=0x0050, text=»ANC300 EQU *«, t00=0x004b, t01=0x0082}
0x75aa…75ce               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBCW,A8 CONTROL WORD«, t00=0x004b, t01=0x0096}
0x75ce…75f2               Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' LINE POSITION «, t00=0x004b, t01=0x00ba}
0x75f2…761e               Head {h00=0x0028, h01=0x0050, text=» SUK A1,80 LAST POSITION ON LINE ?? «, t00=0x004b, t01=0x00de}
0x761e…763a               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ANC350 NO!!!«, t00=0x004b, t01=0x010a}
0x763a…7678               Head {h00=0x003a, h01=0x0050, text=» CF A14,SETCUR POSITION CURSOR TO 1:ST POS. NEXT LINE «, t00=0x004b, t01=0x0126}
0x7678…768c               Head {h00=0x0010, h01=0x0050, text=»ANC350 EQU *«, t00=0x004b, t01=0x0164}
0x768c…769c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004b, t01=0x0178}
0x769c…76b0               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x004b, t01=0x0188}
0x76b0…76ba               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x004c, t01=0x000c}
0x76ba…76c2               Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x0016}
0x76c2…76fe               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x004c, t01=0x001e}
0x76fe…7708               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x005a}
0x7708…7748               Head {h00=0x003c, h01=0x0050, text=»*   DELETE CHARACTER AT CURSOR POSITION. SHIFT CARACTERS«, t00=0x004c, t01=0x0064}
0x7748…777a               Head {h00=0x002e, h01=0x0050, text=»*   AT SAME LINE ONE POSITION TO THE LEFT «, t00=0x004c, t01=0x00a4}
0x777a…7784               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00d6}
0x7784…77c8               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x004c, t01=0x00e0}
0x77c8…77d0               Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x0124}
0x77d0…77e4               Head {h00=0x0010, h01=0x0050, text=»DELETE EQU *«, t00=0x004c, t01=0x012c}
0x77e4…77f8               Head {h00=0x0010, h01=0x0050, text=» LDKL A6,-1 «, t00=0x004c, t01=0x0140}
0x77f8…7822               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS CURSOR ADDRESS«, t00=0x004c, t01=0x0154}
0x7822…784e               Head {h00=0x0028, h01=0x0050, text=»DEL:10 ADK A6,80 END OF LINE POINTER«, t00=0x004c, t01=0x017e}
0x784e…7880               Head {h00=0x002e, h01=0x0050, text=» CWR A6,A2 LAST POSITION ON CURRENT LINE??«, t00=0x004d, t01=0x001a}
0x7880…78a8               Head {h00=0x0024, h01=0x0050, text=» RB(L) DEL:10 NO!! TRY NEXT LINE«, t00=0x004d, t01=0x004c}
0x78a8…78b0               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x0074}
0x78b0…78de               Head {h00=0x002a, h01=0x0050, text=» CF A14,S:ATT SEARCH ATTRIBUTE FORWARD«, t00=0x004d, t01=0x007c}
0x78de…7902               Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 ATTRIBUTE FOUND ??«, t00=0x004d, t01=0x00aa}
0x7902…791c               Head {h00=0x0016, h01=0x0050, text=» RF(Z) DEL:20 NO!!«, t00=0x004d, t01=0x00ce}
0x791c…794e               Head {h00=0x002e, h01=0x0050, text=» CWR A2,A6 ATTRIBUTE AFTER END OF LINE ?? «, t00=0x004d, t01=0x00e8}
0x794e…796a               Head {h00=0x0018, h01=0x0050, text=» RF(G) DEL:20 YES!! «, t00=0x004d, t01=0x011a}
0x796a…798a               Head {h00=0x001c, h01=0x0050, text=» SUK A2,1 SKIP ATTRIBUTE«, t00=0x004d, t01=0x0136}
0x798a…799c               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A2«, t00=0x004d, t01=0x0156}
0x799c…79b4               Head {h00=0x0014, h01=0x0050, text=»DEL:20 LDR A2,A6«, t00=0x004d, t01=0x0168}
0x79b4…79bc               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x0180}
0x79bc…79c4               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x0188}
0x79c4…79d8               Head {h00=0x0010, h01=0x0050, text=» LDK A1,BVDU«, t00=0x004d, t01=0x0190}
0x79d8…7a06               Head {h00=0x002a, h01=0x0050, text=» ADR A1,TCABAS ABSOLUTE BUFFER ADDRESS«, t00=0x004e, t01=0x0014}
0x7a06…7a2a               Head {h00=0x0020, h01=0x0050, text=» ADR A2,A1 END OF FIELD/LINE«, t00=0x004e, t01=0x0042}
0x7a2a…7a56               Head {h00=0x0028, h01=0x0050, text=» AD A1,PCURS,TCABAS CURSOR POSITION «, t00=0x004e, t01=0x0066}
0x7a56…7a5e               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x0092}
0x7a5e…7a90               Head {h00=0x002e, h01=0x0050, text=»DEL:30 CWR A2,A1 ALL CHARACTERS SHIFTED ??«, t00=0x004e, t01=0x009a}
0x7a90…7aac               Head {h00=0x0018, h01=0x0050, text=» RF(E) DEL:40 YES!! «, t00=0x004e, t01=0x00cc}
0x7aac…7ace               Head {h00=0x001e, h01=0x0050, text=» LC A3,1,A1 GET CHARACTER «, t00=0x004e, t01=0x00e8}
0x7ace…7af2               Head {h00=0x0020, h01=0x0050, text=» ORK A3,/80 SET MODIFIED BIT«, t00=0x004e, t01=0x010a}
0x7af2…7b20               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A1 SHIFT CHARACTER 1 POS. LEFT«, t00=0x004e, t01=0x012e}
0x7b20…7b32               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x004e, t01=0x015c}
0x7b32…7b58               Head {h00=0x0022, h01=0x0050, text=» RB DEL:30 GET NEXT CHARACTER «, t00=0x004e, t01=0x016e}
0x7b58…7b60 (79, 0, 400)  Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x0004}
0x7b60…7b68               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x000c}
0x7b68…7b96               Head {h00=0x002a, h01=0x0050, text=»DEL:40 LDK A3,NULL+/80 NULL CHARACTER «, t00=0x004f, t01=0x0014}
0x7b96…7bc4               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A2 STORE AT END OF FIELD/LINE «, t00=0x004f, t01=0x0042}
0x7bc4…7bea               Head {h00=0x0022, h01=0x0050, text=» LD A3,ATTRIB,TCABAS ATTRIBUTE«, t00=0x004f, t01=0x0070}
0x7bea…7c12               Head {h00=0x0024, h01=0x0050, text=» ORK A3,1 SET MODIFIED FIELD BIT«, t00=0x004f, t01=0x0096}
0x7c12…7c1a               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x00be}
0x7c1a…7c50               Head {h00=0x0032, h01=0x0050, text=» LD A1,CURATT,TCABAS CURRENT ATTRIBUTE ADDRESS«, t00=0x004f, t01=0x00c6}
0x7c50…7c7e               Head {h00=0x002a, h01=0x0050, text=» CWK A1,LBVDU+1 UNFORMATTED SCREEN ???«, t00=0x004f, t01=0x00fc}
0x7c7e…7c9a               Head {h00=0x0018, h01=0x0050, text=» RF(E) INS:60 YES!!!«, t00=0x004f, t01=0x012a}
0x7c9a…7cb0               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,BVDU «, t00=0x004f, t01=0x0146}
0x7cb0…7ce2               Head {h00=0x002e, h01=0x0050, text=» ADR A1,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x004f, t01=0x015c}
0x7ce2…7d08               Head {h00=0x0022, h01=0x0050, text=» SCR A3,A1 SAVE NEW ATTRIBUTE «, t00=0x004f, t01=0x018e}
0x7d08…7d32               Head {h00=0x0026, h01=0x0050, text=» RF INS:60 DISPLAY MODIFIED FIELD «, t00=0x0050, t01=0x0024}
0x7d32…7d3c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0050, t01=0x004e}
0x7d3c…7d44               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x0058}
0x7d44…7d8a               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0050, t01=0x0060}
0x7d8a…7d94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00a6}
0x7d94…7dd8               Head {h00=0x0040, h01=0x0050, text=»*   INSERT CHARACTER AT CURSOR POSITION. SHIFT CHARACTERS IN«, t00=0x0050, t01=0x00b0}
0x7dd8…7e18               Head {h00=0x003c, h01=0x0050, text=»*   SAME FIELD , EXCEPT NULLS, ONE POSITION TO THE RIGHT«, t00=0x0050, t01=0x00f4}
0x7e18…7e22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0134}
0x7e22…7e5e               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0050, t01=0x013e}
0x7e5e…7e66               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x017a}
0x7e66…7e7a               Head {h00=0x0010, h01=0x0050, text=»INSERT EQU *«, t00=0x0050, t01=0x0182}
0x7e7a…7ea2               Head {h00=0x0024, h01=0x0050, text=» IM MODE,TCABAS SET INSERT MODE «, t00=0x0051, t01=0x0008}
0x7ea2…7ed4               Head {h00=0x002e, h01=0x0050, text=» CF A14,LIOLON TURN ON "INSERT MODE" LAMP «, t00=0x0051, t01=0x0030}
0x7ed4…7ee4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0051, t01=0x0062}
0x7ee4…7eec               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x0072}
0x7eec…7ef4               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x007a}
0x7ef4…7f0e               Head {h00=0x0016, h01=0x0050, text=»INS:10 LDR A6,A7  «, t00=0x0051, t01=0x0082}
0x7f0e…7f22               Head {h00=0x0010, h01=0x0050, text=» LDR A9,A4  «, t00=0x0051, t01=0x009c}
0x7f22…7f4e               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN??«, t00=0x0051, t01=0x00b0}
0x7f4e…7f6a               Head {h00=0x0018, h01=0x0050, text=» RF(NE) INS:20 NO!! «, t00=0x0051, t01=0x00dc}
0x7f6a…7f82               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x0051, t01=0x00f8}
0x7f82…7f94               Head {h00=0x000e, h01=0x0050, text=» RF INS:30«, t00=0x0051, t01=0x0110}
0x7f94…7f9c               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x0122}
0x7f9c…7fa4               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x012a}
0x7fa4…7fd8               Head {h00=0x0030, h01=0x0050, text=»INS:20 CF A14,S:ATT SEARCH ATTRIBUTE FORWARD«, t00=0x0051, t01=0x0132}
0x7fd8…7fe0               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x0166}
0x7fe0…7fe8               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x016e}
0x7fe8…800c               Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 ATTRIBUTE FOUND ??«, t00=0x0051, t01=0x0176}
0x800c…8026               Head {h00=0x0016, h01=0x0050, text=» RF(Z) INS:30 NO!!«, t00=0x0052, t01=0x000a}
0x8026…8038               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0052, t01=0x0024}
0x8038…8040               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x0036}
0x8040…805c               Head {h00=0x0018, h01=0x0050, text=»INS:30 ADR A2,TCABAS«, t00=0x0052, t01=0x003e}
0x805c…8096               Head {h00=0x0036, h01=0x0050, text=» ADK A2,BVDU ADD BUFFER DISPLACEMENT IN WORK-BLOCK«, t00=0x0052, t01=0x005a}
0x8096…80c8               Head {h00=0x002e, h01=0x0050, text=» CF A14,S:NULL SEARCH FIRST NULL CHARACTER«, t00=0x0052, t01=0x0094}
0x80c8…80fa               Head {h00=0x002e, h01=0x0050, text=»INS:40 CWR A2,A6 ALL CHARACTERS SHIFTED ??«, t00=0x0052, t01=0x00c6}
0x80fa…8116               Head {h00=0x0018, h01=0x0050, text=» RF(E) INS:50 YES!! «, t00=0x0052, t01=0x00f8}
0x8116…8138               Head {h00=0x001e, h01=0x0050, text=» LC A3,-1,A2 GET CHARACTER«, t00=0x0052, t01=0x0114}
0x8138…815c               Head {h00=0x0020, h01=0x0050, text=» ORK A3,/80 SET MODIFIED BIT«, t00=0x0052, t01=0x0136}
0x815c…818a               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A2 SHIFT CHAR ONE POS TO RIGHT«, t00=0x0052, t01=0x015a}
0x818a…819c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0052, t01=0x0188}
0x819c…81c2               Head {h00=0x0022, h01=0x0050, text=» RB INS:40 GET NEXT CHARACTER «, t00=0x0053, t01=0x000a}
0x81c2…81ca               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0030}
0x81ca…81d2               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0038}
0x81d2…81fe               Head {h00=0x0028, h01=0x0050, text=»INS:50 ORKL A9,/80 SET MODIFIED BIT «, t00=0x0053, t01=0x0040}
0x81fe…8230               Head {h00=0x002e, h01=0x0050, text=» SCR A9,A6 SAVE INPUT CHARACTER IN BUFFER «, t00=0x0053, t01=0x006c}
0x8230…8262               Head {h00=0x002e, h01=0x0050, text=» IM PCURS,TCABAS INCREMENT CURSOR POSITION«, t00=0x0053, t01=0x009e}
0x8262…8276               Head {h00=0x0010, h01=0x0050, text=»INS:60 EQU *«, t00=0x0053, t01=0x00d0}
0x8276…82a4               Head {h00=0x002a, h01=0x0050, text=» CF A14,DISPL DISPLAY MODIFIED FIELDS «, t00=0x0053, t01=0x00e4}
0x82a4…82d0               Head {h00=0x0028, h01=0x0050, text=» LD A2,PCURS,TCABAS CURSOR POSITION «, t00=0x0053, t01=0x0112}
0x82d0…82e2               Head {h00=0x000e, h01=0x0050, text=» RB ANC252«, t00=0x0053, t01=0x013e}
0x82e2…82ee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x0150}
0x82ee…82f8               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0053, t01=0x015c}
0x82f8…8300               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0166}
0x8300…8342               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0053, t01=0x016e}
0x8342…834c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0020}
0x834c…8384               Head {h00=0x0034, h01=0x0050, text=»*   SEARCH FIRST NULL CHARACTER AFTER CURSOR POS«, t00=0x0054, t01=0x002a}
0x8384…838e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0062}
0x838e…83cc               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0054, t01=0x006c}
0x83cc…83d4               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x00aa}
0x83d4…83e8               Head {h00=0x0010, h01=0x0050, text=»S:NULL EQU *«, t00=0x0054, t01=0x00b2}
0x83e8…83fa               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0054, t01=0x00c6}
0x83fa…8402               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x00d8}
0x8402…841a               Head {h00=0x0014, h01=0x0050, text=»S:NU10 CWR A1,A2«, t00=0x0054, t01=0x00e0}
0x841a…8430               Head {h00=0x0012, h01=0x0050, text=» RF(E) S:NU30 «, t00=0x0054, t01=0x00f8}
0x8430…8450               Head {h00=0x001c, h01=0x0050, text=» LCR A3,A1 GET CHARACTER«, t00=0x0054, t01=0x010e}
0x8450…847a               Head {h00=0x0026, h01=0x0050, text=» ANK A3,/7F MASK AWAY MODIFIED BIT«, t00=0x0054, t01=0x012e}
0x847a…849e               Head {h00=0x0020, h01=0x0050, text=» CWK A3,NULL NULL CHARACTER «, t00=0x0054, t01=0x0158}
0x849e…84ba               Head {h00=0x0018, h01=0x0050, text=» RF(E) S:NU20 YES!! «, t00=0x0054, t01=0x017c}
0x84ba…84cc               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0055, t01=0x0008}
0x84cc…84fa               Head {h00=0x002a, h01=0x0050, text=» RB S:NU10 CHECK NEXT BUFFER CHARACTER«, t00=0x0055, t01=0x001a}
0x84fa…8502               Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0048}
0x8502…8530               Head {h00=0x002a, h01=0x0050, text=»S:NU20 LDR A2,A1 ADDRESS OF FIRST NULL«, t00=0x0055, t01=0x0050}
0x8530…8546               Head {h00=0x0012, h01=0x0050, text=»S:NU30 RTN A14«, t00=0x0055, t01=0x007e}
0x8546…8550               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0055, t01=0x0094}
0x8550…855a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x009e}
0x855a…859c               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0055, t01=0x00a8}
0x859c…85a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00ea}
0x85a6…85b6               Head {h00=0x000c, h01=0x0050, text=»* CANCEL«, t00=0x0055, t01=0x00f4}
0x85b6…85c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0104}
0x85c0…85fe               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0055, t01=0x010e}
0x85fe…8626               Head {h00=0x0024, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER «, t00=0x0055, t01=0x014c}
0x8626…8630               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0174}
0x8630…8672               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0055, t01=0x017e}
0x8672…867c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0030}
0x867c…8690               Head {h00=0x0010, h01=0x0050, text=»CANCEL EQU *«, t00=0x0056, t01=0x003a}
0x8690…86a2               Head {h00=0x000e, h01=0x0050, text=»PA2 EQU * «, t00=0x0056, t01=0x004e}
0x86a2…86c0               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/2E CANCEL POS«, t00=0x0056, t01=0x0060}
0x86c0…86d4               Head {h00=0x0010, h01=0x0050, text=»CAN100 EQU *«, t00=0x0056, t01=0x007e}
0x86d4…86fc               Head {h00=0x0024, h01=0x0050, text=» LC A2,TASCII,A2 GET ASCII CODE «, t00=0x0056, t01=0x0092}
0x86fc…8710               Head {h00=0x0010, h01=0x0050, text=»CAN200 EQU *«, t00=0x0056, t01=0x00ba}
0x8710…8742               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x0056, t01=0x00ce}
0x8742…876e               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0056, t01=0x0100}
0x876e…877e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0056, t01=0x012c}
0x877e…8788               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x013c}
0x8788…8790               Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0146}
0x8790…87a2               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0056, t01=0x014e}
0x87a2…87aa               Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0160}
0x87aa…87b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0168}
0x87b4…87be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0172}
0x87be…8808               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM ATTENTION KEY IS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x0056, t01=0x017c}
0x8808…8846               Head {h00=0x003a, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PA1.CANCEL OR PA3 «, t00=0x0057, t01=0x0036}
0x8846…8850               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0074}
0x8850…885a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x007e}
0x885a…886c               Head {h00=0x000e, h01=0x0050, text=»PAEX EQU *«, t00=0x0057, t01=0x0088}
0x886c…8882               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PAEXA«, t00=0x0057, t01=0x009a}
0x8882…889e               Head {h00=0x0018, h01=0x0050, text=» ST A1,RDMORE,TCABAS«, t00=0x0057, t01=0x00b0}
0x889e…88ae               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0057, t01=0x00cc}
0x88ae…88c2               Head {h00=0x0010, h01=0x0050, text=»PAEXA EQU * «, t00=0x0057, t01=0x00dc}
0x88c2…88dc               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x0057, t01=0x00f0}
0x88dc…8900               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CHECK IF NUM.1-3«, t00=0x0057, t01=0x010a}
0x8900…8922               Head {h00=0x001e, h01=0x0050, text=» RF(L) PFERR ILLEGAL CHAR.«, t00=0x0057, t01=0x012e}
0x8922…8946               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/2 CHECK IF NUM.1-3 «, t00=0x0057, t01=0x0150}
0x8946…8966               Head {h00=0x001c, h01=0x0050, text=» RF(G) PAEXB PA 4-9? DK1«, t00=0x0057, t01=0x0174}
0x8966…8978 (88, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» RF(Z) PA3«, t00=0x0058, t01=0x0004}
0x8978…898a               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0058, t01=0x0016}
0x898a…899c               Head {h00=0x000e, h01=0x0050, text=» RB(Z) PA2«, t00=0x0058, t01=0x0028}
0x899c…89ac               Head {h00=0x000c, h01=0x0050, text=» RF PA1 «, t00=0x0058, t01=0x003a}
0x89ac…89d6               Head {h00=0x0026, h01=0x0050, text=» RTN A14 RETURN TO MAIN READ LOOP «, t00=0x0058, t01=0x004a}
0x89d6…89de               Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0074}
0x89de…89ea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x007c}
0x89ea…89f4               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0058, t01=0x0088}
0x89f4…89fc               Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0092}
0x89fc…8a06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x009a}
0x8a06…8a30               Head {h00=0x0026, h01=0x0050, text=»*    PA1    PROGRAM ATTENTION KEY «, t00=0x0058, t01=0x00a4}
0x8a30…8a3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00ce}
0x8a3a…8a44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00d8}
0x8a44…8a56               Head {h00=0x000e, h01=0x0050, text=»PA1 EQU * «, t00=0x0058, t01=0x00e2}
0x8a56…8a72               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2C PA1 POS «, t00=0x0058, t01=0x00f4}
0x8a72…8a84               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x0058, t01=0x0110}
0x8a84…8a8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0122}
0x8a8e…8a98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x012c}
0x8a98…8ac0               Head {h00=0x0024, h01=0x0050, text=»*    PA3   PROGRAM ATTENTION KEY«, t00=0x0058, t01=0x0136}
0x8ac0…8aca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x015e}
0x8aca…8ad4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0168}
0x8ad4…8ae6               Head {h00=0x000e, h01=0x0050, text=»PA3 EQU * «, t00=0x0058, t01=0x0172}
0x8ae6…8b02               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2B PA3 POS «, t00=0x0058, t01=0x0184}
0x8b02…8b14               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x0059, t01=0x0010}
0x8b14…8b1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0022}
0x8b1e…8b3e               Head {h00=0x001c, h01=0x0050, text=»* PA4 - PA10 (ALFASKOP) «, t00=0x0059, t01=0x002c}
0x8b3e…8b56               Head {h00=0x0014, h01=0x0050, text=»PAEXB EQU *  DK1«, t00=0x0059, t01=0x004c}
0x8b56…8b6e               Head {h00=0x0014, h01=0x0050, text=» SUK A2,/6  DK1 «, t00=0x0059, t01=0x0064}
0x8b6e…8b88               Head {h00=0x0016, h01=0x0050, text=» RF(G) PFERR  DK1 «, t00=0x0059, t01=0x007c}
0x8b88…8baa               Head {h00=0x001e, h01=0x0050, text=» ADK A2,/69 SET PA 4-9 DK1«, t00=0x0059, t01=0x0096}
0x8baa…8bc2               Head {h00=0x0014, h01=0x0050, text=» RB CAN200  DK1 «, t00=0x0059, t01=0x00b8}
0x8bc2…8bcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00d0}
0x8bcc…8be0               Head {h00=0x0010, h01=0x0050, text=»PA410 EQU * «, t00=0x0059, t01=0x00da}
0x8be0…8bf4               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x0059, t01=0x00ee}
0x8bf4…8c06               Head {h00=0x000e, h01=0x0050, text=» RB CAN200«, t00=0x0059, t01=0x0102}
0x8c06…8c10               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0059, t01=0x0114}
0x8c10…8c1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x011e}
0x8c1a…8c5a               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0059, t01=0x0128}
0x8c5a…8c64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0168}
0x8c64…8c74               Head {h00=0x000c, h01=0x0050, text=»* ENTER «, t00=0x0059, t01=0x0172}
0x8c74…8c7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0182}
0x8c7e…8cba               Head {h00=0x0038, h01=0x0050, text=»* PROGRAM FUNCTION KEY WHICH CAUSES AN I/O OPERATION«, t00=0x0059, t01=0x018c}
0x8cba…8cfa               Head {h00=0x003c, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER FOLLOWED BY AN SBA ORDER«, t00=0x005a, t01=0x0038}
0x8cfa…8d36               Head {h00=0x0038, h01=0x0050, text=»* ATTRIBUTE ADDRESS AND TEXT FOR EACH MODIFIED FIELD«, t00=0x005a, t01=0x0078}
0x8d36…8d54               Head {h00=0x001a, h01=0x0050, text=»* NULLS ARE SUPRESSED «, t00=0x005a, t01=0x00b4}
0x8d54…8d5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00d2}
0x8d5e…8da0               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x005a, t01=0x00dc}
0x8da0…8daa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x011e}
0x8daa…8dbe               Head {h00=0x0010, h01=0x0050, text=»ENTER EQU * «, t00=0x005a, t01=0x0128}
0x8dbe…8ddc               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/3D ENTER POS «, t00=0x005a, t01=0x013c}
0x8ddc…8df0               Head {h00=0x0010, h01=0x0050, text=»ENT100 EQU *«, t00=0x005a, t01=0x015a}
0x8df0…8e1a               Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x005a, t01=0x016e}
0x8e1a…8e4c               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x005b, t01=0x0008}
0x8e4c…8e7e               Head {h00=0x002e, h01=0x0050, text=» CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT «, t00=0x005b, t01=0x003a}
0x8e7e…8e92               Head {h00=0x0010, h01=0x0050, text=»ENT200 EQU *«, t00=0x005b, t01=0x006c}
0x8e92…8ea2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005b, t01=0x0080}
0x8ea2…8eac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0090}
0x8eac…8eb4               Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x009a}
0x8eb4…8ec6               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x005b, t01=0x00a2}
0x8ec6…8ece               Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x00b4}
0x8ece…8ed8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00bc}
0x8ed8…8ee2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00c6}
0x8ee2…8f2c               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM FUNCTION KEY IOS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x005b, t01=0x00d0}
0x8f2c…8f60               Head {h00=0x0030, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PF1-PF12«, t00=0x005b, t01=0x011a}
0x8f60…8f6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x014e}
0x8f6a…8f74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0158}
0x8f74…8f86               Head {h00=0x000e, h01=0x0050, text=»PFEX EQU *«, t00=0x005b, t01=0x0162}
0x8f86…8f9c               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PFEXA«, t00=0x005b, t01=0x0174}
0x8f9c…8fae               Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x005b, t01=0x018a}
0x8fae…8fc2               Head {h00=0x0010, h01=0x0050, text=»PFEXA EQU * «, t00=0x005c, t01=0x000c}
0x8fc2…8fdc               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005c, t01=0x0020}
0x8fdc…8ffc               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL CHAR ?«, t00=0x005c, t01=0x003a}
0x8ffc…902c               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING «, t00=0x005c, t01=0x005a}
0x902c…9056               Head {h00=0x0026, h01=0x0050, text=» RF(Z) PF0 FIRST NUM. 0 GO TO PF0 «, t00=0x005c, t01=0x008a}
0x9056…9078               Head {h00=0x001e, h01=0x0050, text=» SUK A2,/1 FIRST NUM. 1 ? «, t00=0x005c, t01=0x00b4}
0x9078…909a               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL NUM. «, t00=0x005c, t01=0x00d6}
0x909a…90b0               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PF1A «, t00=0x005c, t01=0x00f8}
0x90b0…90c2               Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x005c, t01=0x010e}
0x90c2…90d4               Head {h00=0x000e, h01=0x0050, text=»PF1A EQU *«, t00=0x005c, t01=0x0120}
0x90d4…90ee               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005c, t01=0x0132}
0x90ee…910e               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL NUM.? «, t00=0x005c, t01=0x014c}
0x910e…913e               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005c, t01=0x016c}
0x913e…915c               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/2 LEGAL NUM ?«, t00=0x005d, t01=0x000c}
0x915c…918c               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005d, t01=0x002a}
0x918c…91ac               Head {h00=0x001c, h01=0x0050, text=» ADK A2,/3C PF10-12 POS «, t00=0x005d, t01=0x005a}
0x91ac…91be               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x005d, t01=0x007a}
0x91be…91c6               Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x008c}
0x91c6…91d8               Head {h00=0x000e, h01=0x0050, text=»PF0 EQU * «, t00=0x005d, t01=0x0094}
0x91d8…91ee               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PF0A «, t00=0x005d, t01=0x00a6}
0x91ee…9202               Head {h00=0x0010, h01=0x0050, text=»PFNXT EQU * «, t00=0x005d, t01=0x00bc}
0x9202…921e               Head {h00=0x0018, h01=0x0050, text=» ST A1,RDMORE,TCABAS«, t00=0x005d, t01=0x00d0}
0x921e…922e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005d, t01=0x00ec}
0x922e…9240               Head {h00=0x000e, h01=0x0050, text=»PF0A EQU *«, t00=0x005d, t01=0x00fc}
0x9240…925a               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005d, t01=0x010e}
0x925a…927a               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/31 LEGAL NUM ? «, t00=0x005d, t01=0x0128}
0x927a…92aa               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005d, t01=0x0148}
0x92aa…92c8               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/8 LEGAL NUM ?«, t00=0x005d, t01=0x0178}
0x92c8…92f8               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005e, t01=0x0008}
0x92f8…9316               Head {h00=0x001a, h01=0x0050, text=» ADK A2,/39 PF1-9 POS «, t00=0x005e, t01=0x0038}
0x9316…9328               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x005e, t01=0x0056}
0x9328…9334               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x0068}
0x9334…9348               Head {h00=0x0010, h01=0x0050, text=»PFERR EQU * «, t00=0x005e, t01=0x0074}
0x9348…9376               Head {h00=0x002a, h01=0x0050, text=» CF A14,ERROR GO TO ERR-HANDLING RUTIN«, t00=0x005e, t01=0x0088}
0x9376…939e               Head {h00=0x0024, h01=0x0050, text=» RTN A14 GO TO MAIN READ MODULE «, t00=0x005e, t01=0x00b6}
0x939e…93a6               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x00de}
0x93a6…93ae               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x00e6}
0x93ae…93be               Head {h00=0x000c, h01=0x0050, text=»PF EQU *«, t00=0x005e, t01=0x00ee}
0x93be…93d2               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/5C «, t00=0x005e, t01=0x00fe}
0x93d2…93e4               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x005e, t01=0x0112}
0x93e4…93f8               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x005e, t01=0x0124}
0x93f8…9402               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x005e, t01=0x0138}
0x9402…9446               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005e, t01=0x0142}
0x9446…9450               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0186}
0x9450…9460               Head {h00=0x000c, h01=0x0050, text=»* OFLINE«, t00=0x005e, t01=0x0190}
0x9460…94a0               Head {h00=0x003c, h01=0x0050, text=»*            THE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND «, t00=0x005f, t01=0x0010}
0x94a0…94dc               Head {h00=0x0038, h01=0x0050, text=»*           A BRANCH IS MADE BACK TO CREDIT PROGRAM «, t00=0x005f, t01=0x0050}
0x94dc…94e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x008c}
0x94e6…952c               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x005f, t01=0x0096}
0x952c…9540               Head {h00=0x0010, h01=0x0050, text=»OFLINE EQU *«, t00=0x005f, t01=0x00dc}
0x9540…9556               Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x005f, t01=0x00f0}
0x9556…956a               Head {h00=0x0010, h01=0x0050, text=»OFLI05 EQU *«, t00=0x005f, t01=0x0106}
0x956a…9580               Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x005f, t01=0x011a}
0x9580…9594               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x005f, t01=0x0130}
0x9594…95ae               Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x005f, t01=0x0144}
0x95ae…95c0               Head {h00=0x000e, h01=0x0050, text=» XRK A7,1 «, t00=0x005f, t01=0x015e}
0x95c0…95da               Head {h00=0x0016, h01=0x0050, text=» ST A7,MAIN,TCABAS«, t00=0x005f, t01=0x0170}
0x95da…960e               Head {h00=0x0030, h01=0x0050, text=» CF A14,DCABOR ABORT REQUEST NOT CURRENT MF «, t00=0x005f, t01=0x018a}
0x960e…961a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x002e}
0x961a…962e               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0060, t01=0x003a}
0x962e…9668               Head {h00=0x0036, h01=0x0050, text=» LDK A1,0 DV ADDRESS ::= 0MESSAGES TO VDU IGNORED «, t00=0x0060, t01=0x004e}
0x9668…9686               Head {h00=0x001a, h01=0x0050, text=» LDKL A8,ECBDC MF # 1 «, t00=0x0060, t01=0x0088}
0x9686…96b0               Head {h00=0x0026, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETERS «, t00=0x0060, t01=0x00a6}
0x96b0…96c4               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0060, t01=0x00d0}
0x96c4…96e2               Head {h00=0x001a, h01=0x0050, text=» LDKL A8,ECBDC2 MF # 2«, t00=0x0060, t01=0x00e4}
0x96e2…970c               Head {h00=0x0026, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETERS «, t00=0x0060, t01=0x0102}
0x970c…9718               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x012c}
0x9718…972c               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0060, t01=0x0138}
0x972c…9742               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1OF«, t00=0x0060, t01=0x014c}
0x9742…9758               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2OF«, t00=0x0060, t01=0x0162}
0x9758…976e               Head {h00=0x0012, h01=0x0050, text=» CF A14,LSAVOF«, t00=0x0060, t01=0x0178}
0x976e…979a               Head {h00=0x0028, h01=0x0050, text=» CF A14,LIOLON TURN ON OFFLINE LAMP «, t00=0x0060, t01=0x018e}
0x979a…97c4               Head {h00=0x0026, h01=0x0050, text=» IM OFFFLG,TCABAS SET OFFLINE FLAG«, t00=0x0061, t01=0x002a}
0x97c4…97ec               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 SKIP ONE STACK LEVEL«, t00=0x0061, t01=0x0054}
0x97ec…981a               Head {h00=0x002a, h01=0x0050, text=» LD A13,2,A14 RELOAD REGISTERS A12-A13«, t00=0x0061, t01=0x007c}
0x981a…9830               Head {h00=0x0012, h01=0x0050, text=» LD A12,4,A14 «, t00=0x0061, t01=0x00aa}
0x9830…9858               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0061, t01=0x00c0}
0x9858…9886               Head {h00=0x002a, h01=0x0050, text=» ABL I:RT1 RETURN TO "OFFLINE" PROGRAM«, t00=0x0061, t01=0x00e8}
0x9886…988e               Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0116}
0x988e…989a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x011e}
0x989a…98ae               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0061, t01=0x012a}
0x98ae…98b8               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0061, t01=0x013e}
0x98b8…98fc               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0061, t01=0x0148}
0x98fc…9906               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x018c}
0x9906…9920               Head {h00=0x0016, h01=0x0050, text=»* MAINFRAME CHANGE«, t00=0x0062, t01=0x0008}
0x9920…996c               Head {h00=0x0048, h01=0x0050, text=»*   THE SWITCH 'MAIN' IS CHANGED, AND THE APPROPRIATE 'SYSTEM' LAMP «, t00=0x0062, t01=0x0022}
0x996c…998a               Head {h00=0x001a, h01=0x0050, text=»*       IS TTURNED ON «, t00=0x0062, t01=0x006e}
0x998a…9994               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x008c}
0x9994…99e2               Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0062, t01=0x0096}
0x99e2…99ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00e4}
0x99ec…9a00               Head {h00=0x0010, h01=0x0050, text=»MFCHGE EQU *«, t00=0x0062, t01=0x00ee}
0x9a00…9a16               Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0062, t01=0x0102}
0x9a16…9a2a               Head {h00=0x0010, h01=0x0050, text=»MFCH05 EQU *«, t00=0x0062, t01=0x0118}
0x9a2a…9a40               Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0062, t01=0x012c}
0x9a40…9a56               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1OF«, t00=0x0062, t01=0x0142}
0x9a56…9a6c               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2OF«, t00=0x0062, t01=0x0158}
0x9a6c…9a82               Head {h00=0x0012, h01=0x0050, text=» CF A14,LSAVOF«, t00=0x0062, t01=0x016e}
0x9a82…9a9c               Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x0062, t01=0x0184}
0x9a9c…9aae               Head {h00=0x000e, h01=0x0050, text=» XRK A1,1 «, t00=0x0063, t01=0x000e}
0x9aae…9ac4               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MFCH10«, t00=0x0063, t01=0x0020}
0x9ac4…9ada               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1ON«, t00=0x0063, t01=0x0036}
0x9ada…9aec               Head {h00=0x000e, h01=0x0050, text=» RF MFCH90«, t00=0x0063, t01=0x004c}
0x9aec…9b00               Head {h00=0x0010, h01=0x0050, text=»MFCH10 EQU *«, t00=0x0063, t01=0x005e}
0x9b00…9b16               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2ON«, t00=0x0063, t01=0x0072}
0x9b16…9b2a               Head {h00=0x0010, h01=0x0050, text=»MFCH90 EQU *«, t00=0x0063, t01=0x0088}
0x9b2a…9b44               Head {h00=0x0016, h01=0x0050, text=» ST A1,MAIN,TCABAS«, t00=0x0063, t01=0x009c}
0x9b44…9b54               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0063, t01=0x00b6}
0x9b54…9b60               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x00c6}
0x9b60…9b6a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0063, t01=0x00d2}
0x9b6a…9b74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00dc}
0x9b74…9bb4               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0063, t01=0x00e6}
0x9bb4…9bbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0126}
0x9bbe…9bce               Head {h00=0x000c, h01=0x0050, text=»* CLEAR «, t00=0x0063, t01=0x0130}
0x9bce…9bd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0140}
0x9bd8…9c16               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0063, t01=0x014a}
0x9c16…9c52               Head {h00=0x0038, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER. THE ENTIRE DISPLAY «, t00=0x0063, t01=0x0188}
0x9c52…9c90               Head {h00=0x003a, h01=0x0050, text=»* BUFFER IS CLEARED TO NULLS AND CURSOR IS LOCATED IN «, t00=0x0064, t01=0x0034}
0x9c90…9ca2               Head {h00=0x000e, h01=0x0050, text=»* HOME POS«, t00=0x0064, t01=0x0072}
0x9ca2…9cac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0084}
0x9cac…9cec               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0064, t01=0x008e}
0x9cec…9cf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00ce}
0x9cf6…9d0a               Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x0064, t01=0x00d8}
0x9d0a…9d2e               Head {h00=0x0020, h01=0x0050, text=» LDK A2,/2D POS FOR 'CLEAR' «, t00=0x0064, t01=0x00ec}
0x9d2e…9d46               Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x0064, t01=0x0110}
0x9d46…9d78               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x0064, t01=0x0128}
0x9d78…9da4               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0064, t01=0x015a}
0x9da4…9dce               Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x0064, t01=0x0186}
0x9dce…9dde               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0065, t01=0x0020}
0x9dde…9de8               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0065, t01=0x0030}
0x9de8…9df2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x003a}
0x9df2…9e36               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0065, t01=0x0044}
0x9e36…9e40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0088}
0x9e40…9e50               Head {h00=0x000c, h01=0x0050, text=»* EREOF «, t00=0x0065, t01=0x0092}
0x9e50…9e5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00a2}
0x9e5a…9e7a               Head {h00=0x001c, h01=0x0050, text=»* ERASE TO END OF FIELD «, t00=0x0065, t01=0x00ac}
0x9e7a…9e84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00cc}
0x9e84…9ec8               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0065, t01=0x00d6}
0x9ec8…9ed2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x011a}
0x9ed2…9ee6               Head {h00=0x0010, h01=0x0050, text=»EREOF EQU * «, t00=0x0065, t01=0x0124}
0x9ee6…9ef8               Head {h00=0x000e, h01=0x0050, text=» LDK A6,1 «, t00=0x0065, t01=0x0138}
0x9ef8…9f22               Head {h00=0x0026, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE«, t00=0x0065, t01=0x014a}
0x9f22…9f42               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/10 UNPROTECTED?«, t00=0x0065, t01=0x0174}
0x9f42…9f5c (102, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE100 YES «, t00=0x0066, t01=0x0004}
0x9f5c…9f6e               Head {h00=0x000e, h01=0x0050, text=» ABL ERROR«, t00=0x0066, t01=0x001e}
0x9f6e…9f90               Head {h00=0x001e, h01=0x0050, text=»ERE100 LD A2,PCURS,TCABAS «, t00=0x0066, t01=0x0030}
0x9f90…9f98               Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x0052}
0x9f98…9fc4               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0066, t01=0x005a}
0x9fc4…9fcc               Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x0086}
0x9fcc…a002               Head {h00=0x0032, h01=0x0050, text=» CW A2,CURATT,TCABAS STANDING ON ATTRIBUTE ?? «, t00=0x0066, t01=0x008e}
0xa002…a030               Head {h00=0x002a, h01=0x0050, text=» ABL(E) ERROR YES!! TURN ON ERROR LAMP«, t00=0x0066, t01=0x00c4}
0xa030…a038               Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x00f2}
0xa038…a064               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0066, t01=0x00fa}
0xa064…a06c               Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x0126}
0xa06c…a098               Head {h00=0x0028, h01=0x0050, text=»ERE150 CF A14,GBUFFC GET BUFF. CHAR «, t00=0x0066, t01=0x012e}
0xa098…a0ba               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR«, t00=0x0066, t01=0x015a}
0xa0ba…a0d2               Head {h00=0x0014, h01=0x0050, text=» RF(G) ERE200 NO«, t00=0x0066, t01=0x017c}
0xa0d2…a0ea (103, 0, 398) Head {h00=0x0014, h01=0x0050, text=»ERE160 LDR A1,A2«, t00=0x0067, t01=0x0004}
0xa0ea…a106               Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0067, t01=0x001c}
0xa106…a11a               Head {h00=0x0010, h01=0x0050, text=»ERE170 EQU *«, t00=0x0067, t01=0x0038}
0xa11a…a130               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0067, t01=0x004c}
0xa130…a146               Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0067, t01=0x0062}
0xa146…a158               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0067, t01=0x0078}
0xa158…a18c               Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE AND REPLASE WITH NULLS «, t00=0x0067, t01=0x008a}
0xa18c…a1b8               Head {h00=0x0028, h01=0x0050, text=» CF A14,DISPL DISPLAY ERASED SCREEN «, t00=0x0067, t01=0x00be}
0xa1b8…a1c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00ea}
0xa1c2…a1ee               Head {h00=0x0028, h01=0x0050, text=»*   SET MDT BIT IF FORMATTED SCREEN «, t00=0x0067, t01=0x00f4}
0xa1ee…a1f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0120}
0xa1f8…a200               Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x012a}
0xa200…a21c               Head {h00=0x0018, h01=0x0050, text=» LD A2,CURATT,TCABAS«, t00=0x0067, t01=0x0132}
0xa21c…a234               Head {h00=0x0014, h01=0x0050, text=» CWK A2,LBVDU+1 «, t00=0x0067, t01=0x014e}
0xa234…a25c               Head {h00=0x0024, h01=0x0050, text=» RF(E) ERE180 UNFORMATTED SCREEN«, t00=0x0067, t01=0x0166}
0xa25c…a264               Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x018e}
0xa264…a278               Head {h00=0x0010, h01=0x0050, text=» ADK A2,BVDU«, t00=0x0068, t01=0x0008}
0xa278…a2aa               Head {h00=0x002e, h01=0x0050, text=» ADR A2,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x0068, t01=0x001c}
0xa2aa…a2ca               Head {h00=0x001c, h01=0x0050, text=» LCR A1,A2 GET ATTRIBUTE«, t00=0x0068, t01=0x004e}
0xa2ca…a2e8               Head {h00=0x001a, h01=0x0050, text=» ORK A1,1 SET MDT BIT «, t00=0x0068, t01=0x006e}
0xa2e8…a2fa               Head {h00=0x000e, h01=0x0050, text=» SCR A1,A2«, t00=0x0068, t01=0x008c}
0xa2fa…a30e               Head {h00=0x0010, h01=0x0050, text=»ERE180 EQU *«, t00=0x0068, t01=0x009e}
0xa30e…a31e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0068, t01=0x00b2}
0xa31e…a34a               Head {h00=0x0028, h01=0x0050, text=»ERE200 CWK A2,LBVDU-1 END OF BUFFER?«, t00=0x0068, t01=0x00c2}
0xa34a…a364               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE300 YES «, t00=0x0068, t01=0x00ee}
0xa364…a376               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0068, t01=0x0108}
0xa376…a38e               Head {h00=0x0014, h01=0x0050, text=» RB ERE150 NEXT «, t00=0x0068, t01=0x011a}
0xa38e…a3bc               Head {h00=0x002a, h01=0x0050, text=»ERE300 SUK A6,1 WHOLW BUFF CONTROLED? «, t00=0x0068, t01=0x0132}
0xa3bc…a3d2               Head {h00=0x0012, h01=0x0050, text=» RB(N) ERE160 «, t00=0x0068, t01=0x0160}
0xa3d2…a3f0               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND.«, t00=0x0068, t01=0x0176}
0xa3f0…a402 (105, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB ERE150«, t00=0x0069, t01=0x0004}
0xa402…a40c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0069, t01=0x0016}
0xa40c…a416               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0020}
0xa416…a456               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0069, t01=0x002a}
0xa456…a460               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x006a}
0xa460…a470               Head {h00=0x000c, h01=0x0050, text=»* ERINPT«, t00=0x0069, t01=0x0074}
0xa470…a47a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0084}
0xa47a…a4b8               Head {h00=0x003a, h01=0x0050, text=»* CLEARS ALL UNPROTECTED CHARACTER LOCATIONS TO NULLS «, t00=0x0069, t01=0x008e}
0xa4b8…a4f6               Head {h00=0x003a, h01=0x0050, text=»* AND REPOSITIONS THE CURSOR TO THE FIRST UNPROTECTED «, t00=0x0069, t01=0x00cc}
0xa4f6…a51c               Head {h00=0x0022, h01=0x0050, text=»* CHAR LOCATION ON THE SCREEN «, t00=0x0069, t01=0x010a}
0xa51c…a526               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0130}
0xa526…a566               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0069, t01=0x013a}
0xa566…a570               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x017a}
0xa570…a584               Head {h00=0x0010, h01=0x0050, text=»ERINPT EQU *«, t00=0x0069, t01=0x0184}
0xa584…a5b0               Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x006a, t01=0x0008}
0xa5b0…a5c6               Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x006a, t01=0x0034}
0xa5c6…a5e2               Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x006a, t01=0x004a}
0xa5e2…a5f8               Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x006a, t01=0x0066}
0xa5f8…a63a               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006a, t01=0x007c}
0xa63a…a64c               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006a, t01=0x00be}
0xa64c…a674               Head {h00=0x0024, h01=0x0050, text=» RF(Z) ERI:10 NO ATTRIBUTE FOUND«, t00=0x006a, t01=0x00d0}
0xa674…a6a8               Head {h00=0x0030, h01=0x0050, text=» RF(N) ERI:5 ATTRIBUTE NOT IN LAST POSITION «, t00=0x006a, t01=0x00f8}
0xa6a8…a6d6               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,-1 ATTRIBUTE IN LAST POSITION«, t00=0x006a, t01=0x012c}
0xa6d6…a6ea               Head {h00=0x0010, h01=0x0050, text=»ERI:5 EQU * «, t00=0x006a, t01=0x015a}
0xa6ea…a72c               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006a, t01=0x016e}
0xa72c…a73e               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x006b, t01=0x0020}
0xa73e…a746               Head {h00=0x0004, h01=0x0050, t00=0x006b, t01=0x0032}
0xa746…a75a               Head {h00=0x0010, h01=0x0050, text=»ERI:10 EQU *«, t00=0x006b, t01=0x003a}
0xa75a…a776               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x006b, t01=0x004e}
0xa776…a786               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006b, t01=0x006a}
0xa786…a790               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x006b, t01=0x007a}
0xa790…a79a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0084}
0xa79a…a7de               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006b, t01=0x008e}
0xa7de…a7e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00d2}
0xa7e8…a7f8               Head {h00=0x000c, h01=0x0050, text=»* ERROR «, t00=0x006b, t01=0x00dc}
0xa7f8…a802               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00ec}
0xa802…a834               Head {h00=0x002e, h01=0x0050, text=»* THE MODULE TAKES CARE OF UNALLOWED KEYS «, t00=0x006b, t01=0x00f6}
0xa834…a83e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0128}
0xa83e…a882               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x006b, t01=0x0132}
0xa882…a88c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0176}
0xa88c…a8a0               Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x006b, t01=0x0180}
0xa8a0…a8cc (108, 0, 400) Head {h00=0x0028, h01=0x0050, text=» CF A14,LERRON TURN ON 'ERROR' LAMP «, t00=0x006c, t01=0x0004}
0xa8cc…a8e8               Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x006c, t01=0x0030}
0xa8e8…a920               Head {h00=0x0034, h01=0x0050, text=» ORK A5,4 BIT 13:=1,ERROR HANDLING.RESET ALLOWED«, t00=0x006c, t01=0x004c}
0xa920…a93c               Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x006c, t01=0x0084}
0xa93c…a944               Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x00a0}
0xa944…a94e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00a8}
0xa94e…a96e               Head {h00=0x001c, h01=0x0050, text=»*   TURN ON SOUND ALARM «, t00=0x006c, t01=0x00b2}
0xa96e…a978               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00d2}
0xa978…a980               Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x00dc}
0xa980…a998               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x006c, t01=0x00e4}
0xa998…a9be               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS VDU-ECB ADDRESS«, t00=0x006c, t01=0x00fc}
0xa9be…a9e4               Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBBA,A8 BUFFER ADDRESS«, t00=0x006c, t01=0x0122}
0xa9e4…aa0c               Head {h00=0x0024, h01=0x0050, text=» LDK A7,X'2B' CONTROL CHARACTER «, t00=0x006c, t01=0x0148}
0xaa0c…aa20               Head {h00=0x0010, h01=0x0050, text=» SC A7,1,A2 «, t00=0x006c, t01=0x0170}
0xaa20…aa44               Head {h00=0x0020, h01=0x0050, text=» LDK A7,X'07' BELL CHARACTER«, t00=0x006c, t01=0x0184}
0xaa44…aa58               Head {h00=0x0010, h01=0x0050, text=» SC A7,2,A2 «, t00=0x006d, t01=0x0018}
0xaa58…aa7a               Head {h00=0x001e, h01=0x0050, text=» LDK A7,3 REQUESTED LENGTH«, t00=0x006d, t01=0x002c}
0xaa7a…aa92               Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x006d, t01=0x004e}
0xaa92…aab4               Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' SOUND ALARM «, t00=0x006d, t01=0x0066}
0xaab4…aac0               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x006d, t01=0x0088}
0xaac0…aad0               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x006d, t01=0x0094}
0xaad0…aad8               Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x00a4}
0xaad8…aae8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006d, t01=0x00ac}
0xaae8…aafe               Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x006d, t01=0x00bc}
0xaafe…ab08               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x006d, t01=0x00d2}
0xab08…ab52               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x006d, t01=0x00dc}
0xab52…ab5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0126}
0xab5c…ab88               Head {h00=0x0028, h01=0x0050, text=»*   KEY LOCK STATUS IS SET IN 'KEYS'«, t00=0x006d, t01=0x0130}
0xab88…abb8               Head {h00=0x002c, h01=0x0050, text=»* ON ENTRY  A2 = KEY LOCK VALUE /70-/77 «, t00=0x006d, t01=0x015c}
0xabb8…abc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x018c}
0xabc2…ac0c               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x006e, t01=0x0008}
0xac0c…ac16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0052}
0xac16…ac28               Head {h00=0x000e, h01=0x0050, text=»KEYL EQU *«, t00=0x006e, t01=0x005c}
0xac28…ac52               Head {h00=0x0026, h01=0x0050, text=» SUK A2,/78 GET NEG KEY LOCK VALUE«, t00=0x006e, t01=0x006e}
0xac52…ac78               Head {h00=0x0022, h01=0x0050, text=» LD A3,KEYS,TCABAS OLD STATUS «, t00=0x006e, t01=0x0098}
0xac78…ac8c               Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x006e, t01=0x00be}
0xac8c…aca0               Head {h00=0x0010, h01=0x0050, text=»KEYL10 EQU *«, t00=0x006e, t01=0x00d2}
0xaca0…acb2               Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x006e, t01=0x00e6}
0xacb2…acd2               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 1 = OFF,0 = ON«, t00=0x006e, t01=0x00f8}
0xacd2…ace8               Head {h00=0x0012, h01=0x0050, text=» RB(N) KEYL10 «, t00=0x006e, t01=0x0118}
0xace8…ad0c               Head {h00=0x0020, h01=0x0050, text=» ANR A3,A4 CHECK OLD KEY POS«, t00=0x006e, t01=0x012e}
0xad0c…ad2a               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) KEYL20 WAS ON «, t00=0x006e, t01=0x0152}
0xad2a…ad44               Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 WAS OFF«, t00=0x006e, t01=0x0170}
0xad44…ad6e               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) KEYL99 NOW OFF, NO CHANGE «, t00=0x006e, t01=0x018a}
0xad6e…ad88               Head {h00=0x0016, h01=0x0050, text=» RF KEYL30 NOW ON «, t00=0x006f, t01=0x0024}
0xad88…ada4               Head {h00=0x0018, h01=0x0050, text=»KEYL20 EQU * WAS ON «, t00=0x006f, t01=0x003e}
0xada4…adb6               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x006f, t01=0x005a}
0xadb6…adde               Head {h00=0x0024, h01=0x0050, text=» RF(Z) KEYL99 NOW ON, NO CHANGE «, t00=0x006f, t01=0x006c}
0xadde…adfa               Head {h00=0x0018, h01=0x0050, text=»KEYL30 EQU *  CHANGE«, t00=0x006f, t01=0x0094}
0xadfa…ae14               Head {h00=0x0016, h01=0x0050, text=» LD A3,KEYS,TCABAS«, t00=0x006f, t01=0x00b0}
0xae14…ae34               Head {h00=0x001c, h01=0x0050, text=» XRR A3,A4 CHANGE STATUS«, t00=0x006f, t01=0x00ca}
0xae34…ae60               Head {h00=0x0028, h01=0x0050, text=» ST A3,KEYS,TCABAS STORE NEW STATUS «, t00=0x006f, t01=0x00ea}
0xae60…ae6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0116}
0xae6a…ae8a               Head {h00=0x001c, h01=0x0050, text=»* KEYLOCK STATUS CHANGED«, t00=0x006f, t01=0x0120}
0xae8a…aed8               Head {h00=0x004a, h01=0x0050, text=»*   A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON «, t00=0x006f, t01=0x0140}
0xaed8…af06               Head {h00=0x002a, h01=0x0050, text=»*   A4 = KEYLOCK CHANGED, LAYOUT AS A3«, t00=0x006f, t01=0x018e}
0xaf06…af32               Head {h00=0x0028, h01=0x0050, text=»*   A2 = 1, IF CHANGED TO OFF ELSE 0«, t00=0x0070, t01=0x002c}
0xaf32…af3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0058}
0xaf3c…af6a               Head {h00=0x002a, h01=0x0050, text=»* INSERT USER ROUTINE BELOW THIS LINE «, t00=0x0070, t01=0x0062}
0xaf6a…af74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0090}
0xaf74…af88               Head {h00=0x0010, h01=0x0050, text=»KEYL99 EQU *«, t00=0x0070, t01=0x009a}
0xaf88…af98               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0070, t01=0x00ae}
0xaf98…afa4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x00be}
0xafa4…afae               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0070, t01=0x00ca}
0xafae…afb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00d4}
0xafb8…aff8               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0070, t01=0x00de}
0xaff8…b002               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x011e}
0xb002…b016               Head {h00=0x0010, h01=0x0050, text=»* LAMPMODULE«, t00=0x0070, t01=0x0128}
0xb016…b020               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x013c}
0xb020…b02a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0146}
0xb02a…b06a               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0070, t01=0x0150}
0xb06a…b074               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0190}
0xb074…b088               Head {h00=0x0010, h01=0x0050, text=»LON EQU /B7 «, t00=0x0071, t01=0x000a}
0xb088…b09c               Head {h00=0x0010, h01=0x0050, text=»LOF EQU /B8 «, t00=0x0071, t01=0x001e}
0xb09c…b0b2               Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0071, t01=0x0032}
0xb0b2…b0c6               Head {h00=0x0010, h01=0x0050, text=»LMF1 EQU /20«, t00=0x0071, t01=0x0048}
0xb0c6…b0da               Head {h00=0x0010, h01=0x0050, text=»LMF2 EQU /10«, t00=0x0071, t01=0x005c}
0xb0da…b0ec               Head {h00=0x000e, h01=0x0050, text=»LIOL EQU 1«, t00=0x0071, t01=0x0070}
0xb0ec…b0fe               Head {h00=0x000e, h01=0x0050, text=»LINH EQU 8«, t00=0x0071, t01=0x0082}
0xb0fe…b110               Head {h00=0x000e, h01=0x0050, text=»LERR EQU 4«, t00=0x0071, t01=0x0094}
0xb110…b122               Head {h00=0x000e, h01=0x0050, text=»LSAV EQU 2«, t00=0x0071, t01=0x00a6}
0xb122…b12e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x00b8}
0xb12e…b144               Head {h00=0x0012, h01=0x0050, text=» IFF KB6272=1 «, t00=0x0071, t01=0x00c4}
0xb144…b15a               Head {h00=0x0012, h01=0x0050, text=»LMF1 EQU 0  =2«, t00=0x0071, t01=0x00da}
0xb15a…b170               Head {h00=0x0012, h01=0x0050, text=»LMF2 EQU 0  =2«, t00=0x0071, t01=0x00f0}
0xb170…b186               Head {h00=0x0012, h01=0x0050, text=»LIOL EQU 1  =2«, t00=0x0071, t01=0x0106}
0xb186…b19c               Head {h00=0x0012, h01=0x0050, text=»LINH EQU 2  =2«, t00=0x0071, t01=0x011c}
0xb19c…b1b2               Head {h00=0x0012, h01=0x0050, text=»LERR EQU 4  =2«, t00=0x0071, t01=0x0132}
0xb1b2…b1c8               Head {h00=0x0012, h01=0x0050, text=»LSAV EQU 8  =2«, t00=0x0071, t01=0x0148}
0xb1c8…b1d4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x015e}
0xb1d4…b1ee               Head {h00=0x0016, h01=0x0050, text=»LMF1ON LDK A3,LMF1«, t00=0x0071, t01=0x016a}
0xb1ee…b200               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0071, t01=0x0184}
0xb200…b21a               Head {h00=0x0016, h01=0x0050, text=»LMF1OF LDK A3,LMF1«, t00=0x0072, t01=0x0008}
0xb21a…b22c               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0072, t01=0x0022}
0xb22c…b246               Head {h00=0x0016, h01=0x0050, text=»LMF2ON LDK A3,LMF2«, t00=0x0072, t01=0x0034}
0xb246…b258               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0072, t01=0x004e}
0xb258…b272               Head {h00=0x0016, h01=0x0050, text=»LMF2OF LDK A3,LMF2«, t00=0x0072, t01=0x0060}
0xb272…b284               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0072, t01=0x007a}
0xb284…b29e               Head {h00=0x0016, h01=0x0050, text=»LIOLON LDK A3,LIOL«, t00=0x0072, t01=0x008c}
0xb29e…b2b0               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0072, t01=0x00a6}
0xb2b0…b2ca               Head {h00=0x0016, h01=0x0050, text=»LIOLOF LDK A3,LIOL«, t00=0x0072, t01=0x00b8}
0xb2ca…b2dc               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0072, t01=0x00d2}
0xb2dc…b2f6               Head {h00=0x0016, h01=0x0050, text=»LINHON LDK A3,LINH«, t00=0x0072, t01=0x00e4}
0xb2f6…b308               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0072, t01=0x00fe}
0xb308…b322               Head {h00=0x0016, h01=0x0050, text=»LINHOF LDK A3,LINH«, t00=0x0072, t01=0x0110}
0xb322…b334               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0072, t01=0x012a}
0xb334…b34e               Head {h00=0x0016, h01=0x0050, text=»LERRON LDK A3,LERR«, t00=0x0072, t01=0x013c}
0xb34e…b360               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0072, t01=0x0156}
0xb360…b37a               Head {h00=0x0016, h01=0x0050, text=»LERROF LDK A3,LERR«, t00=0x0072, t01=0x0168}
0xb37a…b38c               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0072, t01=0x0182}
0xb38c…b3a6 (115, 0, 400) Head {h00=0x0016, h01=0x0050, text=»LSAVON LDK A3,LSAV«, t00=0x0073, t01=0x0004}
0xb3a6…b3b8               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0073, t01=0x001e}
0xb3b8…b3d2               Head {h00=0x0016, h01=0x0050, text=»LSAVOF LDK A3,LSAV«, t00=0x0073, t01=0x0030}
0xb3d2…b3e4               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0073, t01=0x004a}
0xb3e4…b3ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x005c}
0xb3ee…b406               Head {h00=0x0014, h01=0x0050, text=»LMPON LDK A7,LON«, t00=0x0073, t01=0x0066}
0xb406…b418               Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0073, t01=0x007e}
0xb418…b430               Head {h00=0x0014, h01=0x0050, text=»LMPOF LDK A7,LOF«, t00=0x0073, t01=0x0090}
0xb430…b442               Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0073, t01=0x00a8}
0xb442…b44c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0073, t01=0x00ba}
0xb44c…b454               Head {h00=0x0004, h01=0x0050, t00=0x0073, t01=0x00c4}
0xb454…b45e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00cc}
0xb45e…b49e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0073, t01=0x00d6}
0xb49e…b4a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0116}
0xb4a8…b4b8               Head {h00=0x000c, h01=0x0050, text=»* SDISP «, t00=0x0073, t01=0x0120}
0xb4b8…b4c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0130}
0xb4c2…b4ea               Head {h00=0x0024, h01=0x0050, text=»* SIGNAL DISPLAY MONITOR REQUEST«, t00=0x0073, t01=0x013a}
0xb4ea…b4f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0162}
0xb4f4…b534               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0073, t01=0x016c}
0xb534…b53e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x001c}
0xb53e…b552               Head {h00=0x0010, h01=0x0050, text=»SDISP EQU * «, t00=0x0074, t01=0x0026}
0xb552…b568               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBSD«, t00=0x0074, t01=0x003a}
0xb568…b57e               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0074, t01=0x0050}
0xb57e…b596               Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBCW,A8 «, t00=0x0074, t01=0x0066}
0xb596…b5a2               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0074, t01=0x007e}
0xb5a2…b5b2               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0074, t01=0x008a}
0xb5b2…b5c2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0074, t01=0x009a}
0xb5c2…b5cc               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0074, t01=0x00aa}
0xb5cc…b5d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00b4}
0xb5d6…b616               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0074, t01=0x00be}
0xb616…b620               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00fe}
0xb620…b634               Head {h00=0x0010, h01=0x0050, text=»*     ATMASB«, t00=0x0074, t01=0x0108}
0xb634…b63e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x011c}
0xb63e…b67c               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR BACKWARDS AND MASK IT «, t00=0x0074, t01=0x0126}
0xb67c…b686               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0164}
0xb686…b6c6               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0074, t01=0x016e}
0xb6c6…b6d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x001e}
0xb6d0…b6f6               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x0075, t01=0x0028}
0xb6f6…b71e               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x0075, t01=0x004e}
0xb71e…b750               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     1=END OF BUFFER LEFT «, t00=0x0075, t01=0x0076}
0xb750…b77c               Head {h00=0x0028, h01=0x0050, text=»*      2= ATTRIBUTE IN LAST POSITION«, t00=0x0075, t01=0x00a8}
0xb77c…b786               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00d4}
0xb786…b79a               Head {h00=0x0010, h01=0x0050, text=»ATMASB EQU *«, t00=0x0075, t01=0x00de}
0xb79a…b7ac               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0075, t01=0x00f2}
0xb7ac…b7c0               Head {h00=0x0010, h01=0x0050, text=»ASB05 EQU * «, t00=0x0075, t01=0x0104}
0xb7c0…b7e6               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x0075, t01=0x0118}
0xb7e6…b808               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR. «, t00=0x0075, t01=0x013e}
0xb808…b820               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASB10 NO «, t00=0x0075, t01=0x0160}
0xb820…b842               Head {h00=0x001e, h01=0x0050, text=»ASB08 ST A3,ATTRIB,TCABAS «, t00=0x0075, t01=0x0178}
0xb842…b872               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x0076, t01=0x000a}
0xb872…b882               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0076, t01=0x003a}
0xb882…b8a6               Head {h00=0x0020, h01=0x0050, text=»ASB10 CWK A2,0 END OF BUFFER«, t00=0x0076, t01=0x004a}
0xb8a6…b8be               Head {h00=0x0014, h01=0x0050, text=» RF(E) ASB20 YES«, t00=0x0076, t01=0x006e}
0xb8be…b8d0               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0076, t01=0x0086}
0xb8d0…b8e6               Head {h00=0x0012, h01=0x0050, text=» RB ASB05 NEXT«, t00=0x0076, t01=0x0098}
0xb8e6…b8fa               Head {h00=0x0010, h01=0x0050, text=»ASB20 EQU * «, t00=0x0076, t01=0x00ae}
0xb8fa…b904               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0076, t01=0x00c2}
0xb904…b90c               Head {h00=0x0004, h01=0x0050, t00=0x0076, t01=0x00cc}
0xb90c…b946               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0076, t01=0x00d4}
0xb946…b96e               Head {h00=0x0024, h01=0x0050, text=» LDK A1,2 ATTRIBUTE IN LAST POS.«, t00=0x0076, t01=0x010e}
0xb96e…b998               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,1919 LAST BUFFER POSITION«, t00=0x0076, t01=0x0136}
0xb998…b9bc               Head {h00=0x0020, h01=0x0050, text=» CF A14,GBUFFC GET CHARACTER«, t00=0x0076, t01=0x0160}
0xb9bc…b9de               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE ??? «, t00=0x0076, t01=0x0184}
0xb9de…b9fa               Head {h00=0x0018, h01=0x0050, text=» RB(NG) ASB08 YES!!!«, t00=0x0077, t01=0x0016}
0xb9fa…ba1e               Head {h00=0x0020, h01=0x0050, text=» SUR A2,A2 FIRST SCREEN POS.«, t00=0x0077, t01=0x0032}
0xba1e…ba54               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0077, t01=0x0056}
0xba54…ba5c               Head {h00=0x0004, h01=0x0050, t00=0x0077, t01=0x008c}
0xba5c…ba7e               Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 END BUFFER LEFT «, t00=0x0077, t01=0x0094}
0xba7e…ba98               Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x0077, t01=0x00b6}
0xba98…bab0               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,LBVDU+1«, t00=0x0077, t01=0x00d0}
0xbab0…bae8               Head {h00=0x0034, h01=0x0050, text=» ST A7,CURATT,TCABAS POSSIBLY UNFORMATTED SCREEN«, t00=0x0077, t01=0x00e8}
0xbae8…baf8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0077, t01=0x0120}
0xbaf8…bb02               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0077, t01=0x0130}
0xbb02…bb0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x013a}
0xbb0c…bb4c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0077, t01=0x0144}
0xbb4c…bb56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0184}
0xbb56…bb6a               Head {h00=0x0010, h01=0x0050, text=»*     ATMASF«, t00=0x0077, t01=0x018e}
0xbb6a…bb74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0012}
0xbb74…bbb2               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR. FORWARDS AND MASK IT «, t00=0x0078, t01=0x001c}
0xbbb2…bbbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x005a}
0xbbbc…bbfe               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0078, t01=0x0064}
0xbbfe…bc08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00a6}
0xbc08…bc1e               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x0078, t01=0x00b0}
0xbc1e…bc44               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x0078, t01=0x00c6}
0xbc44…bc6c               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x0078, t01=0x00ec}
0xbc6c…bc9e               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     2=END OF BUFFER RIGHT«, t00=0x0078, t01=0x0114}
0xbc9e…bcc4               Head {h00=0x0022, h01=0x0050, text=»*   A3=ATTRIB IN LAST BUFF POS«, t00=0x0078, t01=0x0146}
0xbcc4…bcce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x016c}
0xbcce…bcd6               Head {h00=0x0004, h01=0x0050, t00=0x0078, t01=0x0176}
0xbcd6…bcde               Head {h00=0x0004, h01=0x0050, t00=0x0078, t01=0x017e}
0xbcde…bcf2               Head {h00=0x0010, h01=0x0050, text=»S:ATT EQU * «, t00=0x0078, t01=0x0186}
0xbcf2…bd0e               Head {h00=0x0018, h01=0x0050, text=» LD A7,ATTRIB,TCABAS«, t00=0x0079, t01=0x000a}
0xbd0e…bd2a               Head {h00=0x0018, h01=0x0050, text=» LD A8,CURATT,TCABAS«, t00=0x0079, t01=0x0026}
0xbd2a…bd5a               Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x0079, t01=0x0042}
0xbd5a…bd76               Head {h00=0x0018, h01=0x0050, text=» ST A7,ATTRIB,TCABAS«, t00=0x0079, t01=0x0072}
0xbd76…bd92               Head {h00=0x0018, h01=0x0050, text=» ST A8,CURATT,TCABAS«, t00=0x0079, t01=0x008e}
0xbd92…bda2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0079, t01=0x00aa}
0xbda2…bdaa               Head {h00=0x0004, h01=0x0050, t00=0x0079, t01=0x00ba}
0xbdaa…bdbe               Head {h00=0x0010, h01=0x0050, text=»ATMASF EQU *«, t00=0x0079, t01=0x00c2}
0xbdbe…bdd0               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0079, t01=0x00d6}
0xbdd0…bde4               Head {h00=0x0010, h01=0x0050, text=»ASF05 EQU * «, t00=0x0079, t01=0x00e8}
0xbde4…be0a               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x0079, t01=0x00fc}
0xbe0a…be2a               Head {h00=0x001c, h01=0x0050, text=» CWK A3,/1F ATTRIB CHAR?«, t00=0x0079, t01=0x0122}
0xbe2a…be42               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASF10 NO «, t00=0x0079, t01=0x0142}
0xbe42…be86               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0079, t01=0x015a}
0xbe86…beb6               Head {h00=0x002c, h01=0x0050, text=» CWK A2,LBVDU-1 EOB +ATTRIB IN LAST POS «, t00=0x007a, t01=0x000e}
0xbeb6…befa               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007a, t01=0x003e}
0xbefa…bf12               Head {h00=0x0014, h01=0x0050, text=» RF(NE) ASF08 NO«, t00=0x007a, t01=0x0082}
0xbf12…bf24               Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x007a, t01=0x009a}
0xbf24…bf46               Head {h00=0x001e, h01=0x0050, text=»ASF08 ST A3,ATTRIB,TCABAS «, t00=0x007a, t01=0x00ac}
0xbf46…bf76               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x007a, t01=0x00ce}
0xbf76…bf86               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007a, t01=0x00fe}
0xbf86…bfb2               Head {h00=0x0028, h01=0x0050, text=»ASF10 CWK A2,LBVDU-1 END OF BUFFER? «, t00=0x007a, t01=0x010e}
0xbfb2…bfca               Head {h00=0x0014, h01=0x0050, text=» RF(L) ASF20 NO «, t00=0x007a, t01=0x013a}
0xbfca…bfdc               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x007a, t01=0x0152}
0xbfdc…bfec               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007a, t01=0x0164}
0xbfec…c002               Head {h00=0x0012, h01=0x0050, text=»ASF20 ADK A2,1«, t00=0x007a, t01=0x0174}
0xc002…c014               Head {h00=0x000e, h01=0x0050, text=» RB ASF05 «, t00=0x007a, t01=0x018a}
0xc014…c01e               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x007b, t01=0x000c}
0xc01e…c028               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0016}
0xc028…c062               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x007b, t01=0x0020}
0xc062…c06c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x005a}
0xc06c…c07c               Head {h00=0x000c, h01=0x0050, text=»* GBUFFC«, t00=0x007b, t01=0x0064}
0xc07c…c086               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0074}
0xc086…c0c0               Head {h00=0x0036, h01=0x0050, text=»* GET VDU BUFFER CHAR WHICH IS INDICATED BY CURSOR«, t00=0x007b, t01=0x007e}
0xc0c0…c0ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00b8}
0xc0ca…c104               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x007b, t01=0x00c2}
0xc104…c10e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00fc}
0xc10e…c12e               Head {h00=0x001c, h01=0x0050, text=»* A2=CURSOR BINARY ADDR «, t00=0x007b, t01=0x0106}
0xc12e…c144               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x007b, t01=0x0126}
0xc144…c14e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x013c}
0xc14e…c158               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0146}
0xc158…c16c               Head {h00=0x0010, h01=0x0050, text=»GBUFFC EQU *«, t00=0x007b, t01=0x0150}
0xc16c…c17e               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x007b, t01=0x0164}
0xc17e…c194               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x007b, t01=0x0176}
0xc194…c1ba               Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS GET VDU BUFFER «, t00=0x007b, t01=0x018c}
0xc1ba…c1cc               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A2«, t00=0x007c, t01=0x0022}
0xc1cc…c1f6               Head {h00=0x0026, h01=0x0050, text=» LCR A3,A4 GET CHARACTER IN BUFF. «, t00=0x007c, t01=0x0034}
0xc1f6…c206               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007c, t01=0x005e}
0xc206…c210               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x007c, t01=0x006e}
0xc210…c21a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0078}
0xc21a…c25e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007c, t01=0x0082}
0xc25e…c268               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00c6}
0xc268…c278               Head {h00=0x000c, h01=0x0050, text=»* RESET «, t00=0x007c, t01=0x00d0}
0xc278…c282               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00e0}
0xc282…c2be               Head {h00=0x0038, h01=0x0050, text=»* RESET 'KEYBOARD INHIBIT' IN FOLLOWING SITUATIONS: «, t00=0x007c, t01=0x00ea}
0xc2be…c2fa               Head {h00=0x0038, h01=0x0050, text=»* 1- A DEVICE WITH AN ATTACHED KEYBOARD IS EXECUTING«, t00=0x007c, t01=0x0126}
0xc2fa…c322               Head {h00=0x0024, h01=0x0050, text=»*  A COMMAND. BIT 14=1 IN KBINH «, t00=0x007c, t01=0x0162}
0xc322…c358               Head {h00=0x0032, h01=0x0050, text=»* 2- A PA-KEY OPERATION IS IN PROCESS PRIOR TO«, t00=0x007c, t01=0x018a}
0xc358…c398               Head {h00=0x003c, h01=0x0050, text=»*  INITIATION OF A COMMAND FOR A DEVICE WITH AN ATTACHED«, t00=0x007d, t01=0x0030}
0xc398…c3be               Head {h00=0x0022, h01=0x0050, text=»*  KEYBOARD. BIT 14=1 IN KBINH«, t00=0x007d, t01=0x0070}
0xc3be…c3ec               Head {h00=0x002a, h01=0x0050, text=»* 3- ERRORSITUATION. BIT 14=1 IN KBINH«, t00=0x007d, t01=0x0096}
0xc3ec…c3f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00c4}
0xc3f6…c434               Head {h00=0x003a, h01=0x0050, text=»* IF BIT 15=1 IN KBINH => NO RESETTING ALLOWED DURING «, t00=0x007d, t01=0x00ce}
0xc434…c45c               Head {h00=0x0024, h01=0x0050, text=»* UPDATE AND DISPLAY SITUATION. «, t00=0x007d, t01=0x010c}
0xc45c…c466               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0134}
0xc466…c4aa               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x007d, t01=0x013e}
0xc4aa…c4b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0182}
0xc4b4…c4c8               Head {h00=0x0010, h01=0x0050, text=»RESET EQU * «, t00=0x007d, t01=0x018c}
0xc4c8…c4f2               Head {h00=0x0026, h01=0x0050, text=» CM MODE,TCABAS RESET INSERT MODE «, t00=0x007e, t01=0x0010}
0xc4f2…c520               Head {h00=0x002a, h01=0x0050, text=» CF A14,LIOLOF TURN OFF "INSERT" LAMP «, t00=0x007e, t01=0x003a}
0xc520…c54a               Head {h00=0x0026, h01=0x0050, text=» CM KBINH,TCABAS RESSTORE KEYBOARD«, t00=0x007e, t01=0x0068}
0xc54a…c576               Head {h00=0x0028, h01=0x0050, text=» CF A14,LERROF TURN OFF 'ERROR' LAMP«, t00=0x007e, t01=0x0092}
0xc576…c5ae               Head {h00=0x0034, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT' LAMP «, t00=0x007e, t01=0x00be}
0xc5ae…c5be               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007e, t01=0x00f6}
0xc5be…c5c8               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x007e, t01=0x0106}
0xc5c8…c5d0               Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x0110}
0xc5d0…c5d8               Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x0118}
0xc5d8…c620               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x007e, t01=0x0120}
0xc620…c62a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0168}
0xc62a…c662               Head {h00=0x0034, h01=0x0050, text=»*   C O P Y  :   COPY CONTENTS IN VDU BUFFER ON «, t00=0x007e, t01=0x0172}
0xc662…c68a               Head {h00=0x0024, h01=0x0050, text=»*                HARDCOPY DEVICE«, t00=0x007f, t01=0x001a}
0xc68a…c694               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0042}
0xc694…c6d8               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007f, t01=0x004c}
0xc6d8…c6e0               Head {h00=0x0004, h01=0x0050, t00=0x007f, t01=0x0090}
0xc6e0…c6f2               Head {h00=0x000e, h01=0x0050, text=»COPY EQU *«, t00=0x007f, t01=0x0098}
0xc6f2…c70e               Head {h00=0x0018, h01=0x0050, text=» LD A5,COPNO,TCABAS «, t00=0x007f, t01=0x00aa}
0xc70e…c724               Head {h00=0x0012, h01=0x0050, text=» ABL(Z) ERROR «, t00=0x007f, t01=0x00c6}
0xc724…c740               Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x007f, t01=0x00dc}
0xc740…c762               Head {h00=0x001e, h01=0x0050, text=» ADR A3,TCABAS   ADDRESSS «, t00=0x007f, t01=0x00f8}
0xc762…c784               Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x007f, t01=0x011a}
0xc784…c7b4               Head {h00=0x002c, h01=0x0050, text=» LDK A4,/8B ORDER = WRITE ADDRESSED WAIT«, t00=0x007f, t01=0x013c}
0xc7b4…c7be               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x007f, t01=0x016c}
0xc7be…c7c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0176}
0xc7c8…c7f0               Head {h00=0x0024, h01=0x0050, text=»* WRITE INTERTASK COMMUNICATION «, t00=0x007f, t01=0x0180}
0xc7f0…c7fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0018}
0xc7fa…c818               Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0080, t01=0x0022}
0xc818…c82c               Head {h00=0x0010, h01=0x0050, text=»* A4 = ORDER«, t00=0x0080, t01=0x0040}
0xc82c…c844               Head {h00=0x0014, h01=0x0050, text=»* A5 = "TO-TID" «, t00=0x0080, t01=0x0054}
0xc844…c85e               Head {h00=0x0016, h01=0x0050, text=»* A6 = REQ LENGTH «, t00=0x0080, t01=0x006c}
0xc85e…c868               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0086}
0xc868…c87c               Head {h00=0x0010, h01=0x0050, text=»ICWRTE EQU *«, t00=0x0080, t01=0x0090}
0xc87c…c894               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x0080, t01=0x00a4}
0xc894…c8aa               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0080, t01=0x00bc}
0xc8aa…c8be               Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0080, t01=0x00d2}
0xc8be…c8ec               Head {h00=0x002a, h01=0x0050, text=» CF A14,REQTIM NO TIME OUT SUPERVISION«, t00=0x0080, t01=0x00e6}
0xc8ec…c90e               Head {h00=0x001e, h01=0x0050, text=» ST A5,ECBCW,A8 TO TASK ID«, t00=0x0080, t01=0x0114}
0xc90e…c930               Head {h00=0x001e, h01=0x0050, text=» ST A6,ECBRL,A8 REQ LENGTH«, t00=0x0080, t01=0x0136}
0xc930…c948               Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0080, t01=0x0158}
0xc948…c960               Head {h00=0x0014, h01=0x0050, text=» LDR A7,A4 ORDER«, t00=0x0080, t01=0x0170}
0xc960…c96c               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0080, t01=0x0188}
0xc96c…c97c (129, 2, 52)  Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0081, t01=0x0004}
0xc97c…c98c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x0014}
0xc98c…c998               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0081, t01=0x0024}
0xc998…c99c               Head {h00=0x4004, h01=0x0000}
0xc99c…c9a0               00 81 00 30                                                                                                                                                                                                                                       ┆   0┆
0xc9a0…c9a8 (130, 1, 8)   20 04 00 00 00 82 00 04                                                                                                                                                                                                                           ┆        ┆
0xc9a8…c9f8 (131, 0, 400) 00 0c 00 50 46 4c 44 54 30 33 37 20 00 13 00 04 00 1e 00 50 20 43 4d 50 20 47 54 44 55 50 46 28 43 42 49 4e 33 29 2c 3d 44 27 34 36 27 20 00 13 00 14 00 16 00 50 20 42 45 20 46 4c 44 54 4f 4b 20 42 4b 4f 3d 34 36 20 00 13 00 36 00 1e 00 50   ┆   PFLDT037        P CMP GTDUPF(CBIN3),=D'46'        P BE FLDTOK BKO=46    6   P┆
0xc9f8…ca48               20 43 4d 50 20 47 54 44 55 50 46 28 43 42 49 4e 33 29 2c 3d 44 27 35 36 27 20 00 13 00 50 00 16 00 50 20 42 45 20 46 4c 44 54 4f 4b 20 42 4b 4f 3d 35 36 20 00 13 00 72 00 32 00 50 20 4d 4f 56 45 20 47 54 55 53 45 44 28 43 42 49 4e 31 35 29   ┆ CMP GTDUPF(CBIN3),=D'56'    P   P BE FLDTOK BKO=56    r 2 P MOVE GTUSED(CBIN15)┆
0xca48…ca98               2c 3d 57 27 34 38 27 20 53 45 54 20 46 49 45 4c 44 20 34 38 20 55 53 45 44 20 00 13 00 8c 00 30 00 50 20 4d 4f 56 45 20 47 54 44 55 50 46 28 43 42 49 4e 31 35 29 2c 3d 44 27 31 27 20 53 45 54 20 46 49 45 4c 44 20 34 38 20 3d 20 31 20 00 13   ┆,=W'48' SET FIELD 48 USED      0 P MOVE GTDUPF(CBIN15),=D'1' SET FIELD 48 = 1   ┆
0xca98…cae8               00 c2 00 0e 00 50 20 42 20 46 4c 44 54 4f 4b 20 00 13 00 f6 00 06 00 50 2a 20 00 13 01 08 00 0a 00 50 46 4c 44 54 30 34 00 13 01 12 00 32 00 50 20 20 20 20 20 20 20 20 20 54 42 54 20 20 20 20 20 42 43 50 52 2c 46 4c 44 54 30 34 31 20 20 20   ┆     P B FLDTOK        P*        PFLDT04     2 P         TBT     BCPR,FLDT041   ┆
0xcae8…cb38               20 20 20 20 20 20 20 20 20 20 20 43 49 52 00 13 01 20 00 1e 00 50 20 43 4d 50 20 47 54 55 53 45 44 28 43 42 49 4e 31 30 29 2c 3d 57 27 30 27 20 00 13 01 56 00 22 00 50 20 42 45 20 46 4c 44 54 4f 4b 20 46 49 45 4c 44 20 31 37 20 28 49 4e 44   ┆           CIR       P CMP GTUSED(CBIN10),=W'0'    V " P BE FLDTOK FIELD 17 (IND┆
0xcb38…cb88 (132, 0, 400) 45 58 20 31 30 29 00 13 01 78 00 1c 00 50 20 20 20 20 20 20 20 20 20 42 20 20 20 20 20 20 20 46 4c 44 54 4e 4f 4b 00 14 00 0e 00 32 00 50 46 4c 44 54 30 34 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EX 10)   x   P         B       FLDTNOK     2 PFLDT041                           ┆
0xcb88…cbd8               20 20 20 20 20 20 20 20 20 43 50 52 00 14 00 2e 00 44 00 50 20 20 20 20 20 20 20 20 20 50 45 52 46 20 20 20 20 46 4c 44 49 4e 2c 43 42 49 4e 31 31 2c 43 42 49 4e 31 32 2c 43 42 49 4e 31 33 2c 43 42 49 4e 30 20 46 49 45 4c 44 20 31 38 2c 31   ┆         CPR   . D P         PERF    FLDIN,CBIN11,CBIN12,CBIN13,CBIN0 FIELD 18,1┆
0xcbd8…cc28               39 2c 32 30 00 14 00 64 00 16 00 50 20 43 4d 50 20 47 53 57 42 49 4e 31 2c 3d 57 27 30 27 00 14 00 ac 00 10 00 50 20 42 4e 45 20 46 4c 44 54 4e 4f 4b 00 14 00 c6 00 1e 00 50 20 43 4d 50 20 47 54 55 53 45 44 28 43 42 49 4e 31 30 29 2c 3d 57   ┆9,20   d   P CMP GSWBIN1,=W'0'       P BNE FLDTNOK       P CMP GTUSED(CBIN10),=W┆
0xcc28…cc78               27 30 27 20 00 14 00 da 00 10 00 50 20 42 4e 45 20 46 4c 44 54 4f 4b 20 00 14 00 fc 00 1c 00 50 20 20 20 20 20 20 20 20 20 42 20 20 20 20 20 20 20 46 4c 44 54 4e 4f 4b 00 14 01 10 00 06 00 50 2a 20 00 14 01 30 00 0a 00 50 46 4c 44 54 30 38   ┆'0'        P BNE FLDTOK        P         B       FLDTNOK       P*    0   PFLDT08┆
0xcc78…ccc8               00 14 01 3a 00 10 00 50 20 54 45 53 54 20 43 46 4c 54 34 36 00 14 01 48 00 0e 00 50 20 42 5a 20 46 4c 44 54 4f 4b 00 14 01 5c 00 1e 00 50 20 43 4d 50 20 47 54 55 53 45 44 28 43 42 49 4e 31 37 29 2c 3d 57 27 30 27 20 00 14 01 6e 00 1e 00 50   ┆   :   P TEST CFLT46   H   P BZ FLDTOK       P CMP GTUSED(CBIN17),=W'0'    n   P┆

Reduced view