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

⟦1d0173d7d⟧

    Length: 52764 (0xce1c)
    Notes: pts_type(SC)
    Names: »START.SC«

Derivation

└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
    └─⟦this⟧ »OD-KOM/START.SC« 
└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
    └─⟦this⟧ »OD-KOM/START.SC« 

	IDENT START   	2.1DK 4 79-10-20 870150540210 

			=1, ODD BUFFER ADDRESS 
			REL 2.1 79-05-23 
			=2, 6234 LAMPS 
			REL 2.1 79-05-23 
			=3, UNDEFINED LABEL
			REL 2.1 79-05-23 
			=4, CURSOR STOPS AT LAST POS. EACH LINE
			REL 2.1 79-05-23 
			=5, RESET KEY FOR KB6235 
			REL 2.1 79-05-23 
************************************************************* 
* 
*   S T A R T  :  MODULE HANDLING KEYBOARD INPUT.KEYBOARD INITIATED 
*                 MESSAGES ADDRESSED TO THE MAIN FRAME ARE COMPOSED 
*                 AND SENT BY USING ROUTINES IN MODULE VDUPRT.
* 
**************************************************************************




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


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

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

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

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

	IFT	OFLIN=1


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

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


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

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

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

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


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


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


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

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


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

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

S:NULL	EQU	*
	LDR	A1,A6

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

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

	IFT	PAX=1

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

	XIF
	EJECT

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

	IFT	PFX=1

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

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


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

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

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

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

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

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

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

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

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

* 
*   TURN ON SOUND ALARM 
* 

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

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

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

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

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


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

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


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

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

0x0000…0036 (0, 0, 400)   Head {h00=0x0032, h01=0x0050, text=» IDENT START    2.1DK 4 79-10-20 870150540210 «, t00=0x0000, t01=0x0004}
0x0036…003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0060               Head {h00=0x001e, h01=0x0050, text=»   =1, ODD BUFFER ADDRESS «, t00=0x0000, t01=0x0042}
0x0060…007c               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0064}
0x007c…0096               Head {h00=0x0016, h01=0x0050, text=»   =2, 6234 LAMPS «, t00=0x0000, t01=0x0080}
0x0096…00b2               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x009a}
0x00b2…00d0               Head {h00=0x001a, h01=0x0050, text=»   =3, UNDEFINED LABEL«, t00=0x0000, t01=0x00b6}
0x00d0…00ec               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x00d4}
0x00ec…011e               Head {h00=0x002e, h01=0x0050, text=»   =4, CURSOR STOPS AT LAST POS. EACH LINE«, t00=0x0000, t01=0x00f0}
0x011e…013a               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0122}
0x013a…015e               Head {h00=0x0020, h01=0x0050, text=»   =5, RESET KEY FOR KB6235 «, t00=0x0000, t01=0x013e}
0x015e…017a               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0162}
0x017a…01c0               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0000, t01=0x017e}
0x01c0…01ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0034}
0x01ca…0216               Head {h00=0x0048, h01=0x0050, text=»*   S T A R T  :  MODULE HANDLING KEYBOARD INPUT.KEYBOARD INITIATED «, t00=0x0001, t01=0x003e}
0x0216…0262               Head {h00=0x0048, h01=0x0050, text=»*                 MESSAGES ADDRESSED TO THE MAIN FRAME ARE COMPOSED «, t00=0x0001, t01=0x008a}
0x0262…02a8               Head {h00=0x0042, h01=0x0050, text=»*                 AND SENT BY USING ROUTINES IN MODULE VDUPRT.«, t00=0x0001, t01=0x00d6}
0x02a8…02b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011c}
0x02b2…0304               Head {h00=0x004e, h01=0x0050, text=»**************************************************************************«, t00=0x0001, t01=0x0126}
0x0304…030c               Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0178}
0x030c…0314               Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0180}
0x0314…031c               Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0188}
0x031c…0324               Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0190}
0x0324…0332               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0008}
0x0332…033c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0016}
0x033c…0346               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0020}
0x0346…0360               Head {h00=0x0016, h01=0x0050, text=»* ENTRY PARAMETERS«, t00=0x0002, t01=0x002a}
0x0360…036a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0044}
0x036a…0374               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004e}
0x0374…037e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0058}
0x037e…03a2               Head {h00=0x0020, h01=0x0050, text=» ENTRY LINHON,LINHOF,ATMASB «, t00=0x0002, t01=0x0062}
0x03a2…03be               Head {h00=0x0018, h01=0x0050, text=» ENTRY LSAVOF,LSAVON«, t00=0x0002, t01=0x0086}
0x03be…03d2               Head {h00=0x0010, h01=0x0050, text=» ENTRY EMULA«, t00=0x0002, t01=0x00a2}
0x03d2…03fc               Head {h00=0x0026, h01=0x0050, text=» ENTRY LIOLON TURN ON OFFLINE LAMP«, t00=0x0002, t01=0x00b6}
0x03fc…0428               Head {h00=0x0028, h01=0x0050, text=» ENTRY LIOLOF TURN OFF OFFLINE LAMP «, t00=0x0002, t01=0x00e0}
0x0428…044c               Head {h00=0x0020, h01=0x0050, text=» ENTRY VDUKB KB3270 (CREDIT)«, t00=0x0002, t01=0x010c}
0x044c…0462               Head {h00=0x0012, h01=0x0050, text=» ENTRY DCTASK «, t00=0x0002, t01=0x0130}
0x0462…0478               Head {h00=0x0012, h01=0x0050, text=» ENTRY DC1INQ «, t00=0x0002, t01=0x0146}
0x0478…048e               Head {h00=0x0012, h01=0x0050, text=» ENTRY DC2INQ «, t00=0x0002, t01=0x015c}
0x048e…04b6               Head {h00=0x0024, h01=0x0050, text=» ENTRY REQTIM SET REQUEST TIMER «, t00=0x0002, t01=0x0172}
0x04b6…04cc               Head {h00=0x0012, h01=0x0050, text=» ENTRY ICWRTE «, t00=0x0003, t01=0x000a}
0x04cc…04d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0020}
0x04d6…04e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002a}
0x04e0…04ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0034}
0x04ea…050c               Head {h00=0x001e, h01=0x0050, text=»*     EXTERNAL REFERENSES «, t00=0x0003, t01=0x003e}
0x050c…0516               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0060}
0x0516…0520               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006a}
0x0520…052a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0074}
0x052a…053e               Head {h00=0x0010, h01=0x0050, text=» EXTRN DCINP«, t00=0x0003, t01=0x007e}
0x053e…0554               Head {h00=0x0012, h01=0x0050, text=» EXTRN DCGETM «, t00=0x0003, t01=0x0092}
0x0554…056a               Head {h00=0x0012, h01=0x0050, text=» EXTRN ICREAD «, t00=0x0003, t01=0x00a8}
0x056a…0580               Head {h00=0x0012, h01=0x0050, text=» EXTRN GTRBUF «, t00=0x0003, t01=0x00be}
0x0580…0596               Head {h00=0x0012, h01=0x0050, text=» EXTRN RLRBUF «, t00=0x0003, t01=0x00d4}
0x0596…05b2               Head {h00=0x0018, h01=0x0050, text=» EXTRN ERASE VDUPRT «, t00=0x0003, t01=0x00ea}
0x05b2…05c6               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPF «, t00=0x0003, t01=0x0106}
0x05c6…05dc               Head {h00=0x0012, h01=0x0050, text=» EXTRN SETCUR «, t00=0x0003, t01=0x011a}
0x05dc…05f0               Head {h00=0x0010, h01=0x0050, text=» EXTRN WCHAR«, t00=0x0003, t01=0x0130}
0x05f0…0604               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPA «, t00=0x0003, t01=0x0144}
0x0604…061a               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUA «, t00=0x0003, t01=0x0158}
0x061a…062e               Head {h00=0x0010, h01=0x0050, text=» EXTRN DISPL«, t00=0x0003, t01=0x016e}
0x062e…0644               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUP «, t00=0x0003, t01=0x0182}
0x0644…064e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0008}
0x064e…0682               Head {h00=0x0030, h01=0x0050, text=» EXTRN KEYCNV KEY CONVERSION IF NOT PTS 6272«, t00=0x0004, t01=0x0012}
0x0682…0698               Head {h00=0x0012, h01=0x0050, text=» EXTRN TASCII «, t00=0x0004, t01=0x0046}
0x0698…06a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x005c}
0x06a2…06d2               Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0004, t01=0x0066}
0x06d2…06fc               Head {h00=0x0026, h01=0x0050, text=» EXTRN I:RT1 RETURN TO CREDIT CODE«, t00=0x0004, t01=0x0096}
0x06fc…070a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00c0}
0x070a…0712               Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00ce}
0x0712…071a               Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00d6}
0x071a…075c               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0004, t01=0x00de}
0x075c…0766               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0120}
0x0766…0786               Head {h00=0x001c, h01=0x0050, text=»*   CONDITIONAL ASSEMBLY«, t00=0x0004, t01=0x012a}
0x0786…0790               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x014a}
0x0790…07ba               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0004, t01=0x0154}
0x07ba…07c2               Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x017e}
0x07c2…07cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0186}
0x07cc…0816               Head {h00=0x0046, h01=0x0050, text=»KB6272 EQU 0 IF PTS 6272 (6236) IS NOT USED YOU MUST USE 'KEYCNV' «, t00=0x0004, t01=0x0190}
0x0816…084a               Head {h00=0x0030, h01=0x0050, text=»   USE THE KEY CONVERSION TABLE IN 'TB3270' «, t00=0x0005, t01=0x004a}
0x084a…087e               Head {h00=0x0030, h01=0x0050, text=»KEYLST EQU 0 KEY LOCK STATUS SAVED IN 'KEYS'«, t00=0x0005, t01=0x007e}
0x087e…0892               Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 1 «, t00=0x0005, t01=0x00b2}
0x0892…08c4               Head {h00=0x002e, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1 OR 2)«, t00=0x0005, t01=0x00c6}
0x08c4…08d6               Head {h00=0x000e, h01=0x0050, text=»PFX EQU 1 «, t00=0x0005, t01=0x00f8}
0x08d6…08e8               Head {h00=0x000e, h01=0x0050, text=»PAX EQU 1 «, t00=0x0005, t01=0x010a}
0x08e8…0914               Head {h00=0x0028, h01=0x0050, text=»IN:DL EQU 1 INSERT&DELETE FUNCTIONS «, t00=0x0005, t01=0x011c}
0x0914…0950               Head {h00=0x0038, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 «, t00=0x0005, t01=0x0148}
0x0950…0974               Head {h00=0x0020, h01=0x0050, text=»COPL EQU 1 COPY LOCK IF := 1«, t00=0x0005, t01=0x0184}
0x0974…0982               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0018}
0x0982…098c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0026}
0x098c…0996               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0030}
0x0996…09ac               Head {h00=0x0012, h01=0x0050, text=»*     EQUATES «, t00=0x0006, t01=0x003a}
0x09ac…09b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0050}
0x09b6…09d4               Head {h00=0x001a, h01=0x0050, text=»RSET EQU /B2 RESET KEY«, t00=0x0006, t01=0x005a}
0x09d4…09fa               Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0006, t01=0x0078}
0x09fa…0a04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009e}
0x0a04…0a0c               Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00a8}
0x0a0c…0a20               Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0006, t01=0x00b0}
0x0a20…0a34               Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0006, t01=0x00c4}
0x0a34…0a48               Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0006, t01=0x00d8}
0x0a48…0a5c               Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0006, t01=0x00ec}
0x0a5c…0a70               Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0006, t01=0x0100}
0x0a70…0a7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0114}
0x0a7a…0a84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x011e}
0x0a84…0a9e               Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0006, t01=0x0128}
0x0a9e…0aa8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0142}
0x0aa8…0ab2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014c}
0x0ab2…0ace               Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0006, t01=0x0156}
0x0ace…0ad8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0172}
0x0ad8…0ae2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x017c}
0x0ae2…0af4               Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0006, t01=0x0186}
0x0af4…0afe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0008}
0x0afe…0b18               Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0007, t01=0x0012}
0x0b18…0b2c               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x002c}
0x0b2c…0b42               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x0040}
0x0b42…0b5e               Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x0056}
0x0b5e…0b7c               Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0007, t01=0x0072}
0x0b7c…0b9a               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0007, t01=0x0090}
0x0b9a…0ba6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x00ae}
0x0ba6…0bba               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x00ba}
0x0bba…0bd0               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0007, t01=0x00ce}
0x0bd0…0bec               Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x00e4}
0x0bec…0c0a               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0007, t01=0x0100}
0x0c0a…0c16               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x011e}
0x0c16…0c2a               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0007, t01=0x012a}
0x0c2a…0c40               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x013e}
0x0c40…0c5c               Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0007, t01=0x0154}
0x0c5c…0c7a               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0007, t01=0x0170}
0x0c7a…0c86               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x018e}
0x0c86…0c9a               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x000a}
0x0c9a…0cb0               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x001e}
0x0cb0…0ccc               Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0008, t01=0x0034}
0x0ccc…0cd8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0050}
0x0cd8…0cf6               Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0008, t01=0x005c}
0x0cf6…0d12               Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0008, t01=0x007a}
0x0d12…0d2e               Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0008, t01=0x0096}
0x0d2e…0d3c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00b2}
0x0d3c…0d46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c0}
0x0d46…0d50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ca}
0x0d50…0d76               Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0008, t01=0x00d4}
0x0d76…0d80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00fa}
0x0d80…0d96               Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0008, t01=0x0104}
0x0d96…0db0               Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0008, t01=0x011a}
0x0db0…0dba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0134}
0x0dba…0dc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013e}
0x0dc4…0de0               Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0008, t01=0x0148}
0x0de0…0dea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0164}
0x0dea…0dfe               Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0008, t01=0x016e}
0x0dfe…0e1a               Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0008, t01=0x0182}
0x0e1a…0e46               Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0009, t01=0x000e}
0x0e46…0e7a               Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0009, t01=0x003a}
0x0e7a…0ea8               Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0009, t01=0x006e}
0x0ea8…0ec4               Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0009, t01=0x009c}
0x0ec4…0eee               Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0009, t01=0x00b8}
0x0eee…0f20               Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x0009, t01=0x00e2}
0x0f20…0f48               Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x0009, t01=0x0114}
0x0f48…0f7c               Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x0009, t01=0x013c}
0x0f7c…0fb2               Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x0009, t01=0x0170}
0x0fb2…0fe2               Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000a, t01=0x0016}
0x0fe2…100a               Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000a, t01=0x0046}
0x100a…1036               Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000a, t01=0x006e}
0x1036…1064               Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000a, t01=0x009a}
0x1064…1086               Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000a, t01=0x00c8}
0x1086…10b0               Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000a, t01=0x00ea}
0x10b0…10d8               Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000a, t01=0x0114}
0x10d8…110a               Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000a, t01=0x013c}
0x110a…1140               Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000a, t01=0x016e}
0x1140…1178               Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000b, t01=0x0014}
0x1178…11ac               Head {h00=0x0030, h01=0x0050, text=»LAMSAV EQU RDMORE+2 SAVE AREA FOR LAMPS DK2 «, t00=0x000b, t01=0x004c}
0x11ac…11ba               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0080}
0x11ba…11de               Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x000b, t01=0x008e}
0x11de…11f4               Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x000b, t01=0x00b2}
0x11f4…1208               Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x000b, t01=0x00c8}
0x1208…1236               Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHAR DISPLAY 6344 «, t00=0x000b, t01=0x00dc}
0x1236…125c               Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000b, t01=0x010a}
0x125c…128a               Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000b, t01=0x0130}
0x128a…1294               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015e}
0x1294…12be               Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000b, t01=0x0168}
0x12be…12c8 (12, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0004}
0x12c8…12ee               Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000c, t01=0x000e}
0x12ee…1318               Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000c, t01=0x0034}
0x1318…1322               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x005e}
0x1322…1358               Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000c, t01=0x0068}
0x1358…138e               Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000c, t01=0x009e}
0x138e…13a2               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000c, t01=0x00d4}
0x13a2…13be               Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000c, t01=0x00e8}
0x13be…13da               Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000c, t01=0x0104}
0x13da…13e6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0120}
0x13e6…13f4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x012c}
0x13f4…13fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013a}
0x13fe…1430               Head {h00=0x002e, h01=0x0050, text=»* KEY TABLE FIXED ENTRY FOR EACH FUNCTION «, t00=0x000c, t01=0x0144}
0x1430…143a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0176}
0x143a…144e               Head {h00=0x0010, h01=0x0050, text=»KEYTAB EQU *«, t00=0x000c, t01=0x0180}
0x144e…1466 (13, 0, 398)  Head {h00=0x0014, h01=0x0050, text=» DATA CHAR SPACE«, t00=0x000d, t01=0x0004}
0x1466…147a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR !«, t00=0x000d, t01=0x001c}
0x147a…148e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR "«, t00=0x000d, t01=0x0030}
0x148e…14a2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR #«, t00=0x000d, t01=0x0044}
0x14a2…14b6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR $«, t00=0x000d, t01=0x0058}
0x14b6…14ca               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR %«, t00=0x000d, t01=0x006c}
0x14ca…14f6               Head {h00=0x0028, h01=0x0050, text=» DATA CHARFS &  FIELD SEPARATOR DK4 «, t00=0x000d, t01=0x0080}
0x14f6…150a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR '«, t00=0x000d, t01=0x00ac}
0x150a…151e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR («, t00=0x000d, t01=0x00c0}
0x151e…1532               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR )«, t00=0x000d, t01=0x00d4}
0x1532…1546               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR *«, t00=0x000d, t01=0x00e8}
0x1546…155a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR +«, t00=0x000d, t01=0x00fc}
0x155a…1570               Head {h00=0x0012, h01=0x0050, text=» DATA NUM , DK«, t00=0x000d, t01=0x0110}
0x1570…1584               Head {h00=0x0010, h01=0x0050, text=» DATA NUM - «, t00=0x000d, t01=0x0126}
0x1584…1598               Head {h00=0x0010, h01=0x0050, text=» DATA NUM . «, t00=0x000d, t01=0x013a}
0x1598…15ac               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR /«, t00=0x000d, t01=0x014e}
0x15ac…15b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0162}
0x15b6…15c8               Head {h00=0x000e, h01=0x0050, text=» DATA NUM «, t00=0x000d, t01=0x016c}
0x15c8…15dc               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 1 «, t00=0x000d, t01=0x017e}
0x15dc…15f0 (14, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» DATA NUM 2 «, t00=0x000e, t01=0x0004}
0x15f0…1604               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 3 «, t00=0x000e, t01=0x0018}
0x1604…1618               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 4 «, t00=0x000e, t01=0x002c}
0x1618…162c               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 5 «, t00=0x000e, t01=0x0040}
0x162c…1640               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 6 «, t00=0x000e, t01=0x0054}
0x1640…1654               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 7 «, t00=0x000e, t01=0x0068}
0x1654…1668               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 8 «, t00=0x000e, t01=0x007c}
0x1668…167c               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 9 «, t00=0x000e, t01=0x0090}
0x167c…1690               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR :«, t00=0x000e, t01=0x00a4}
0x1690…16a4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ;«, t00=0x000e, t01=0x00b8}
0x16a4…16b8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR <«, t00=0x000e, t01=0x00cc}
0x16b8…16cc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR =«, t00=0x000e, t01=0x00e0}
0x16cc…16e0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR >«, t00=0x000e, t01=0x00f4}
0x16e0…16f4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ?«, t00=0x000e, t01=0x0108}
0x16f4…16fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x011c}
0x16fe…1714               Head {h00=0x0012, h01=0x0050, text=» DATA CHAR E' «, t00=0x000e, t01=0x0126}
0x1714…1728               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR A«, t00=0x000e, t01=0x013c}
0x1728…173c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR B«, t00=0x000e, t01=0x0150}
0x173c…1750               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR C«, t00=0x000e, t01=0x0164}
0x1750…1764               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR D«, t00=0x000e, t01=0x0178}
0x1764…1778               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR E«, t00=0x000e, t01=0x018c}
0x1778…178c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR F«, t00=0x000f, t01=0x0010}
0x178c…17a0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR G«, t00=0x000f, t01=0x0024}
0x17a0…17b4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR H«, t00=0x000f, t01=0x0038}
0x17b4…17c8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR I«, t00=0x000f, t01=0x004c}
0x17c8…17dc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR J«, t00=0x000f, t01=0x0060}
0x17dc…17f0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR K«, t00=0x000f, t01=0x0074}
0x17f0…1804               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR L«, t00=0x000f, t01=0x0088}
0x1804…1818               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR M«, t00=0x000f, t01=0x009c}
0x1818…182c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR N«, t00=0x000f, t01=0x00b0}
0x182c…1840               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR O«, t00=0x000f, t01=0x00c4}
0x1840…184a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d8}
0x184a…185e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR P«, t00=0x000f, t01=0x00e2}
0x185e…1872               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Q«, t00=0x000f, t01=0x00f6}
0x1872…1886               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR R«, t00=0x000f, t01=0x010a}
0x1886…189a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR S«, t00=0x000f, t01=0x011e}
0x189a…18ae               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR T«, t00=0x000f, t01=0x0132}
0x18ae…18c2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR U«, t00=0x000f, t01=0x0146}
0x18c2…18d6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR V«, t00=0x000f, t01=0x015a}
0x18d6…18ea               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR W«, t00=0x000f, t01=0x016e}
0x18ea…18fe               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR X«, t00=0x000f, t01=0x0182}
0x18fe…1912               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Y«, t00=0x0010, t01=0x0008}
0x1912…1926               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Z«, t00=0x0010, t01=0x001c}
0x1926…193a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR [«, t00=0x0010, t01=0x0030}
0x193a…1958               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR BACK SLASH «, t00=0x0010, t01=0x0044}
0x1958…196c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ]«, t00=0x0010, t01=0x0062}
0x196c…198a               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR CIRCOMFLEX «, t00=0x0010, t01=0x0076}
0x198a…19a6               Head {h00=0x0018, h01=0x0050, text=» DATA CHAR UNDERLINE«, t00=0x0010, t01=0x0094}
0x19a6…19b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b0}
0x19b0…19d8               Head {h00=0x0024, h01=0x0050, text=» DATA RETURN /60 CANNOT BE USED «, t00=0x0010, t01=0x00ba}
0x19d8…19f6               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR LOWER CASE «, t00=0x0010, t01=0x00e2}
0x19f6…1a08               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0100}
0x1a08…1a1a               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0112}
0x1a1a…1a2c               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0124}
0x1a2c…1a3e               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0136}
0x1a3e…1a50               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0148}
0x1a50…1a62               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x015a}
0x1a62…1a74               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x016c}
0x1a74…1a86               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x017e}
0x1a86…1a98               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0190}
0x1a98…1aaa               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0012}
0x1aaa…1abc               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0024}
0x1abc…1ace               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0036}
0x1ace…1ae0               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0048}
0x1ae0…1af2               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x005a}
0x1af2…1afc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x006c}
0x1afc…1b12               Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0011, t01=0x0076}
0x1b12…1b2c               Head {h00=0x0016, h01=0x0050, text=» DATA KEYL KEYLOCK«, t00=0x0011, t01=0x008c}
0x1b2c…1b3e               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x00a6}
0x1b3e…1b50               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x00b8}
0x1b50…1b62               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x00ca}
0x1b62…1b74               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x00dc}
0x1b74…1b86               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x00ee}
0x1b86…1b98               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x0100}
0x1b98…1baa               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x0112}
0x1baa…1bb6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0124}
0x1bb6…1bcc               Head {h00=0x0012, h01=0x0050, text=» IFF KEYLST=1 «, t00=0x0011, t01=0x0130}
0x1bcc…1be0               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0146}
0x1be0…1bf4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x015a}
0x1bf4…1c08               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x016e}
0x1c08…1c1c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0182}
0x1c1c…1c30               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0008}
0x1c30…1c44               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x001c}
0x1c44…1c58               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0030}
0x1c58…1c6c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0044}
0x1c6c…1c78               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0058}
0x1c78…1c98               Head {h00=0x001c, h01=0x0050, text=» DATA CHAR LOWER CASE X «, t00=0x0012, t01=0x0064}
0x1c98…1caa               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x0084}
0x1caa…1cbc               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x0096}
0x1cbc…1ce8               Head {h00=0x0028, h01=0x0050, text=» DATA RETURN /7B-/7F CANNOT BE USED «, t00=0x0012, t01=0x00a8}
0x1ce8…1cfc               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x00d4}
0x1cfc…1d10               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x00e8}
0x1d10…1d24               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x00fc}
0x1d24…1d38               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0110}
0x1d38…1d42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0124}
0x1d42…1d54               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0012, t01=0x012e}
0x1d54…1d66               Head {h00=0x000e, h01=0x0050, text=» DATA PAEX«, t00=0x0012, t01=0x0140}
0x1d66…1d72               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0152}
0x1d72…1d84               Head {h00=0x000e, h01=0x0050, text=» IFF PAX=1«, t00=0x0012, t01=0x015e}
0x1d84…1d98               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0170}
0x1d98…1da4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0184}
0x1da4…1db6               Head {h00=0x000e, h01=0x0050, text=» DATA PA1 «, t00=0x0012, t01=0x0190}
0x1db6…1dc8               Head {h00=0x000e, h01=0x0050, text=» DATA PA2 «, t00=0x0013, t01=0x0012}
0x1dc8…1dda               Head {h00=0x000e, h01=0x0050, text=» DATA PA3 «, t00=0x0013, t01=0x0024}
0x1dda…1e04               Head {h00=0x0026, h01=0x0050, text=» DATA PA410 PA4 - PA10 (ALFASKOP) «, t00=0x0013, t01=0x0036}
0x1e04…1e18               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x0060}
0x1e18…1e2c               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x0074}
0x1e2c…1e40               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x0088}
0x1e40…1e54               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x009c}
0x1e54…1e68               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x00b0}
0x1e68…1e7c               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x00c4}
0x1e7c…1e90               Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0013, t01=0x00d8}
0x1e90…1ea2               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x0013, t01=0x00ec}
0x1ea2…1eb4               Head {h00=0x000e, h01=0x0050, text=» DATA PFEX«, t00=0x0013, t01=0x00fe}
0x1eb4…1ec0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0110}
0x1ec0…1ed2               Head {h00=0x000e, h01=0x0050, text=» IFF PFX=1«, t00=0x0013, t01=0x011c}
0x1ed2…1ee6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x012e}
0x1ee6…1ef2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0142}
0x1ef2…1f04               Head {h00=0x000e, h01=0x0050, text=» DATA PF 1«, t00=0x0013, t01=0x014e}
0x1f04…1f16               Head {h00=0x000e, h01=0x0050, text=» DATA PF 2«, t00=0x0013, t01=0x0160}
0x1f16…1f28               Head {h00=0x000e, h01=0x0050, text=» DATA PF 3«, t00=0x0013, t01=0x0172}
0x1f28…1f32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0184}
0x1f32…1f44               Head {h00=0x000e, h01=0x0050, text=» DATA PF 4«, t00=0x0013, t01=0x018e}
0x1f44…1f56               Head {h00=0x000e, h01=0x0050, text=» DATA PF 5«, t00=0x0014, t01=0x0010}
0x1f56…1f68               Head {h00=0x000e, h01=0x0050, text=» DATA PF 6«, t00=0x0014, t01=0x0022}
0x1f68…1f7a               Head {h00=0x000e, h01=0x0050, text=» DATA PF 7«, t00=0x0014, t01=0x0034}
0x1f7a…1f8c               Head {h00=0x000e, h01=0x0050, text=» DATA PF 8«, t00=0x0014, t01=0x0046}
0x1f8c…1f9e               Head {h00=0x000e, h01=0x0050, text=» DATA PF 9«, t00=0x0014, t01=0x0058}
0x1f9e…1fb2               Head {h00=0x0010, h01=0x0050, text=» DATA PF 10 «, t00=0x0014, t01=0x006a}
0x1fb2…1fc6               Head {h00=0x0010, h01=0x0050, text=» DATA PF 11 «, t00=0x0014, t01=0x007e}
0x1fc6…1fda               Head {h00=0x0010, h01=0x0050, text=» DATA PF 12 «, t00=0x0014, t01=0x0092}
0x1fda…200c               Head {h00=0x002e, h01=0x0050, text=» DATA RETURN /99-/A4 RESERVED FOR PF13-24 «, t00=0x0014, t01=0x00a6}
0x200c…2020               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00d8}
0x2020…2034               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00ec}
0x2034…2048               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0100}
0x2048…205c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0114}
0x205c…2070               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0128}
0x2070…2084               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x013c}
0x2084…208e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0150}
0x208e…20a2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x015a}
0x20a2…20b6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x016e}
0x20b6…20ca               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0182}
0x20ca…20de               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0008}
0x20de…20f2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x001c}
0x20f2…2106               Head {h00=0x0010, h01=0x0050, text=» DATA ENTER «, t00=0x0015, t01=0x0030}
0x2106…2118               Head {h00=0x000e, h01=0x0050, text=» DATA CRUP«, t00=0x0015, t01=0x0044}
0x2118…212c               Head {h00=0x0010, h01=0x0050, text=» DATA CRLEFT«, t00=0x0015, t01=0x0056}
0x212c…2140               Head {h00=0x0010, h01=0x0050, text=» DATA CRRIGT«, t00=0x0015, t01=0x006a}
0x2140…2154               Head {h00=0x0010, h01=0x0050, text=» DATA CRDOWN«, t00=0x0015, t01=0x007e}
0x2154…2168               Head {h00=0x0010, h01=0x0050, text=» DATA BAKTAB«, t00=0x0015, t01=0x0092}
0x2168…217a               Head {h00=0x000e, h01=0x0050, text=» DATA TAB «, t00=0x0015, t01=0x00a6}
0x217a…218c               Head {h00=0x000e, h01=0x0050, text=» DATA CRNL«, t00=0x0015, t01=0x00b8}
0x218c…21a0               Head {h00=0x0010, h01=0x0050, text=» DATA RDHOME«, t00=0x0015, t01=0x00ca}
0x21a0…21b4               Head {h00=0x0010, h01=0x0050, text=» DATA ERINPT«, t00=0x0015, t01=0x00de}
0x21b4…21c8               Head {h00=0x0010, h01=0x0050, text=» DATA EREOF «, t00=0x0015, t01=0x00f2}
0x21c8…21d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0106}
0x21d2…21e6               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x0015, t01=0x0110}
0x21e6…21fa               Head {h00=0x0010, h01=0x0050, text=» DATA INSERT«, t00=0x0015, t01=0x0124}
0x21fa…220e               Head {h00=0x0010, h01=0x0050, text=» DATA DELETE«, t00=0x0015, t01=0x0138}
0x220e…221a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x014c}
0x221a…222e               Head {h00=0x0010, h01=0x0050, text=» IFF IN:DL=1«, t00=0x0015, t01=0x0158}
0x222e…2242               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x016c}
0x2242…2256               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0180}
0x2256…2262 (22, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0004}
0x2262…2276               Head {h00=0x0010, h01=0x0050, text=» DATA RESET «, t00=0x0016, t01=0x0010}
0x2276…2288               Head {h00=0x000e, h01=0x0050, text=» DATA DUP «, t00=0x0016, t01=0x0024}
0x2288…229c               Head {h00=0x0010, h01=0x0050, text=» DATA FLDMRK«, t00=0x0016, t01=0x0036}
0x229c…22ae               Head {h00=0x000e, h01=0x0050, text=» DATA COPY«, t00=0x0016, t01=0x004a}
0x22ae…22c2               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0016, t01=0x005c}
0x22c2…22d6               Head {h00=0x0010, h01=0x0050, text=» DATA OFLINE«, t00=0x0016, t01=0x0070}
0x22d6…22e2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0084}
0x22e2…22f6               Head {h00=0x0010, h01=0x0050, text=» IFF OFLIN=1«, t00=0x0016, t01=0x0090}
0x22f6…230a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x00a4}
0x230a…2316               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00b8}
0x2316…232a               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0016, t01=0x00c4}
0x232a…233e               Head {h00=0x0010, h01=0x0050, text=» DATA MFCHGE«, t00=0x0016, t01=0x00d8}
0x233e…234a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00ec}
0x234a…235e               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0016, t01=0x00f8}
0x235e…2372               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x010c}
0x2372…237e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0120}
0x237e…2392               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x012c}
0x2392…23a6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0140}
0x23a6…23ba               Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:2«, t00=0x0016, t01=0x0154}
0x23ba…23ce               Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:3«, t00=0x0016, t01=0x0168}
0x23ce…23e2               Head {h00=0x0010, h01=0x0050, text=» DATA NUMCOM«, t00=0x0016, t01=0x017c}
0x23e2…23f6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0190}
0x23f6…240a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0014}
0x240a…241e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0028}
0x241e…2428               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x003c}
0x2428…2462               Head {h00=0x0036, h01=0x0050, text=» DATA LCASPW LOWER CASE P - W (BECAUSE OF KEYLOCK)«, t00=0x0017, t01=0x0046}
0x2462…2476               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x0080}
0x2476…248a               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x0094}
0x248a…249e               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x00a8}
0x249e…24b2               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x00bc}
0x24b2…24c6               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x00d0}
0x24c6…24da               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x00e4}
0x24da…24ee               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x00f8}
0x24ee…24fc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x010c}
0x24fc…2542               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0017, t01=0x011a}
0x2542…254c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0160}
0x254c…2570               Head {h00=0x0020, h01=0x0050, text=»* START ADDRESS FOR DC TASKS«, t00=0x0017, t01=0x016a}
0x2570…25b6               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0017, t01=0x018e}
0x25b6…25be               Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x0044}
0x25be…25d2               Head {h00=0x0010, h01=0x0050, text=»DCTASK EQU *«, t00=0x0018, t01=0x004c}
0x25d2…25e8               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0018, t01=0x0060}
0x25e8…2612               Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A9 POLL & SELECT ADDRESS «, t00=0x0018, t01=0x0076}
0x2612…2628               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0018, t01=0x00a0}
0x2628…263e               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0018, t01=0x00b6}
0x263e…2656               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0018, t01=0x00cc}
0x2656…267e               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x0018, t01=0x00e4}
0x267e…268a               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0018, t01=0x010c}
0x268a…269a               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0018, t01=0x0118}
0x269a…26ae               Head {h00=0x0010, h01=0x0050, text=»DCT100 EQU *«, t00=0x0018, t01=0x0128}
0x26ae…26e0               Head {h00=0x002e, h01=0x0050, text=» LDK A7,/80 TEST IF ANY MESSAGE WITH WAIT «, t00=0x0018, t01=0x013c}
0x26e0…26ec               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0018, t01=0x016e}
0x26ec…26fc               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0018, t01=0x017a}
0x26fc…2726               Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x0018, t01=0x018a}
0x2726…273c               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0019, t01=0x0024}
0x273c…2752               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0019, t01=0x003a}
0x2752…2768               Head {h00=0x0012, h01=0x0050, text=» CF A14,DCGETM«, t00=0x0019, t01=0x0050}
0x2768…2780               Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x0019, t01=0x0066}
0x2780…27a6               Head {h00=0x0022, h01=0x0050, text=» CF A14,RLRBUF RELEASE BUFFER «, t00=0x0019, t01=0x007e}
0x27a6…27b8               Head {h00=0x000e, h01=0x0050, text=» RB DCT100«, t00=0x0019, t01=0x00a4}
0x27b8…27c6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x00b6}
0x27c6…27d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00c4}
0x27d0…27da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ce}
0x27da…2806               Head {h00=0x0028, h01=0x0050, text=»* SUBROUTINE ACTIVATED BY ALL TASKS «, t00=0x0019, t01=0x00d8}
0x2806…2810               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0104}
0x2810…281a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x010e}
0x281a…282e               Head {h00=0x0010, h01=0x0050, text=»EMULA EQU * «, t00=0x0019, t01=0x0118}
0x282e…2854               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS GET ECB ADDRESS«, t00=0x0019, t01=0x012c}
0x2854…287c               Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBCW,A8 STORE IN ECBDCT «, t00=0x0019, t01=0x0152}
0x287c…28a4               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x0019, t01=0x017a}
0x28a4…28b0               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001a, t01=0x0012}
0x28b0…28c0               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001a, t01=0x001e}
0x28c0…28d0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x002e}
0x28d0…28de               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x003e}
0x28de…28e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x004c}
0x28e8…2926               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x001a, t01=0x0056}
0x2926…2930               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0094}
0x2930…2944               Head {h00=0x0010, h01=0x0050, text=»*     VDUKB «, t00=0x001a, t01=0x009e}
0x2944…294e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00b2}
0x294e…2974               Head {h00=0x0022, h01=0x0050, text=»* MAIN MODULE FOR KEYBOARD VDU«, t00=0x001a, t01=0x00bc}
0x2974…297e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00e2}
0x297e…29be               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x001a, t01=0x00ec}
0x29be…29d2               Head {h00=0x0010, h01=0x0050, text=»VDUKB EQU * «, t00=0x001a, t01=0x012c}
0x29d2…29e8               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x001a, t01=0x0140}
0x29e8…2a12               Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x001a, t01=0x0156}
0x2a12…2a1a               Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0180}
0x2a1a…2a2e               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x001a, t01=0x0188}
0x2a2e…2a36               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x000c}
0x2a36…2a3e               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0014}
0x2a3e…2a76               Head {h00=0x0034, h01=0x0050, text=» STR A12,A14 SAVE REGISTERS A12-A13 ON A14 STACK«, t00=0x001b, t01=0x001c}
0x2a76…2a8c               Head {h00=0x0012, h01=0x0050, text=» ST A13,-2,A14«, t00=0x001b, t01=0x0054}
0x2a8c…2ab4               Head {h00=0x0024, h01=0x0050, text=» SUKL A14,4 UPDATE STACK POINTER«, t00=0x001b, t01=0x006a}
0x2ab4…2ace               Head {h00=0x0016, h01=0x0050, text=» CM OFFFLG,TCABAS «, t00=0x001b, t01=0x0092}
0x2ace…2afe               Head {h00=0x002c, h01=0x0050, text=» CM LAMSAV,TCABAS CLEAR LAMP STATUS DK2 «, t00=0x001b, t01=0x00ac}
0x2afe…2b2c               Head {h00=0x002a, h01=0x0050, text=» CF A14,LIOLOF TURN OFF OFF LINE LAMP «, t00=0x001b, t01=0x00dc}
0x2b2c…2b38               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x010a}
0x2b38…2b40               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0116}
0x2b40…2b4e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x011e}
0x2b4e…2b94               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x001b, t01=0x012c}
0x2b94…2b9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0172}
0x2b9e…2bce               Head {h00=0x002c, h01=0x0050, text=»*   TRANSFER PARAMETER FOR MAIN FRAME #1«, t00=0x001b, t01=0x017c}
0x2bce…2bd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x001c}
0x2bd8…2c1e               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001c, t01=0x0026}
0x2c1e…2c26               Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x006c}
0x2c26…2c4a               Head {h00=0x0020, h01=0x0050, text=» LDR* A4,TCABAS REL TASK NO «, t00=0x001c, t01=0x0074}
0x2c4a…2c70               Head {h00=0x0022, h01=0x0050, text=» AD A4,6,CREBAS 'CB1' ADDRESS «, t00=0x001c, t01=0x0098}
0x2c70…2c9a               Head {h00=0x0026, h01=0x0050, text=» LC A1,MF1KBV-1,A4 GET DV-ADDRESS «, t00=0x001c, t01=0x00be}
0x2c9a…2cae               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001c, t01=0x00e8}
0x2cae…2cc4               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001c, t01=0x00fc}
0x2cc4…2cda               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x001c, t01=0x0112}
0x2cda…2ce2               Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0128}
0x2ce2…2cf6               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001c, t01=0x0130}
0x2cf6…2d3c               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001c, t01=0x0144}
0x2d3c…2d46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x018a}
0x2d46…2d76 (29, 0, 400)  Head {h00=0x002c, h01=0x0050, text=»*   TRANSFER PARAMETER FOR MAIN-FRAME #2«, t00=0x001d, t01=0x0004}
0x2d76…2d80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0034}
0x2d80…2dc6               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001d, t01=0x003e}
0x2dc6…2dce               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0084}
0x2dce…2df8               Head {h00=0x0026, h01=0x0050, text=» LC A1,MF2KBV-1,A4 GET DV ADDRESS «, t00=0x001d, t01=0x008c}
0x2df8…2e0c               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001d, t01=0x00b6}
0x2e0c…2e24               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001d, t01=0x00ca}
0x2e24…2e3a               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x001d, t01=0x00e2}
0x2e3a…2e46               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00f8}
0x2e46…2e54               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0104}
0x2e54…2e68               Head {h00=0x0010, h01=0x0050, text=»VDU080 EQU *«, t00=0x001d, t01=0x0112}
0x2e68…2e8a               Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x001d, t01=0x0126}
0x2e8a…2e92               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0148}
0x2e92…2ea4               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001d, t01=0x0150}
0x2ea4…2ebc               Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x001d, t01=0x0162}
0x2ebc…2ef6               Head {h00=0x0036, h01=0x0050, text=» ST A1,CURATT,TCABAS INITIATE WITH UNFORM. SCREEN «, t00=0x001d, t01=0x017a}
0x2ef6…2f0c               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1ON«, t00=0x001e, t01=0x0024}
0x2f0c…2f3c               Head {h00=0x002c, h01=0x0050, text=» CM MAIN,TCABAS INDICATE MAIN-FRAME # 1 «, t00=0x001e, t01=0x003a}
0x2f3c…2f4a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x006a}
0x2f4a…2f54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0078}
0x2f54…2f74               Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x001e, t01=0x0082}
0x2f74…2f84               Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x001e, t01=0x00a2}
0x2f84…2f96               Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x001e, t01=0x00b2}
0x2f96…2faa               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001e, t01=0x00c4}
0x2faa…2fc0               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x001e, t01=0x00d8}
0x2fc0…2fd2               Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x001e, t01=0x00ee}
0x2fd2…2fe4               Head {h00=0x000e, h01=0x0050, text=»ICR EQU 8 «, t00=0x001e, t01=0x0100}
0x2fe4…2ff8               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 4 «, t00=0x001e, t01=0x0112}
0x2ff8…3004               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0126}
0x3004…3018               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001e, t01=0x0132}
0x3018…302e               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x001e, t01=0x0146}
0x302e…3040               Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x001e, t01=0x015c}
0x3040…3054               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 3 «, t00=0x001e, t01=0x016e}
0x3054…3060               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0182}
0x3060…3074               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x001e, t01=0x018e}
0x3074…308a               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x001f, t01=0x0012}
0x308a…309c               Head {h00=0x000e, h01=0x0050, text=»ICR EQU 6 «, t00=0x001f, t01=0x0028}
0x309c…30b0               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 3 «, t00=0x001f, t01=0x003a}
0x30b0…30bc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x004e}
0x30bc…30d0               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x001f, t01=0x005a}
0x30d0…30e6               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x001f, t01=0x006e}
0x30e6…30fa               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 2 «, t00=0x001f, t01=0x0084}
0x30fa…3106               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0098}
0x3106…3110               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00a4}
0x3110…3126               Head {h00=0x0012, h01=0x0050, text=» LDK A1,ECBBS «, t00=0x001f, t01=0x00ae}
0x3126…3142               Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBLK,TCABAS«, t00=0x001f, t01=0x00c4}
0x3142…3156               Head {h00=0x0010, h01=0x0050, text=»VDU100 EQU *«, t00=0x001f, t01=0x00e0}
0x3156…3176               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC1,TCABAS«, t00=0x001f, t01=0x00f4}
0x3176…3194               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU110 PENDING«, t00=0x001f, t01=0x0114}
0x3194…31c8               Head {h00=0x0030, h01=0x0050, text=» CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT «, t00=0x001f, t01=0x0132}
0x31c8…31dc               Head {h00=0x0010, h01=0x0050, text=»VDU110 EQU *«, t00=0x001f, t01=0x0166}
0x31dc…31f0               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001f, t01=0x017a}
0x31f0…3210               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x001f, t01=0x018e}
0x3210…322e               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU120 PENDING«, t00=0x0020, t01=0x001e}
0x322e…3268               Head {h00=0x0036, h01=0x0050, text=» CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT«, t00=0x0020, t01=0x003c}
0x3268…3274               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0076}
0x3274…3288               Head {h00=0x0010, h01=0x0050, text=»VDU120 EQU *«, t00=0x0020, t01=0x0082}
0x3288…329e               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0020, t01=0x0096}
0x329e…32be               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+ICR,TCABAS«, t00=0x0020, t01=0x00ac}
0x32be…32dc               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU125 PENDING«, t00=0x0020, t01=0x00cc}
0x32dc…32fa               Head {h00=0x001a, h01=0x0050, text=» LDKL A3,ICWORK BUFFER«, t00=0x0020, t01=0x00ea}
0x32fa…331a               Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS   ADDRESS«, t00=0x0020, t01=0x0108}
0x331a…3336               Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x0020, t01=0x0128}
0x3336…334c               Head {h00=0x0012, h01=0x0050, text=» CF A14,ICREAD«, t00=0x0020, t01=0x0144}
0x334c…336c               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+ICR,TCABAS«, t00=0x0020, t01=0x015a}
0x336c…3378               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x017a}
0x3378…338c               Head {h00=0x0010, h01=0x0050, text=»VDU125 EQU *«, t00=0x0020, t01=0x0186}
0x338c…33ac               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+KB,TCABAS «, t00=0x0021, t01=0x000a}
0x33ac…33ca               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU150 PENDING«, t00=0x0021, t01=0x002a}
0x33ca…33f6               Head {h00=0x0028, h01=0x0050, text=» CF A14,RDKBNW READ KEYBOARD NO WAIT«, t00=0x0021, t01=0x0048}
0x33f6…340a               Head {h00=0x0010, h01=0x0050, text=»VDU150 EQU *«, t00=0x0021, t01=0x0074}
0x340a…3422               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0021, t01=0x0088}
0x3422…3438               Head {h00=0x0012, h01=0x0050, text=» ADR A7,TCABAS«, t00=0x0021, t01=0x00a0}
0x3438…3444               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0021, t01=0x00b6}
0x3444…3462               Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x0021, t01=0x00c2}
0x3462…3482               Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+KB,TCABAS «, t00=0x0021, t01=0x00e0}
0x3482…34aa               Head {h00=0x0024, h01=0x0050, text=» RF(E) KBINP INPUT FROM KEYBOARD«, t00=0x0021, t01=0x0100}
0x34aa…34c0               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0021, t01=0x0128}
0x34c0…34e0               Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+ICR,TCABAS«, t00=0x0021, t01=0x013e}
0x34e0…350c               Head {h00=0x0028, h01=0x0050, text=» RF(E) BUFCOP SEND BUFFER TO PRINTER«, t00=0x0021, t01=0x015e}
0x350c…3518               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x018a}
0x3518…3556               Head {h00=0x003a, h01=0x0050, text=» ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ«, t00=0x0022, t01=0x0008}
0x3556…357a               Head {h00=0x0020, h01=0x0050, text=» CF A14,DCINP INPUT FROM DC «, t00=0x0022, t01=0x0046}
0x357a…358c               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0022, t01=0x006a}
0x358c…359a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x007c}
0x359a…35a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x008a}
0x35a4…35c8               Head {h00=0x0020, h01=0x0050, text=»* READ KEYBOARD WITH NO WAIT«, t00=0x0022, t01=0x0094}
0x35c8…35d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00b8}
0x35d2…35e6               Head {h00=0x0010, h01=0x0050, text=»RDKBNW EQU *«, t00=0x0022, t01=0x00c2}
0x35e6…35fc               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x0022, t01=0x00d6}
0x35fc…3612               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0022, t01=0x00ec}
0x3612…3624               Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0022, t01=0x0102}
0x3624…364a               Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 1«, t00=0x0022, t01=0x0114}
0x364a…3678               Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 INDICATE NOT POWER OFF«, t00=0x0022, t01=0x013a}
0x3678…3698               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+KB,TCABAS «, t00=0x0022, t01=0x0168}
0x3698…36aa               Head {h00=0x000e, h01=0x0050, text=» RF DC1I30«, t00=0x0022, t01=0x0188}
0x36aa…36b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x000a}
0x36b4…36d4               Head {h00=0x001c, h01=0x0050, text=»* TEST IF ANY MESSAGE DC«, t00=0x0023, t01=0x0014}
0x36d4…36de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0034}
0x36de…36f2               Head {h00=0x0010, h01=0x0050, text=»DC1INQ EQU *«, t00=0x0023, t01=0x003e}
0x36f2…3708               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0023, t01=0x0052}
0x3708…371e               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0023, t01=0x0068}
0x371e…373e               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+DC1,TCABAS«, t00=0x0023, t01=0x007e}
0x373e…3752               Head {h00=0x0010, h01=0x0050, text=»DC1I20 EQU *«, t00=0x0023, t01=0x009e}
0x3752…3764               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0023, t01=0x00b2}
0x3764…377a               Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0023, t01=0x00c4}
0x377a…378c               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0023, t01=0x00da}
0x378c…37a0               Head {h00=0x0010, h01=0x0050, text=»DC1I30 EQU *«, t00=0x0023, t01=0x00ec}
0x37a0…37ac               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0023, t01=0x0100}
0x37ac…37bc               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0023, t01=0x010c}
0x37bc…37cc               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0023, t01=0x011c}
0x37cc…37e0               Head {h00=0x0010, h01=0x0050, text=»DC2INQ EQU *«, t00=0x0023, t01=0x012c}
0x37e0…37f4               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0023, t01=0x0140}
0x37f4…380c               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x0023, t01=0x0154}
0x380c…3822               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0023, t01=0x016c}
0x3822…3842               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+DC2,TCABAS«, t00=0x0023, t01=0x0182}
0x3842…3854               Head {h00=0x000e, h01=0x0050, text=» RB DC1I20«, t00=0x0024, t01=0x0012}
0x3854…3860               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0024}
0x3860…3876               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0024, t01=0x0030}
0x3876…3884               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0046}
0x3884…388e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0054}
0x388e…38b4               Head {h00=0x0022, h01=0x0050, text=»* SEND BUFFER TO PRINTER TASK «, t00=0x0024, t01=0x005e}
0x38b4…38be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0084}
0x38be…38d2               Head {h00=0x0010, h01=0x0050, text=»BUFCOP EQU *«, t00=0x0024, t01=0x008e}
0x38d2…38f0               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0024, t01=0x00a2}
0x38f0…390c               Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x0024, t01=0x00c0}
0x390c…392c               Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS   ADDRESS«, t00=0x0024, t01=0x00dc}
0x392c…3940               Head {h00=0x0010, h01=0x0050, text=» IFT COPL=1 «, t00=0x0024, t01=0x00fc}
0x3940…394a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0110}
0x394a…3966               Head {h00=0x0018, h01=0x0050, text=»* CHECK IF COPY LOCK«, t00=0x0024, t01=0x011a}
0x3966…3970               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0136}
0x3970…3982               Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0024, t01=0x0140}
0x3982…3996               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/18 «, t00=0x0024, t01=0x0152}
0x3996…39aa               Head {h00=0x0010, h01=0x0050, text=» XRK A2,/10 «, t00=0x0024, t01=0x0166}
0x39aa…39ca               Head {h00=0x001c, h01=0x0050, text=» RB(Z) VDU100 DON'T COPY«, t00=0x0024, t01=0x017a}
0x39ca…39d6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x000a}
0x39d6…39ec               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0025, t01=0x0016}
0x39ec…3a20               Head {h00=0x0030, h01=0x0050, text=» LDK A4,/8B ORDER: WRITE ADDRESSED WITH WAIT«, t00=0x0025, t01=0x002c}
0x3a20…3a44               Head {h00=0x0020, h01=0x0050, text=» LD A5,ICWORK,TCABAS TASK ID«, t00=0x0025, t01=0x0060}
0x3a44…3a66               Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x0025, t01=0x0084}
0x3a66…3a7c               Head {h00=0x0012, h01=0x0050, text=» CF A14,ICWRTE«, t00=0x0025, t01=0x00a6}
0x3a7c…3a98               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0025, t01=0x00bc}
0x3a98…3ac4               Head {h00=0x0028, h01=0x0050, text=» ANK A1,/E NOT INHIBITED ANY LONGER «, t00=0x0025, t01=0x00d8}
0x3ac4…3ae0               Head {h00=0x0018, h01=0x0050, text=» ST A1,KBINH,TCABAS «, t00=0x0025, t01=0x0104}
0x3ae0…3af2               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0025, t01=0x0120}
0x3af2…3afe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0132}
0x3afe…3b0c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x013e}
0x3b0c…3b26               Head {h00=0x0016, h01=0x0050, text=»** KEYBOARD INPUT «, t00=0x0025, t01=0x014c}
0x3b26…3b30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0166}
0x3b30…3b44               Head {h00=0x0010, h01=0x0050, text=»KBINP EQU * «, t00=0x0025, t01=0x0170}
0x3b44…3b60               Head {h00=0x0018, h01=0x0050, text=» CM ECBBLK+KB,TCABAS«, t00=0x0025, t01=0x0184}
0x3b60…3b78               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A8 «, t00=0x0026, t01=0x0010}
0x3b78…3b98               Head {h00=0x001c, h01=0x0050, text=» RF(Z) KBIN05 POWER OFF «, t00=0x0026, t01=0x0028}
0x3b98…3bb0               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRC,A8 «, t00=0x0026, t01=0x0048}
0x3bb0…3bc6               Head {h00=0x0012, h01=0x0050, text=» RF(0) KBIN10 «, t00=0x0026, t01=0x0060}
0x3bc6…3bda               Head {h00=0x0010, h01=0x0050, text=»KBIN05 EQU *«, t00=0x0026, t01=0x0076}
0x3bda…3c02               Head {h00=0x0024, h01=0x0050, text=» LDK A7,4 RESET KEYBOARD BUFFER «, t00=0x0026, t01=0x008a}
0x3c02…3c0e               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0026, t01=0x00b2}
0x3c0e…3c1e               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0026, t01=0x00be}
0x3c1e…3c30               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0026, t01=0x00ce}
0x3c30…3c44               Head {h00=0x0010, h01=0x0050, text=»KBIN10 EQU *«, t00=0x0026, t01=0x00e0}
0x3c44…3c60               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0026, t01=0x00f4}
0x3c60…3c90               Head {h00=0x002c, h01=0x0050, text=» ANK A1,1 RESETTING BY 'RESET' ALLOWED ?«, t00=0x0026, t01=0x0110}
0x3c90…3caa               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) KBIN05 NO «, t00=0x0026, t01=0x0140}
0x3caa…3cd6               Head {h00=0x0028, h01=0x0050, text=» LC* A2,ECBBA,A8 GET INPUT CHARACTER«, t00=0x0026, t01=0x015a}
0x3cd6…3cf0               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  =5 «, t00=0x0026, t01=0x0186}
0x3cf0…3d1a               Head {h00=0x0026, h01=0x0050, text=» CF A14,KEYCNV CONVERT KEY CODE =5«, t00=0x0027, t01=0x0010}
0x3d1a…3d2c               Head {h00=0x000e, h01=0x0050, text=» XIF   =5 «, t00=0x0027, t01=0x003a}
0x3d2c…3d48               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0027, t01=0x004c}
0x3d48…3d6e               Head {h00=0x0022, h01=0x0050, text=» ANK A1,6 MUST BE RESET KEY ? «, t00=0x0027, t01=0x0068}
0x3d6e…3d86               Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN20 NO«, t00=0x0027, t01=0x008e}
0x3d86…3da6               Head {h00=0x001c, h01=0x0050, text=» CWK A2,RSET RESET KEY ?«, t00=0x0027, t01=0x00a6}
0x3da6…3dc0               Head {h00=0x0016, h01=0x0050, text=» RB(NE) KBIN05 NO «, t00=0x0027, t01=0x00c6}
0x3dc0…3dd4               Head {h00=0x0010, h01=0x0050, text=»KBIN20 EQU *«, t00=0x0027, t01=0x00e0}
0x3dd4…3dfc               Head {h00=0x0024, h01=0x0050, text=» LDR A5,A2 COPY INPUT CHARACTER «, t00=0x0027, t01=0x00f4}
0x3dfc…3e16               Head {h00=0x0016, h01=0x0050, text=» SUK A5,/20 INDEX «, t00=0x0027, t01=0x011c}
0x3e16…3e38               Head {h00=0x001e, h01=0x0050, text=» RB(N) VDU100 ILLEGAL CHAR«, t00=0x0027, t01=0x0136}
0x3e38…3e4c               Head {h00=0x0010, h01=0x0050, text=» CWK A5,/A7 «, t00=0x0027, t01=0x0158}
0x3e4c…3e6e               Head {h00=0x001e, h01=0x0050, text=» RB(G) VDU100 ILLEGAL CHAR«, t00=0x0027, t01=0x016c}
0x3e6e…3ea6               Head {h00=0x0034, h01=0x0050, text=» CF A14,DCABOR ABORT DC-READ TO ENABLE DC-WRITE «, t00=0x0027, t01=0x018e}
0x3ea6…3eb8               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0028, t01=0x0036}
0x3eb8…3ef2               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) VDU100 DC COMPLETED, TAKE CARE OF MESSAGE«, t00=0x0028, t01=0x0048}
0x3ef2…3f12               Head {h00=0x001c, h01=0x0050, text=» ADR A5,A5 TO KEY TABLE «, t00=0x0028, t01=0x0082}
0x3f12…3f1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00a2}
0x3f1c…3f34               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0028, t01=0x00ac}
0x3f34…3f4a               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0028, t01=0x00c4}
0x3f4a…3f66               Head {h00=0x0018, h01=0x0050, text=» LD A1,RDMORE,TCABAS«, t00=0x0028, t01=0x00da}
0x3f66…3f7c               Head {h00=0x0012, h01=0x0050, text=» RF(Z) KBIN30 «, t00=0x0028, t01=0x00f6}
0x3f7c…3f86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x010c}
0x3f86…3f9a               Head {h00=0x0010, h01=0x0050, text=» CFR A14,A1 «, t00=0x0028, t01=0x0116}
0x3f9a…3fae               Head {h00=0x0010, h01=0x0050, text=» ABL VDU100 «, t00=0x0028, t01=0x012a}
0x3fae…3fb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x013e}
0x3fb8…3fcc               Head {h00=0x0010, h01=0x0050, text=»KBIN30 EQU *«, t00=0x0028, t01=0x0148}
0x3fcc…400a               Head {h00=0x003a, h01=0x0050, text=» CFI A14,KEYTAB,A5 BRANCH TO RESPECTIVE INPUT HANDLER «, t00=0x0028, t01=0x015c}
0x400a…401e               Head {h00=0x0010, h01=0x0050, text=» ABL VDU100 «, t00=0x0029, t01=0x000a}
0x401e…402c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x001e}
0x402c…4036               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x002c}
0x4036…4060               Head {h00=0x0026, h01=0x0050, text=»* ABORT DC-REQUEST TO ENABLE WRITE«, t00=0x0029, t01=0x0036}
0x4060…406a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0060}
0x406a…407e               Head {h00=0x0010, h01=0x0050, text=»DCABOR EQU *«, t00=0x0029, t01=0x006a}
0x407e…4090               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0029, t01=0x007e}
0x4090…40a6               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0029, t01=0x0090}
0x40a6…40ba               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0029, t01=0x00a6}
0x40ba…40d4               Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x0029, t01=0x00ba}
0x40d4…40ea               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCAB05«, t00=0x0029, t01=0x00d4}
0x40ea…40f6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00ea}
0x40f6…4114               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0029, t01=0x00f6}
0x4114…4128               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0029, t01=0x0114}
0x4128…413a               Head {h00=0x000e, h01=0x0050, text=» RF DCAB10«, t00=0x0029, t01=0x0128}
0x413a…414e               Head {h00=0x0010, h01=0x0050, text=»DCAB05 EQU *«, t00=0x0029, t01=0x013a}
0x414e…416c               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x0029, t01=0x014e}
0x416c…4184               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x0029, t01=0x016c}
0x4184…4198               Head {h00=0x0010, h01=0x0050, text=»DCAB10 EQU *«, t00=0x0029, t01=0x0184}
0x4198…41a4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0008}
0x41a4…41ba               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x002a, t01=0x0014}
0x41ba…41c6               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x002a}
0x41c6…41d6               Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x002a, t01=0x0036}
0x41d6…41e6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x0046}
0x41e6…41f4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0056}
0x41f4…41fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0064}
0x41fe…421a               Head {h00=0x0018, h01=0x0050, text=»* SET REQUEST TIMER «, t00=0x002a, t01=0x006e}
0x421a…4238               Head {h00=0x001a, h01=0x0050, text=»* A1 = TIME OUT VALUE «, t00=0x002a, t01=0x008a}
0x4238…4252               Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x002a, t01=0x00a8}
0x4252…425c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00c2}
0x425c…4270               Head {h00=0x0010, h01=0x0050, text=»REQTIM EQU *«, t00=0x002a, t01=0x00cc}
0x4270…4288               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x002a, t01=0x00e0}
0x4288…429c               Head {h00=0x0010, h01=0x0050, text=» LDK A7,/B9 «, t00=0x002a, t01=0x00f8}
0x429c…42a8               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x010c}
0x42a8…42b8               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x002a, t01=0x0118}
0x42b8…42c8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x0128}
0x42c8…42d6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0138}
0x42d6…42de               Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0146}
0x42de…42e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x014e}
0x42e8…42f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0158}
0x42f2…4334               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002a, t01=0x0162}
0x4334…433e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0014}
0x433e…434e               Head {h00=0x000c, h01=0x0050, text=»* RETURN«, t00=0x002b, t01=0x001e}
0x434e…4358               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x002e}
0x4358…439e               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002b, t01=0x0038}
0x439e…43a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x007e}
0x43a8…43be               Head {h00=0x0012, h01=0x0050, text=»RETURN RTN A14«, t00=0x002b, t01=0x0088}
0x43be…43cc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x009e}
0x43cc…43d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ac}
0x43d6…4416               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002b, t01=0x00b6}
0x4416…4420               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00f6}
0x4420…4434               Head {h00=0x0010, h01=0x0050, text=»*     CRLEFT«, t00=0x002b, t01=0x0100}
0x4434…443e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0114}
0x443e…4478               Head {h00=0x0036, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS TO LEFT«, t00=0x002b, t01=0x011e}
0x4478…4482               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0158}
0x4482…44c2               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002b, t01=0x0162}
0x44c2…44cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0012}
0x44cc…44e0               Head {h00=0x0010, h01=0x0050, text=»CRLEFT EQU *«, t00=0x002c, t01=0x001c}
0x44e0…450e               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002c, t01=0x0030}
0x450e…4520               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x002c, t01=0x005e}
0x4520…4548               Head {h00=0x0024, h01=0x0050, text=» RF(NN) CRL050 NOT LEFTMOST POS «, t00=0x002c, t01=0x0070}
0x4548…4560               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x002c, t01=0x0098}
0x4560…4578               Head {h00=0x0014, h01=0x0050, text=»CRL050 RF CRH100«, t00=0x002c, t01=0x00b0}
0x4578…4582               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00c8}
0x4582…45c2               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002c, t01=0x00d2}
0x45c2…45cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0112}
0x45cc…45e0               Head {h00=0x0010, h01=0x0050, text=»*     CRRIGT«, t00=0x002c, t01=0x011c}
0x45e0…45ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0130}
0x45ea…462a               Head {h00=0x003c, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS. TO THE RIGHT«, t00=0x002c, t01=0x013a}
0x462a…4634               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x017a}
0x4634…4674               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002c, t01=0x0184}
0x4674…467e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0034}
0x467e…4694               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x002d, t01=0x003e}
0x4694…469e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0054}
0x469e…46b2               Head {h00=0x0010, h01=0x0050, text=»CRRIGT EQU *«, t00=0x002d, t01=0x005e}
0x46b2…46e0               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002d, t01=0x0072}
0x46e0…46f2               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x002d, t01=0x00a0}
0x46f2…4716               Head {h00=0x0020, h01=0x0050, text=» CWK A2,LBVDU END OF BUFFER?«, t00=0x002d, t01=0x00b2}
0x4716…472e               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRR050 NO«, t00=0x002d, t01=0x00d6}
0x472e…4740               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x002d, t01=0x00ee}
0x4740…4758               Head {h00=0x0014, h01=0x0050, text=»CRR050 RF CRH100«, t00=0x002d, t01=0x0100}
0x4758…4766               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0118}
0x4766…4770               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0126}
0x4770…47b4               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x002d, t01=0x0130}
0x47b4…47be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0174}
0x47be…47ce               Head {h00=0x000c, h01=0x0050, text=»* CRDOWN«, t00=0x002d, t01=0x017e}
0x47ce…47d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x018e}
0x47d8…4818               Head {h00=0x003c, h01=0x0050, text=»* THE MODULE MOVES THE CURSOR TO NEXT ROW. SAME COLUMN. «, t00=0x002e, t01=0x0008}
0x4818…4822               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0048}
0x4822…4866               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002e, t01=0x0052}
0x4866…4870               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0096}
0x4870…4884               Head {h00=0x0010, h01=0x0050, text=»CRDOWN EQU *«, t00=0x002e, t01=0x00a0}
0x4884…48ae               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x002e, t01=0x00b4}
0x48ae…48c4               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LLINE«, t00=0x002e, t01=0x00de}
0x48c4…48e4               Head {h00=0x001c, h01=0x0050, text=» CWK A2,LBVDU LAST LINE?«, t00=0x002e, t01=0x00f4}
0x48e4…48fc               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRD050 NO«, t00=0x002e, t01=0x0114}
0x48fc…4912               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LBVDU«, t00=0x002e, t01=0x012c}
0x4912…492a               Head {h00=0x0014, h01=0x0050, text=»CRD050 RF CRH100«, t00=0x002e, t01=0x0142}
0x492a…4934               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x015a}
0x4934…497a               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002e, t01=0x0164}
0x497a…4984               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x001a}
0x4984…4992               Head {h00=0x000a, h01=0x0050, text=»* CRUP«, t00=0x002f, t01=0x0024}
0x4992…499c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0032}
0x499c…49c8               Head {h00=0x0028, h01=0x0050, text=»* MOVE CURSOR ONE LINE UP. SAME COL.«, t00=0x002f, t01=0x003c}
0x49c8…49d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0068}
0x49d2…4a18               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002f, t01=0x0072}
0x4a18…4a22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00b8}
0x4a22…4a34               Head {h00=0x000e, h01=0x0050, text=»CRUP EQU *«, t00=0x002f, t01=0x00c2}
0x4a34…4a62               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002f, t01=0x00d4}
0x4a62…4a78               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LLINE«, t00=0x002f, t01=0x0102}
0x4a78…4a9a               Head {h00=0x001e, h01=0x0050, text=» RF(NN) CRU050 UPMOST LINE«, t00=0x002f, t01=0x0118}
0x4a9a…4ab0               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LBVDU«, t00=0x002f, t01=0x013a}
0x4ab0…4ac8               Head {h00=0x0014, h01=0x0050, text=»CRU050 RF CRH100«, t00=0x002f, t01=0x0150}
0x4ac8…4ad6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0168}
0x4ad6…4ae0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0176}
0x4ae0…4b1e               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002f, t01=0x0180}
0x4b1e…4b28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x002e}
0x4b28…4b38               Head {h00=0x000c, h01=0x0050, text=»* CRHOME«, t00=0x0030, t01=0x0038}
0x4b38…4b42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0048}
0x4b42…4b66               Head {h00=0x0020, h01=0x0050, text=»* HOME POSITIONING OF CURSOR«, t00=0x0030, t01=0x0052}
0x4b66…4b70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0076}
0x4b70…4bae               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0030, t01=0x0080}
0x4bae…4bb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00be}
0x4bb8…4bcc               Head {h00=0x0010, h01=0x0050, text=»CRHOME EQU *«, t00=0x0030, t01=0x00c8}
0x4bcc…4bde               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0030, t01=0x00dc}
0x4bde…4bf2               Head {h00=0x0010, h01=0x0050, text=»CRH100 EQU *«, t00=0x0030, t01=0x00ee}
0x4bf2…4c20               Head {h00=0x002a, h01=0x0050, text=» ST A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x0030, t01=0x0102}
0x4c20…4c44               Head {h00=0x0020, h01=0x0050, text=» CF A14,ATMASB UPDATE ATTRIB«, t00=0x0030, t01=0x0130}
0x4c44…4c6a               Head {h00=0x0022, h01=0x0050, text=» CF A14,SETCUR DISPLAY CURSOR «, t00=0x0030, t01=0x0154}
0x4c6a…4c7a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0030, t01=0x017a}
0x4c7a…4c88               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x018a}
0x4c88…4c92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0008}
0x4c92…4cd0               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0031, t01=0x0012}
0x4cd0…4cda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0050}
0x4cda…4ce8               Head {h00=0x000a, h01=0x0050, text=»* CRNL«, t00=0x0031, t01=0x005a}
0x4ce8…4cf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0068}
0x4cf2…4d28               Head {h00=0x0032, h01=0x0050, text=»* CURSOR IN FIRST UNPROTECTED POS ON NEW LINE «, t00=0x0031, t01=0x0072}
0x4d28…4d32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00a8}
0x4d32…4d70               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0031, t01=0x00b2}
0x4d70…4d7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00f0}
0x4d7a…4d8c               Head {h00=0x000e, h01=0x0050, text=»CRNL EQU *«, t00=0x0031, t01=0x00fa}
0x4d8c…4db6               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0031, t01=0x010c}
0x4db6…4dd6               Head {h00=0x001c, h01=0x0050, text=» ADKL A2,LLINE NEXT LINE«, t00=0x0031, t01=0x0136}
0x4dd6…4dec               Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x0031, t01=0x0156}
0x4dec…4e02               Head {h00=0x0012, h01=0x0050, text=» RF(L) CRN050 «, t00=0x0031, t01=0x016c}
0x4e02…4e20               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND «, t00=0x0031, t01=0x0182}
0x4e20…4e2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0010}
0x4e2a…4e48               Head {h00=0x001a, h01=0x0050, text=»* COMPUTE LEFTMOST POS«, t00=0x0032, t01=0x001a}
0x4e48…4e52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0038}
0x4e52…4e6a               Head {h00=0x0014, h01=0x0050, text=»CRN050 LDK A1,0 «, t00=0x0032, t01=0x0042}
0x4e6a…4e86               Head {h00=0x0018, h01=0x0050, text=»CRN100 SUKL A2,LLINE«, t00=0x0032, t01=0x005a}
0x4e86…4e9c               Head {h00=0x0012, h01=0x0050, text=» RF(N) CRN120 «, t00=0x0032, t01=0x0076}
0x4e9c…4eb2               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,LLINE«, t00=0x0032, t01=0x008c}
0x4eb2…4ec4               Head {h00=0x000e, h01=0x0050, text=» RB CRN100«, t00=0x0032, t01=0x00a2}
0x4ec4…4efa               Head {h00=0x0032, h01=0x0050, text=»CRN120 ST A1,PCURS,TCABAS STORE CURSOR ADDRESS«, t00=0x0032, t01=0x00b4}
0x4efa…4f08               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x00ea}
0x4f08…4f10               Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x00f8}
0x4f10…4f5a               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0032, t01=0x0100}
0x4f5a…4f6c               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0032, t01=0x014a}
0x4f6c…4f9e               Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x0032, t01=0x015c}
0x4f9e…4fb0               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0032, t01=0x018e}
0x4fb0…4fd8               Head {h00=0x0024, h01=0x0050, text=» RF(Z) CRN130 NO ATTRIBUTE FOUND«, t00=0x0033, t01=0x0010}
0x4fd8…4fec               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x0033, t01=0x0038}
0x4fec…5010               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TAB PROTECTED FIELD «, t00=0x0033, t01=0x004c}
0x5010…5042               Head {h00=0x002e, h01=0x0050, text=» CW A2,PCURS,TCABAS CURSOR ON ATTRIBUTE ??«, t00=0x0033, t01=0x0070}
0x5042…505e               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN150 NO!! «, t00=0x0033, t01=0x00a2}
0x505e…508a               Head {h00=0x0028, h01=0x0050, text=» CWK A2,1919 LAST SCREEN POSITION?? «, t00=0x0033, t01=0x00be}
0x508a…50a6               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN140 NO!! «, t00=0x0033, t01=0x00ea}
0x50a6…50c0               Head {h00=0x0016, h01=0x0050, text=»CRN130 LDKL A2,-1 «, t00=0x0033, t01=0x0106}
0x50c0…50d8               Head {h00=0x0014, h01=0x0050, text=»CRN140 ADK A2,1 «, t00=0x0033, t01=0x0120}
0x50d8…50f4               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x0033, t01=0x0138}
0x50f4…5120               Head {h00=0x0028, h01=0x0050, text=»CRN150 CF A14,SETCUR POSITION CURSOR«, t00=0x0033, t01=0x0154}
0x5120…5130               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0033, t01=0x0180}
0x5130…517c               Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0033, t01=0x0190}
0x517c…518a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x004c}
0x518a…5194               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x005a}
0x5194…51d0               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0034, t01=0x0064}
0x51d0…51da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00a0}
0x51da…51e8               Head {h00=0x000a, h01=0x0050, text=»* TAB «, t00=0x0034, t01=0x00aa}
0x51e8…51f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00b8}
0x51f2…5228               Head {h00=0x0032, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHAR. LOCATION «, t00=0x0034, t01=0x00c2}
0x5228…5254               Head {h00=0x0028, h01=0x0050, text=»* OF THE NEXT UNPROTECTED DATA FIELD«, t00=0x0034, t01=0x00f8}
0x5254…525e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0124}
0x525e…529a               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0034, t01=0x012e}
0x529a…52a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x016a}
0x52a4…52da               Head {h00=0x0032, h01=0x0050, text=»* A1=END OF BUFFER PAREM.    0=EOB NOT REACHED«, t00=0x0034, t01=0x0174}
0x52da…52ec               Head {h00=0x000e, h01=0x0050, text=»*   2=EOB «, t00=0x0035, t01=0x001a}
0x52ec…530c               Head {h00=0x001c, h01=0x0050, text=»*   3=ATTRIB. IN EOB POS«, t00=0x0035, t01=0x002c}
0x530c…532e               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x0035, t01=0x004c}
0x532e…5344               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTGR«, t00=0x0035, t01=0x006e}
0x5344…534e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0084}
0x534e…5360               Head {h00=0x000e, h01=0x0050, text=»TAB EQU * «, t00=0x0035, t01=0x008e}
0x5360…5372               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x0035, t01=0x00a0}
0x5372…539c               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0035, t01=0x00b2}
0x539c…53ca               Head {h00=0x002a, h01=0x0050, text=»TAB100 CF A14,ATMASF SEARCH ATTRIBUTE «, t00=0x0035, t01=0x00dc}
0x53ca…53ea               Head {h00=0x001c, h01=0x0050, text=» CWK A1,0 END OF BUFFER?«, t00=0x0035, t01=0x010a}
0x53ea…5404               Head {h00=0x0016, h01=0x0050, text=» RF(G) TAB300 YES «, t00=0x0035, t01=0x012a}
0x5404…5416               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0035, t01=0x0144}
0x5416…543c               Head {h00=0x0022, h01=0x0050, text=»TAB150 ANK A3,/10 UNPROTECTED?«, t00=0x0035, t01=0x0156}
0x543c…5456               Head {h00=0x0016, h01=0x0050, text=» RF(E) TAB200 YES «, t00=0x0035, t01=0x017c}
0x5456…5476               Head {h00=0x001c, h01=0x0050, text=» RB TAB100 NEXT ATTRIB. «, t00=0x0036, t01=0x0008}
0x5476…5498               Head {h00=0x001e, h01=0x0050, text=»TAB200 ST A2,PCURS,TCABAS «, t00=0x0036, t01=0x0028}
0x5498…54c2               Head {h00=0x0026, h01=0x0050, text=» CF A14,SETCUR DISPLAY NEW CURSOR «, t00=0x0036, t01=0x004a}
0x54c2…54d2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0036, t01=0x0074}
0x54d2…54ea               Head {h00=0x0014, h01=0x0050, text=»TAB300 LDK A2,0 «, t00=0x0036, t01=0x0084}
0x54ea…551a               Head {h00=0x002c, h01=0x0050, text=» CWK A1,3 ATTRIBUTE IN LAST POSITION ?? «, t00=0x0036, t01=0x009c}
0x551a…5528               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x00cc}
0x5528…5568               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0036, t01=0x00da}
0x5568…5584               Head {h00=0x0018, h01=0x0050, text=» RF(NE) TAB350 NO!! «, t00=0x0036, t01=0x011a}
0x5584…55b0               Head {h00=0x0028, h01=0x0050, text=» ANK A5,1 WHOLE BUFFER CONTROLLED ??«, t00=0x0036, t01=0x0136}
0x55b0…55cc               Head {h00=0x0018, h01=0x0050, text=» RB(Z) TAB200 YES!! «, t00=0x0036, t01=0x0162}
0x55cc…55e0               Head {h00=0x0010, h01=0x0050, text=» SUR A5,A5  «, t00=0x0036, t01=0x017e}
0x55e0…5602 (55, 0, 398)  Head {h00=0x001e, h01=0x0050, text=» RB TAB150 CHECK ATTRIBUTE«, t00=0x0037, t01=0x0004}
0x5602…5616               Head {h00=0x0010, h01=0x0050, text=»TAB350 EQU *«, t00=0x0037, t01=0x0026}
0x5616…5656               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0037, t01=0x003a}
0x5656…567e               Head {h00=0x0024, h01=0x0050, text=» ANK A5,1 WHOLE BUFF. CONTROLED?«, t00=0x0037, t01=0x007a}
0x567e…5696               Head {h00=0x0014, h01=0x0050, text=» RF(G) TAB400 NO«, t00=0x0037, t01=0x00a2}
0x5696…56ca               Head {h00=0x0030, h01=0x0050, text=» RB TAB200 ALL PROT. OR NON-FORMATTED BUFF. «, t00=0x0037, t01=0x00ba}
0x56ca…56e2               Head {h00=0x0014, h01=0x0050, text=»TAB400 LDK A5,0 «, t00=0x0037, t01=0x00ee}
0x56e2…56f4               Head {h00=0x000e, h01=0x0050, text=» RB TAB100«, t00=0x0037, t01=0x0106}
0x56f4…5702               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0118}
0x5702…570c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0126}
0x570c…5750               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0037, t01=0x0130}
0x5750…575a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0174}
0x575a…5768               Head {h00=0x000a, h01=0x0050, text=»* DUP «, t00=0x0037, t01=0x017e}
0x5768…5772               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x018c}
0x5772…578a               Head {h00=0x0014, h01=0x0050, text=»* DUPLICATE KEY «, t00=0x0038, t01=0x0008}
0x578a…57c8               Head {h00=0x003a, h01=0x0050, text=»* OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x0038, t01=0x0020}
0x57c8…5806               Head {h00=0x003a, h01=0x0050, text=»* TO BE ENTERED INTO THE DISPLAY BUFFER AND A STANDARD«, t00=0x0038, t01=0x005e}
0x5806…5832               Head {h00=0x0028, h01=0x0050, text=»* TAB KEY OPERATION TO BE PERFORMED «, t00=0x0038, t01=0x009c}
0x5832…583c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00c8}
0x583c…5880               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0038, t01=0x00d2}
0x5880…588a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0116}
0x588a…589c               Head {h00=0x000e, h01=0x0050, text=»DUP EQU * «, t00=0x0038, t01=0x0120}
0x589c…58c6               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0038, t01=0x0132}
0x58c6…5900               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE«, t00=0x0038, t01=0x015c}
0x5900…5916               Head {h00=0x0012, h01=0x0050, text=» LDK A2,DUPCH «, t00=0x0039, t01=0x0008}
0x5916…594a               Head {h00=0x0030, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFF. ADDR.«, t00=0x0039, t01=0x001e}
0x594a…595c               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x0039, t01=0x0052}
0x595c…5970               Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0039, t01=0x0064}
0x5970…5984               Head {h00=0x0010, h01=0x0050, text=» CF A14,TAB «, t00=0x0039, t01=0x0078}
0x5984…5994               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x008c}
0x5994…59a2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x009c}
0x59a2…59ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00aa}
0x59ac…59f0               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0039, t01=0x00b4}
0x59f0…59fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00f8}
0x59fa…5a14               Head {h00=0x0016, h01=0x0050, text=»*       FIELD MARK«, t00=0x0039, t01=0x0102}
0x5a14…5a1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x011c}
0x5a1e…5a62               Head {h00=0x0040, h01=0x0050, text=»*       OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x0039, t01=0x0126}
0x5a62…5aa2               Head {h00=0x003c, h01=0x0050, text=»*       TO BE ENTERED IN THE DISPLAY BUFFER IN ADDITION «, t00=0x0039, t01=0x016a}
0x5aa2…5ad2               Head {h00=0x002c, h01=0x0050, text=»*       TO THE DC CHARACTER TRANSMITTED «, t00=0x003a, t01=0x001a}
0x5ad2…5adc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x004a}
0x5adc…5b1e               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003a, t01=0x0054}
0x5b1e…5b28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0096}
0x5b28…5b3c               Head {h00=0x0010, h01=0x0050, text=»FLDMRK EQU *«, t00=0x003a, t01=0x00a0}
0x5b3c…5b64               Head {h00=0x0024, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE??«, t00=0x003a, t01=0x00b4}
0x5b64…5b9e               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE«, t00=0x003a, t01=0x00dc}
0x5b9e…5bb2               Head {h00=0x0010, h01=0x0050, text=» LDK A2,FMCH«, t00=0x003a, t01=0x0116}
0x5bb2…5be8               Head {h00=0x0032, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFFER ADDR. «, t00=0x003a, t01=0x012a}
0x5be8…5bfa               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x003a, t01=0x0160}
0x5bfa…5c0e               Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x003a, t01=0x0172}
0x5c0e…5c1e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003a, t01=0x0186}
0x5c1e…5c2c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0008}
0x5c2c…5c36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0016}
0x5c36…5c78               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003b, t01=0x0020}
0x5c78…5c82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0062}
0x5c82…5c98               Head {h00=0x0012, h01=0x0050, text=»*       RDHOME«, t00=0x003b, t01=0x006c}
0x5c98…5ca2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0082}
0x5ca2…5cc0               Head {h00=0x001a, h01=0x0050, text=»*       READY HOME KEY«, t00=0x003b, t01=0x008c}
0x5cc0…5cfc               Head {h00=0x0038, h01=0x0050, text=»*       OPERATION OF THIS KEY CAUSES THE CURSOR TOBE«, t00=0x003b, t01=0x00aa}
0x5cfc…5d3a               Head {h00=0x003a, h01=0x0050, text=»*        POSITIONED AT THE FIRST UNPROTECTED CHARACTER«, t00=0x003b, t01=0x00e6}
0x5d3a…5d58               Head {h00=0x001a, h01=0x0050, text=»*       ON THE SCREEN «, t00=0x003b, t01=0x0124}
0x5d58…5d62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0142}
0x5d62…5da2               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003b, t01=0x014c}
0x5da2…5dac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x018c}
0x5dac…5dc8               Head {h00=0x0018, h01=0x0050, text=»RDHOME LDKL A4,BVDU «, t00=0x003c, t01=0x0008}
0x5dc8…5df2               Head {h00=0x0026, h01=0x0050, text=» ADR A4,TCABAS VDU BUFFER ADDRESS «, t00=0x003c, t01=0x0024}
0x5df2…5e22               Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x003c, t01=0x004e}
0x5e22…5e36               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003c, t01=0x007e}
0x5e36…5e4a               Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x003c, t01=0x0092}
0x5e4a…5e60               Head {h00=0x0012, h01=0x0050, text=» RF(NL) RDH10 «, t00=0x003c, t01=0x00a6}
0x5e60…5e74               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003c, t01=0x00bc}
0x5e74…5e9c               Head {h00=0x0024, h01=0x0050, text=» ABL(Z) CRHOME UNPROTECTED FIELD«, t00=0x003c, t01=0x00d0}
0x5e9c…5eba               Head {h00=0x001a, h01=0x0050, text=»RDH10 CM PCURS,TCABAS «, t00=0x003c, t01=0x00f8}
0x5eba…5eea               Head {h00=0x002c, h01=0x0050, text=» CF A14,TAB SEARCH 1ST UNPROTECTED FIELD«, t00=0x003c, t01=0x0116}
0x5eea…5efa               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003c, t01=0x0146}
0x5efa…5f08               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0156}
0x5f08…5f12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0164}
0x5f12…5f50               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003c, t01=0x016e}
0x5f50…5f5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x001c}
0x5f5a…5f6a               Head {h00=0x000c, h01=0x0050, text=»* BAKTAB«, t00=0x003d, t01=0x0026}
0x5f6a…5f74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0036}
0x5f74…5fae               Head {h00=0x0036, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHARACTER LOCATION «, t00=0x003d, t01=0x0040}
0x5fae…5fe4               Head {h00=0x0032, h01=0x0050, text=»* OF THE NEXT PRECIDING UNPROTECTED DATA FIELD«, t00=0x003d, t01=0x007a}
0x5fe4…5fee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00b0}
0x5fee…602a               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x003d, t01=0x00ba}
0x602a…6034               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00f6}
0x6034…6056               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x003d, t01=0x0100}
0x6056…606c               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x003d, t01=0x0122}
0x606c…6080               Head {h00=0x0010, h01=0x0050, text=»BAKTAB EQU *«, t00=0x003d, t01=0x0138}
0x6080…6092               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x003d, t01=0x014c}
0x6092…60bc               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x003d, t01=0x015e}
0x60bc…60e2               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x003d, t01=0x0188}
0x60e2…6104               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR? «, t00=0x003e, t01=0x001e}
0x6104…611e               Head {h00=0x0016, h01=0x0050, text=» RF(NG) BAK100 YES«, t00=0x003e, t01=0x0040}
0x611e…6144               Head {h00=0x0022, h01=0x0050, text=» CWK A2,0 UPPER LEFTMOST POS? «, t00=0x003e, t01=0x005a}
0x6144…615e               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x003e, t01=0x0080}
0x615e…6170               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003e, t01=0x009a}
0x6170…619c               Head {h00=0x0028, h01=0x0050, text=»BAK100 CWK A2,0 UPPER LEFTMOST POS? «, t00=0x003e, t01=0x00ac}
0x619c…61b6               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x003e, t01=0x00d8}
0x61b6…61ce               Head {h00=0x0014, h01=0x0050, text=»BAK200 SUK A2,1 «, t00=0x003e, t01=0x00f2}
0x61ce…61f6               Head {h00=0x0024, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE «, t00=0x003e, t01=0x010a}
0x61f6…623a               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003e, t01=0x0132}
0x623a…624c               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003e, t01=0x0176}
0x624c…626e               Head {h00=0x001e, h01=0x0050, text=» RF(Z) BAK400 NO ATTRIBUTE«, t00=0x003e, t01=0x0188}
0x626e…62a6               Head {h00=0x0034, h01=0x0050, text=» RF(N) BAK250 ATTRIBUTE FOUND. NOT IN LAST POS. «, t00=0x003f, t01=0x001a}
0x62a6…62da               Head {h00=0x0030, h01=0x0050, text=» SUR A2,A2 ATTRIBUTE FOUND IN LAST POSITION «, t00=0x003f, t01=0x0052}
0x62da…62ec               Head {h00=0x000e, h01=0x0050, text=» RF BAK300«, t00=0x003f, t01=0x0086}
0x62ec…6300               Head {h00=0x0010, h01=0x0050, text=»BAK250 EQU *«, t00=0x003f, t01=0x0098}
0x6300…6342               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x003f, t01=0x00ac}
0x6342…6360               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x003f, t01=0x00ee}
0x6360…637a               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK100 YES«, t00=0x003f, t01=0x010c}
0x637a…638c               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x003f, t01=0x0126}
0x638c…63ae               Head {h00=0x001e, h01=0x0050, text=»BAK300 ST A2,PCURS,TCABAS «, t00=0x003f, t01=0x0138}
0x63ae…63d0               Head {h00=0x001e, h01=0x0050, text=» CF A14,SETCUR SET CURSOR «, t00=0x003f, t01=0x015a}
0x63d0…63e0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003f, t01=0x017c}
0x63e0…640e               Head {h00=0x002a, h01=0x0050, text=»BAK400 SUK A5,1 WHOLE BUFF CONTROLLED?«, t00=0x003f, t01=0x018c}
0x640e…6428               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) BAK300 YES«, t00=0x0040, t01=0x002a}
0x6428…6454               Head {h00=0x0028, h01=0x0050, text=» LDKL A2,LBVDU-1 END BUFFER ADDRESS «, t00=0x0040, t01=0x0044}
0x6454…647a               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x0040, t01=0x0070}
0x647a…649e               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x0040, t01=0x0096}
0x649e…64b6               Head {h00=0x0014, h01=0x0050, text=» RB(G) BAK200 NO«, t00=0x0040, t01=0x00ba}
0x64b6…64d4               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x0040, t01=0x00d2}
0x64d4…64ee               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK200 YES«, t00=0x0040, t01=0x00f0}
0x64ee…6520               Head {h00=0x002e, h01=0x0050, text=» ST A3,ATTRIB,TCABAS UPDATE NEW ATTRIBUTE «, t00=0x0040, t01=0x010a}
0x6520…653c               Head {h00=0x0018, h01=0x0050, text=» ST A2,CURATT,TCABAS«, t00=0x0040, t01=0x013c}
0x653c…6584               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0040, t01=0x0158}
0x6584…6596               Head {h00=0x000e, h01=0x0050, text=» RB BAK200«, t00=0x0041, t01=0x0010}
0x6596…65de               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0041, t01=0x0022}
0x65de…65ec               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x006a}
0x65ec…65f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0078}
0x65f6…6638               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0041, t01=0x0082}
0x6638…6642               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00c4}
0x6642…6650               Head {h00=0x000a, h01=0x0050, text=»* CHAR«, t00=0x0041, t01=0x00ce}
0x6650…665a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00dc}
0x665a…6698               Head {h00=0x003a, h01=0x0050, text=»* ALPHABETIC AND SPECIAL CHAR UPDATING AND DISPLAYING «, t00=0x0041, t01=0x00e6}
0x6698…66a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0124}
0x66a2…66e4               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0041, t01=0x012e}
0x66e4…66ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0170}
0x66ee…6702               Head {h00=0x0010, h01=0x0050, text=»LCASPW EQU *«, t00=0x0041, t01=0x017a}
0x6702…6732               Head {h00=0x002c, h01=0x0050, text=» SUK A2,/50 CONVERT TO LOWER CASE P - W «, t00=0x0041, t01=0x018e}
0x6732…6754               Head {h00=0x001e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS«, t00=0x0042, t01=0x002e}
0x6754…675e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0050}
0x675e…6770               Head {h00=0x000e, h01=0x0050, text=»CHAR EQU *«, t00=0x0042, t01=0x005a}
0x6770…679a               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0042, t01=0x006c}
0x679a…67cc               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x0042, t01=0x0096}
0x67cc…67f0               Head {h00=0x0020, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIB?«, t00=0x0042, t01=0x00c8}
0x67f0…680a               Head {h00=0x0016, h01=0x0050, text=» RF(E) CHA300 YES «, t00=0x0042, t01=0x00ec}
0x680a…6840               Head {h00=0x0032, h01=0x0050, text=»CHA100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0042, t01=0x0106}
0x6840…6852               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0042, t01=0x013c}
0x6852…6878               Head {h00=0x0022, h01=0x0050, text=» ANK A4,/10 PROTECTRED FIELD? «, t00=0x0042, t01=0x014e}
0x6878…6892               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CHA300 YES«, t00=0x0042, t01=0x0174}
0x6892…68aa               Head {h00=0x0014, h01=0x0050, text=»CHA200 LDR A4,A3«, t00=0x0042, t01=0x018e}
0x68aa…68cc               Head {h00=0x001e, h01=0x0050, text=» ANK A4,/8 NUMERIC FIELD? «, t00=0x0043, t01=0x0016}
0x68cc…68e4               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x0043, t01=0x0038}
0x68e4…6914               Head {h00=0x002c, h01=0x0050, text=»CHA300 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x0043, t01=0x0050}
0x6914…691e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0080}
0x691e…6930               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x008a}
0x6930…6956               Head {h00=0x0022, h01=0x0050, text=»* UPDATING OF FIELD SEPARATOR «, t00=0x0043, t01=0x009c}
0x6956…6966               Head {h00=0x000c, h01=0x0050, text=»*    DK4«, t00=0x0043, t01=0x00c2}
0x6966…6970               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00d2}
0x6970…698a               Head {h00=0x0016, h01=0x0050, text=»CHARFS EQU *  DK4 «, t00=0x0043, t01=0x00dc}
0x698a…69b2               Head {h00=0x0024, h01=0x0050, text=» LDK A2,/26 LOAD CHARACTER & DK4«, t00=0x0043, t01=0x00f6}
0x69b2…69f4               Head {h00=0x003e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS RESTORE CHARACTER IN BUFFER DK4«, t00=0x0043, t01=0x011e}
0x69f4…6a16               Head {h00=0x001e, h01=0x0050, text=» RB CHAR  DISPLAY CHAR DK4«, t00=0x0043, t01=0x0160}
0x6a16…6a20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0182}
0x6a20…6a2e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x018c}
0x6a2e…6a76               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0044, t01=0x000a}
0x6a76…6a80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0052}
0x6a80…6aaa               Head {h00=0x0026, h01=0x0050, text=»*   Z E R O : 3    TRIPLE ZERO KEY«, t00=0x0044, t01=0x005c}
0x6aaa…6ad6               Head {h00=0x0028, h01=0x0050, text=»*   Z E R O : 2     DOUBLE ZERO KEY «, t00=0x0044, t01=0x0086}
0x6ad6…6ae0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00b2}
0x6ae0…6b1a               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0044, t01=0x00bc}
0x6b1a…6b22               Head {h00=0x0004, h01=0x0050, t00=0x0044, t01=0x00f6}
0x6b22…6b36               Head {h00=0x0010, h01=0x0050, text=»ZERO:3 EQU *«, t00=0x0044, t01=0x00fe}
0x6b36…6b5a               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0044, t01=0x0112}
0x6b5a…6b96               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0044, t01=0x0136}
0x6b96…6bbc               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0044, t01=0x0172}
0x6bbc…6bc4               Head {h00=0x0004, h01=0x0050, t00=0x0045, t01=0x0008}
0x6bc4…6bd8               Head {h00=0x0010, h01=0x0050, text=»ZERO:2 EQU *«, t00=0x0045, t01=0x0010}
0x6bd8…6bfc               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0045, t01=0x0024}
0x6bfc…6c38               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0045, t01=0x0048}
0x6c38…6c5e               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0045, t01=0x0084}
0x6c5e…6c84               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0045, t01=0x00aa}
0x6c84…6c9c               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0045, t01=0x00d0}
0x6c9c…6ca6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00e8}
0x6ca6…6ce8               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0045, t01=0x00f2}
0x6ce8…6cf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0134}
0x6cf2…6d00               Head {h00=0x000a, h01=0x0050, text=»* NUM «, t00=0x0045, t01=0x013e}
0x6d00…6d0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x014c}
0x6d0a…6d30               Head {h00=0x0022, h01=0x0050, text=»* DISPLAY AND UPDATE NUMERICS «, t00=0x0045, t01=0x0156}
0x6d30…6d3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x017c}
0x6d3a…6d7c               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0045, t01=0x0186}
0x6d7c…6d86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0038}
0x6d86…6d9a               Head {h00=0x0010, h01=0x0050, text=»NUMCOM EQU *«, t00=0x0046, t01=0x0042}
0x6d9a…6dae               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2C «, t00=0x0046, t01=0x0056}
0x6dae…6dd0               Head {h00=0x001e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS«, t00=0x0046, t01=0x006a}
0x6dd0…6dda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x008c}
0x6dda…6dec               Head {h00=0x000e, h01=0x0050, text=»NUM EQU * «, t00=0x0046, t01=0x0096}
0x6dec…6e16               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0046, t01=0x00a8}
0x6e16…6e48               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x0046, t01=0x00d2}
0x6e48…6e70               Head {h00=0x0024, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIBUTE? «, t00=0x0046, t01=0x0104}
0x6e70…6e8a               Head {h00=0x0016, h01=0x0050, text=» RF(E) NUM200 YES «, t00=0x0046, t01=0x012c}
0x6e8a…6ec0               Head {h00=0x0032, h01=0x0050, text=»NUM100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0046, t01=0x0146}
0x6ec0…6ed2               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0046, t01=0x017c}
0x6ed2…6ef6               Head {h00=0x0020, h01=0x0050, text=» ANK A4,/10 PROTECTED FIELD?«, t00=0x0046, t01=0x018e}
0x6ef6…6f0e               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x0047, t01=0x0022}
0x6f0e…6f3e               Head {h00=0x002c, h01=0x0050, text=»NUM200 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x0047, t01=0x003a}
0x6f3e…6f4c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x006a}
0x6f4c…6f56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0078}
0x6f56…6f98               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0047, t01=0x0082}
0x6f98…6fa2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00c4}
0x6fa2…6fb2               Head {h00=0x000c, h01=0x0050, text=»* ANCOMM«, t00=0x0047, t01=0x00ce}
0x6fb2…6fbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00de}
0x6fbc…6ffc               Head {h00=0x003c, h01=0x0050, text=»* COMMON SUBMODULE FOR ALPHANUMERIC CHAR. DISPLAYING AND«, t00=0x0047, t01=0x00e8}
0x6ffc…700e               Head {h00=0x000e, h01=0x0050, text=»* UPDATING«, t00=0x0047, t01=0x0128}
0x700e…7018               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x013a}
0x7018…705a               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0047, t01=0x0144}
0x705a…7064               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0186}
0x7064…7078               Head {h00=0x0010, h01=0x0050, text=»ANCOMM EQU *«, t00=0x0047, t01=0x0190}
0x7078…709e               Head {h00=0x0022, h01=0x0050, text=» LC* A4,ECBKB+ECBBA,CREBAS  =1«, t00=0x0048, t01=0x0014}
0x709e…70b2               Head {h00=0x0010, h01=0x0050, text=»ANC005 EQU *«, t00=0x0048, t01=0x003a}
0x70b2…70c8               Head {h00=0x0012, h01=0x0050, text=» LDKL A6,BVDU «, t00=0x0048, t01=0x004e}
0x70c8…70de               Head {h00=0x0012, h01=0x0050, text=» ADR A6,TCABAS«, t00=0x0048, t01=0x0064}
0x70de…70f0               Head {h00=0x000e, h01=0x0050, text=» ADR A6,A2«, t00=0x0048, t01=0x007a}
0x70f0…70f8               Head {h00=0x0004, h01=0x0050, t00=0x0048, t01=0x008c}
0x70f8…7122               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0048, t01=0x0094}
0x7122…713e               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ANC010 YES!!«, t00=0x0048, t01=0x00be}
0x713e…7160               Head {h00=0x001e, h01=0x0050, text=» SCR A4,A6 UPDATE VDU BUFF«, t00=0x0048, t01=0x00da}
0x7160…718e               Head {h00=0x002a, h01=0x0050, text=»ANC010 LDR A7,A6 SAVE CURSOR POSITION «, t00=0x0048, t01=0x00fc}
0x718e…71aa               Head {h00=0x0018, h01=0x0050, text=» LD A5,CURATT,TCABAS«, t00=0x0048, t01=0x012a}
0x71aa…71d6               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0048, t01=0x0146}
0x71d6…71f0               Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC100 YES «, t00=0x0048, t01=0x0172}
0x71f0…7214               Head {h00=0x0020, h01=0x0050, text=» SUR A6,A2 BVDU START ADDR. «, t00=0x0048, t01=0x018c}
0x7214…7232               Head {h00=0x001a, h01=0x0050, text=» ADR A6,A5 ATTRIB. POS«, t00=0x0049, t01=0x0020}
0x7232…7262               Head {h00=0x002c, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0049, t01=0x003e}
0x7262…727e               Head {h00=0x0018, h01=0x0050, text=» ORK A3,1 MDT-BIT ON«, t00=0x0049, t01=0x006e}
0x727e…7290               Head {h00=0x000e, h01=0x0050, text=» SCR A3,A6«, t00=0x0049, t01=0x008a}
0x7290…72a4               Head {h00=0x0010, h01=0x0050, text=»ANC100 EQU *«, t00=0x0049, t01=0x009c}
0x72a4…72bc               Head {h00=0x0014, h01=0x0050, text=» IFT IN:DL=1  =3«, t00=0x0049, t01=0x00b0}
0x72bc…72e6               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0049, t01=0x00c8}
0x72e6…7300               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC120 NO!!«, t00=0x0049, t01=0x00f2}
0x7300…7334               Head {h00=0x0030, h01=0x0050, text=» LCR A1,A7 GET CHARACTER AT CURSOR POSITION «, t00=0x0049, t01=0x010c}
0x7334…7348               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/7F «, t00=0x0049, t01=0x0140}
0x7348…7364               Head {h00=0x0018, h01=0x0050, text=» CWK A1,NULL NULL?? «, t00=0x0049, t01=0x0154}
0x7364…7380               Head {h00=0x0018, h01=0x0050, text=» RF(NE) INS:10 NO!! «, t00=0x0049, t01=0x0170}
0x7380…73a8               Head {h00=0x0024, h01=0x0050, text=» SCR A4,A7 STORE INPUT CHARACTER«, t00=0x0049, t01=0x018c}
0x73a8…73ba               Head {h00=0x000e, h01=0x0050, text=» XIF   =3 «, t00=0x004a, t01=0x0024}
0x73ba…73ce               Head {h00=0x0010, h01=0x0050, text=»ANC120 EQU *«, t00=0x004a, t01=0x0036}
0x73ce…73d6               Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x004a}
0x73d6…740c               Head {h00=0x0032, h01=0x0050, text=» LDK A5,/2B CURSOR NOT MOVED BEFORE DISPLAYING«, t00=0x004a, t01=0x0052}
0x740c…7430               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBVDU+ECBBA,CREBAS  «, t00=0x004a, t01=0x0088}
0x7430…7448               Head {h00=0x0014, h01=0x0050, text=» SC A5,1,A1  =1 «, t00=0x004a, t01=0x00ac}
0x7448…745c               Head {h00=0x0010, h01=0x0050, text=» LDK A5,/1E «, t00=0x004a, t01=0x00c4}
0x745c…7476               Head {h00=0x0016, h01=0x0050, text=» ADK A1,2 NEXT POS«, t00=0x004a, t01=0x00d8}
0x7476…74a2               Head {h00=0x0028, h01=0x0050, text=» SCR A5,A1 LOW INT, STORE IN BUFFER «, t00=0x004a, t01=0x00f2}
0x74a2…74b4               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A3«, t00=0x004a, t01=0x011e}
0x74b4…74dc               Head {h00=0x0024, h01=0x0050, text=» ANK A3,/4 STANDARD DISPLAYING? «, t00=0x004a, t01=0x0130}
0x74dc…74f6               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC200 YES «, t00=0x004a, t01=0x0158}
0x74f6…7520               Head {h00=0x0026, h01=0x0050, text=» ANK A6,/2 INTENSIFIED DISPLAYING?«, t00=0x004a, t01=0x0172}
0x7520…753a               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC150 YES «, t00=0x004b, t01=0x000c}
0x753a…7558               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD SPACE«, t00=0x004b, t01=0x0026}
0x7558…757a               Head {h00=0x001e, h01=0x0050, text=» RF ANC250 NON DISPLAYING «, t00=0x004b, t01=0x0044}
0x757a…75a6               Head {h00=0x0028, h01=0x0050, text=»ANC150 LDK A5,/1F SET HIGH INTENSITY«, t00=0x004b, t01=0x0066}
0x75a6…75c8               Head {h00=0x001e, h01=0x0050, text=» SCR A5,A1 STORE IN BUFFER«, t00=0x004b, t01=0x0092}
0x75c8…75f4               Head {h00=0x0028, h01=0x0050, text=»ANC200 LDR A2,A4 UPDATE A2 WITH CHAR«, t00=0x004b, t01=0x00b4}
0x75f4…7628               Head {h00=0x0030, h01=0x0050, text=»ANC250 CF A14,WCHAR DISPLAY CHAR AND CURSOR «, t00=0x004b, t01=0x00e0}
0x7628…7652               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x004b, t01=0x0114}
0x7652…7664               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x004b, t01=0x013e}
0x7664…7678               Head {h00=0x0010, h01=0x0050, text=»ANC252 EQU *«, t00=0x004b, t01=0x0150}
0x7678…768e               Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x004b, t01=0x0164}
0x768e…76a4               Head {h00=0x0012, h01=0x0050, text=» RF(NE) ANC255«, t00=0x004b, t01=0x017a}
0x76a4…76b6               Head {h00=0x000e, h01=0x0050, text=» LDKL A2,0«, t00=0x004b, t01=0x0190}
0x76b6…76ca               Head {h00=0x0010, h01=0x0050, text=»ANC255 EQU *«, t00=0x004c, t01=0x0012}
0x76ca…76e6               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x004c, t01=0x0026}
0x76e6…770c               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x004c, t01=0x0042}
0x770c…7730               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x004c, t01=0x0068}
0x7730…7748               Head {h00=0x0014, h01=0x0050, text=» RF(G) ANC300 NO«, t00=0x004c, t01=0x008c}
0x7748…7750               Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x00a4}
0x7750…777c               Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB SKIP TO NEXT UNPROTECTED«, t00=0x004c, t01=0x00ac}
0x777c…7790               Head {h00=0x0010, h01=0x0050, text=»ANC300 EQU *«, t00=0x004c, t01=0x00d8}
0x7790…77b4               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBCW,A8 CONTROL WORD«, t00=0x004c, t01=0x00ec}
0x77b4…77d8               Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' LINE POSITION «, t00=0x004c, t01=0x0110}
0x77d8…7804               Head {h00=0x0028, h01=0x0050, text=» SUK A1,80 LAST POSITION ON LINE ?? «, t00=0x004c, t01=0x0134}
0x7804…7820               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ANC350 NO!!!«, t00=0x004c, t01=0x0160}
0x7820…785e               Head {h00=0x003a, h01=0x0050, text=» CF A14,SETCUR POSITION CURSOR TO 1:ST POS. NEXT LINE «, t00=0x004c, t01=0x017c}
0x785e…7872               Head {h00=0x0010, h01=0x0050, text=»ANC350 EQU *«, t00=0x004d, t01=0x002a}
0x7872…7882               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004d, t01=0x003e}
0x7882…7896               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x004d, t01=0x004e}
0x7896…78a4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x0062}
0x78a4…78ac               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x0070}
0x78ac…78e8               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x004d, t01=0x0078}
0x78e8…78f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00b4}
0x78f2…7932               Head {h00=0x003c, h01=0x0050, text=»*   DELETE CHARACTER AT CURSOR POSITION. SHIFT CARACTERS«, t00=0x004d, t01=0x00be}
0x7932…7964               Head {h00=0x002e, h01=0x0050, text=»*   AT SAME LINE ONE POSITION TO THE LEFT «, t00=0x004d, t01=0x00fe}
0x7964…796e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0130}
0x796e…79b2               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x004d, t01=0x013a}
0x79b2…79ba               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x017e}
0x79ba…79ce               Head {h00=0x0010, h01=0x0050, text=»DELETE EQU *«, t00=0x004d, t01=0x0186}
0x79ce…79e2               Head {h00=0x0010, h01=0x0050, text=» LDKL A6,-1 «, t00=0x004e, t01=0x000a}
0x79e2…7a0c               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS CURSOR ADDRESS«, t00=0x004e, t01=0x001e}
0x7a0c…7a38               Head {h00=0x0028, h01=0x0050, text=»DEL:10 ADK A6,80 END OF LINE POINTER«, t00=0x004e, t01=0x0048}
0x7a38…7a6a               Head {h00=0x002e, h01=0x0050, text=» CWR A6,A2 LAST POSITION ON CURRENT LINE??«, t00=0x004e, t01=0x0074}
0x7a6a…7a92               Head {h00=0x0024, h01=0x0050, text=» RB(L) DEL:10 NO!! TRY NEXT LINE«, t00=0x004e, t01=0x00a6}
0x7a92…7a9a               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x00ce}
0x7a9a…7ac8               Head {h00=0x002a, h01=0x0050, text=» CF A14,S:ATT SEARCH ATTRIBUTE FORWARD«, t00=0x004e, t01=0x00d6}
0x7ac8…7aec               Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 ATTRIBUTE FOUND ??«, t00=0x004e, t01=0x0104}
0x7aec…7b06               Head {h00=0x0016, h01=0x0050, text=» RF(Z) DEL:20 NO!!«, t00=0x004e, t01=0x0128}
0x7b06…7b38               Head {h00=0x002e, h01=0x0050, text=» CWR A2,A6 ATTRIBUTE AFTER END OF LINE ?? «, t00=0x004e, t01=0x0142}
0x7b38…7b54               Head {h00=0x0018, h01=0x0050, text=» RF(G) DEL:20 YES!! «, t00=0x004e, t01=0x0174}
0x7b54…7b74               Head {h00=0x001c, h01=0x0050, text=» SUK A2,1 SKIP ATTRIBUTE«, t00=0x004e, t01=0x0190}
0x7b74…7b86               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A2«, t00=0x004f, t01=0x0020}
0x7b86…7b9e               Head {h00=0x0014, h01=0x0050, text=»DEL:20 LDR A2,A6«, t00=0x004f, t01=0x0032}
0x7b9e…7ba6               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x004a}
0x7ba6…7bae               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x0052}
0x7bae…7bc2               Head {h00=0x0010, h01=0x0050, text=» LDK A1,BVDU«, t00=0x004f, t01=0x005a}
0x7bc2…7bf0               Head {h00=0x002a, h01=0x0050, text=» ADR A1,TCABAS ABSOLUTE BUFFER ADDRESS«, t00=0x004f, t01=0x006e}
0x7bf0…7c14               Head {h00=0x0020, h01=0x0050, text=» ADR A2,A1 END OF FIELD/LINE«, t00=0x004f, t01=0x009c}
0x7c14…7c40               Head {h00=0x0028, h01=0x0050, text=» AD A1,PCURS,TCABAS CURSOR POSITION «, t00=0x004f, t01=0x00c0}
0x7c40…7c48               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x00ec}
0x7c48…7c7a               Head {h00=0x002e, h01=0x0050, text=»DEL:30 CWR A2,A1 ALL CHARACTERS SHIFTED ??«, t00=0x004f, t01=0x00f4}
0x7c7a…7c96               Head {h00=0x0018, h01=0x0050, text=» RF(E) DEL:40 YES!! «, t00=0x004f, t01=0x0126}
0x7c96…7cb8               Head {h00=0x001e, h01=0x0050, text=» LC A3,1,A1 GET CHARACTER «, t00=0x004f, t01=0x0142}
0x7cb8…7cdc               Head {h00=0x0020, h01=0x0050, text=» ORK A3,/80 SET MODIFIED BIT«, t00=0x004f, t01=0x0164}
0x7cdc…7d0a               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A1 SHIFT CHARACTER 1 POS. LEFT«, t00=0x004f, t01=0x0188}
0x7d0a…7d1c               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0050, t01=0x0026}
0x7d1c…7d42               Head {h00=0x0022, h01=0x0050, text=» RB DEL:30 GET NEXT CHARACTER «, t00=0x0050, t01=0x0038}
0x7d42…7d4a               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x005e}
0x7d4a…7d52               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x0066}
0x7d52…7d80               Head {h00=0x002a, h01=0x0050, text=»DEL:40 LDK A3,NULL+/80 NULL CHARACTER «, t00=0x0050, t01=0x006e}
0x7d80…7dae               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A2 STORE AT END OF FIELD/LINE «, t00=0x0050, t01=0x009c}
0x7dae…7dd4               Head {h00=0x0022, h01=0x0050, text=» LD A3,ATTRIB,TCABAS ATTRIBUTE«, t00=0x0050, t01=0x00ca}
0x7dd4…7dfc               Head {h00=0x0024, h01=0x0050, text=» ORK A3,1 SET MODIFIED FIELD BIT«, t00=0x0050, t01=0x00f0}
0x7dfc…7e04               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x0118}
0x7e04…7e3a               Head {h00=0x0032, h01=0x0050, text=» LD A1,CURATT,TCABAS CURRENT ATTRIBUTE ADDRESS«, t00=0x0050, t01=0x0120}
0x7e3a…7e68               Head {h00=0x002a, h01=0x0050, text=» CWK A1,LBVDU+1 UNFORMATTED SCREEN ???«, t00=0x0050, t01=0x0156}
0x7e68…7e84               Head {h00=0x0018, h01=0x0050, text=» RF(E) INS:60 YES!!!«, t00=0x0050, t01=0x0184}
0x7e84…7e9a               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,BVDU «, t00=0x0051, t01=0x0010}
0x7e9a…7ecc               Head {h00=0x002e, h01=0x0050, text=» ADR A1,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x0051, t01=0x0026}
0x7ecc…7ef2               Head {h00=0x0022, h01=0x0050, text=» SCR A3,A1 SAVE NEW ATTRIBUTE «, t00=0x0051, t01=0x0058}
0x7ef2…7f1c               Head {h00=0x0026, h01=0x0050, text=» RF INS:60 DISPLAY MODIFIED FIELD «, t00=0x0051, t01=0x007e}
0x7f1c…7f2a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x00a8}
0x7f2a…7f32               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x00b6}
0x7f32…7f78               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0051, t01=0x00be}
0x7f78…7f82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0104}
0x7f82…7fc6               Head {h00=0x0040, h01=0x0050, text=»*   INSERT CHARACTER AT CURSOR POSITION. SHIFT CHARACTERS IN«, t00=0x0051, t01=0x010e}
0x7fc6…8006               Head {h00=0x003c, h01=0x0050, text=»*   SAME FIELD , EXCEPT NULLS, ONE POSITION TO THE RIGHT«, t00=0x0051, t01=0x0152}
0x8006…8010 (82, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0004}
0x8010…804c               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0052, t01=0x000e}
0x804c…8054               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x004a}
0x8054…8068               Head {h00=0x0010, h01=0x0050, text=»INSERT EQU *«, t00=0x0052, t01=0x0052}
0x8068…8090               Head {h00=0x0024, h01=0x0050, text=» IM MODE,TCABAS SET INSERT MODE «, t00=0x0052, t01=0x0066}
0x8090…80c2               Head {h00=0x002e, h01=0x0050, text=» CF A14,LIOLON TURN ON "INSERT MODE" LAMP «, t00=0x0052, t01=0x008e}
0x80c2…80d2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0052, t01=0x00c0}
0x80d2…80da               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x00d0}
0x80da…80e2               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x00d8}
0x80e2…80fc               Head {h00=0x0016, h01=0x0050, text=»INS:10 LDR A6,A7  «, t00=0x0052, t01=0x00e0}
0x80fc…8110               Head {h00=0x0010, h01=0x0050, text=» LDR A9,A4  «, t00=0x0052, t01=0x00fa}
0x8110…813c               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN??«, t00=0x0052, t01=0x010e}
0x813c…8158               Head {h00=0x0018, h01=0x0050, text=» RF(NE) INS:20 NO!! «, t00=0x0052, t01=0x013a}
0x8158…8170               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x0052, t01=0x0156}
0x8170…8182               Head {h00=0x000e, h01=0x0050, text=» RF INS:30«, t00=0x0052, t01=0x016e}
0x8182…818a               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x0180}
0x818a…8192               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x0188}
0x8192…81c6               Head {h00=0x0030, h01=0x0050, text=»INS:20 CF A14,S:ATT SEARCH ATTRIBUTE FORWARD«, t00=0x0052, t01=0x0190}
0x81c6…81ce               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0034}
0x81ce…81d6               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x003c}
0x81d6…81fa               Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 ATTRIBUTE FOUND ??«, t00=0x0053, t01=0x0044}
0x81fa…8214               Head {h00=0x0016, h01=0x0050, text=» RF(Z) INS:30 NO!!«, t00=0x0053, t01=0x0068}
0x8214…8226               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0053, t01=0x0082}
0x8226…822e               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0094}
0x822e…824a               Head {h00=0x0018, h01=0x0050, text=»INS:30 ADR A2,TCABAS«, t00=0x0053, t01=0x009c}
0x824a…8284               Head {h00=0x0036, h01=0x0050, text=» ADK A2,BVDU ADD BUFFER DISPLACEMENT IN WORK-BLOCK«, t00=0x0053, t01=0x00b8}
0x8284…82b6               Head {h00=0x002e, h01=0x0050, text=» CF A14,S:NULL SEARCH FIRST NULL CHARACTER«, t00=0x0053, t01=0x00f2}
0x82b6…82e8               Head {h00=0x002e, h01=0x0050, text=»INS:40 CWR A2,A6 ALL CHARACTERS SHIFTED ??«, t00=0x0053, t01=0x0124}
0x82e8…8304               Head {h00=0x0018, h01=0x0050, text=» RF(E) INS:50 YES!! «, t00=0x0053, t01=0x0156}
0x8304…8326               Head {h00=0x001e, h01=0x0050, text=» LC A3,-1,A2 GET CHARACTER«, t00=0x0053, t01=0x0172}
0x8326…834a (84, 0, 400)  Head {h00=0x0020, h01=0x0050, text=» ORK A3,/80 SET MODIFIED BIT«, t00=0x0054, t01=0x0004}
0x834a…8378               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A2 SHIFT CHAR ONE POS TO RIGHT«, t00=0x0054, t01=0x0028}
0x8378…838a               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0054, t01=0x0056}
0x838a…83b0               Head {h00=0x0022, h01=0x0050, text=» RB INS:40 GET NEXT CHARACTER «, t00=0x0054, t01=0x0068}
0x83b0…83b8               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x008e}
0x83b8…83c0               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x0096}
0x83c0…83ec               Head {h00=0x0028, h01=0x0050, text=»INS:50 ORKL A9,/80 SET MODIFIED BIT «, t00=0x0054, t01=0x009e}
0x83ec…841e               Head {h00=0x002e, h01=0x0050, text=» SCR A9,A6 SAVE INPUT CHARACTER IN BUFFER «, t00=0x0054, t01=0x00ca}
0x841e…8450               Head {h00=0x002e, h01=0x0050, text=» IM PCURS,TCABAS INCREMENT CURSOR POSITION«, t00=0x0054, t01=0x00fc}
0x8450…8464               Head {h00=0x0010, h01=0x0050, text=»INS:60 EQU *«, t00=0x0054, t01=0x012e}
0x8464…8492               Head {h00=0x002a, h01=0x0050, text=» CF A14,DISPL DISPLAY MODIFIED FIELDS «, t00=0x0054, t01=0x0142}
0x8492…84be               Head {h00=0x0028, h01=0x0050, text=» LD A2,PCURS,TCABAS CURSOR POSITION «, t00=0x0054, t01=0x0170}
0x84be…84d0               Head {h00=0x000e, h01=0x0050, text=» RB ANC252«, t00=0x0055, t01=0x000c}
0x84d0…84dc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x001e}
0x84dc…84ea               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x002a}
0x84ea…84f2               Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0038}
0x84f2…8534               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0055, t01=0x0040}
0x8534…853e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0082}
0x853e…8576               Head {h00=0x0034, h01=0x0050, text=»*   SEARCH FIRST NULL CHARACTER AFTER CURSOR POS«, t00=0x0055, t01=0x008c}
0x8576…8580               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00c4}
0x8580…85be               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0055, t01=0x00ce}
0x85be…85c6               Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x010c}
0x85c6…85da               Head {h00=0x0010, h01=0x0050, text=»S:NULL EQU *«, t00=0x0055, t01=0x0114}
0x85da…85ec               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0055, t01=0x0128}
0x85ec…85f4               Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x013a}
0x85f4…860c               Head {h00=0x0014, h01=0x0050, text=»S:NU10 CWR A1,A2«, t00=0x0055, t01=0x0142}
0x860c…8622               Head {h00=0x0012, h01=0x0050, text=» RF(E) S:NU30 «, t00=0x0055, t01=0x015a}
0x8622…8642               Head {h00=0x001c, h01=0x0050, text=» LCR A3,A1 GET CHARACTER«, t00=0x0055, t01=0x0170}
0x8642…866c               Head {h00=0x0026, h01=0x0050, text=» ANK A3,/7F MASK AWAY MODIFIED BIT«, t00=0x0055, t01=0x0190}
0x866c…8690               Head {h00=0x0020, h01=0x0050, text=» CWK A3,NULL NULL CHARACTER «, t00=0x0056, t01=0x002a}
0x8690…86ac               Head {h00=0x0018, h01=0x0050, text=» RF(E) S:NU20 YES!! «, t00=0x0056, t01=0x004e}
0x86ac…86be               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0056, t01=0x006a}
0x86be…86ec               Head {h00=0x002a, h01=0x0050, text=» RB S:NU10 CHECK NEXT BUFFER CHARACTER«, t00=0x0056, t01=0x007c}
0x86ec…86f4               Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x00aa}
0x86f4…8722               Head {h00=0x002a, h01=0x0050, text=»S:NU20 LDR A2,A1 ADDRESS OF FIRST NULL«, t00=0x0056, t01=0x00b2}
0x8722…8738               Head {h00=0x0012, h01=0x0050, text=»S:NU30 RTN A14«, t00=0x0056, t01=0x00e0}
0x8738…8746               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x00f6}
0x8746…8750               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0104}
0x8750…8792               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0056, t01=0x010e}
0x8792…879c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0150}
0x879c…87ac               Head {h00=0x000c, h01=0x0050, text=»* CANCEL«, t00=0x0056, t01=0x015a}
0x87ac…87b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x016a}
0x87b6…87f4               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0056, t01=0x0174}
0x87f4…881c               Head {h00=0x0024, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER «, t00=0x0057, t01=0x0022}
0x881c…8826               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x004a}
0x8826…8868               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0057, t01=0x0054}
0x8868…8872               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0096}
0x8872…8886               Head {h00=0x0010, h01=0x0050, text=»CANCEL EQU *«, t00=0x0057, t01=0x00a0}
0x8886…8898               Head {h00=0x000e, h01=0x0050, text=»PA2 EQU * «, t00=0x0057, t01=0x00b4}
0x8898…88b6               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/2E CANCEL POS«, t00=0x0057, t01=0x00c6}
0x88b6…88ca               Head {h00=0x0010, h01=0x0050, text=»CAN100 EQU *«, t00=0x0057, t01=0x00e4}
0x88ca…88f2               Head {h00=0x0024, h01=0x0050, text=» LC A2,TASCII,A2 GET ASCII CODE «, t00=0x0057, t01=0x00f8}
0x88f2…8906               Head {h00=0x0010, h01=0x0050, text=»CAN200 EQU *«, t00=0x0057, t01=0x0120}
0x8906…8938               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x0057, t01=0x0134}
0x8938…8964               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0057, t01=0x0166}
0x8964…8974 (88, 0, 398)  Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x0004}
0x8974…897e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0014}
0x897e…8986               Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x001e}
0x8986…8998               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0058, t01=0x0026}
0x8998…89a0               Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0038}
0x89a0…89aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0040}
0x89aa…89b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x004a}
0x89b4…89fe               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM ATTENTION KEY IS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x0058, t01=0x0054}
0x89fe…8a3c               Head {h00=0x003a, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PA1.CANCEL OR PA3 «, t00=0x0058, t01=0x009e}
0x8a3c…8a46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00dc}
0x8a46…8a50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00e6}
0x8a50…8a62               Head {h00=0x000e, h01=0x0050, text=»PAEX EQU *«, t00=0x0058, t01=0x00f0}
0x8a62…8a78               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PAEXA«, t00=0x0058, t01=0x0102}
0x8a78…8a94               Head {h00=0x0018, h01=0x0050, text=» ST A1,RDMORE,TCABAS«, t00=0x0058, t01=0x0118}
0x8a94…8aa4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x0134}
0x8aa4…8ab8               Head {h00=0x0010, h01=0x0050, text=»PAEXA EQU * «, t00=0x0058, t01=0x0144}
0x8ab8…8ad2               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x0058, t01=0x0158}
0x8ad2…8af6               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CHECK IF NUM.1-3«, t00=0x0058, t01=0x0172}
0x8af6…8b18               Head {h00=0x001e, h01=0x0050, text=» RF(L) PFERR ILLEGAL CHAR.«, t00=0x0059, t01=0x0008}
0x8b18…8b3c               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/2 CHECK IF NUM.1-3 «, t00=0x0059, t01=0x002a}
0x8b3c…8b5e               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL CHAR.«, t00=0x0059, t01=0x004e}
0x8b5e…8b70               Head {h00=0x000e, h01=0x0050, text=» RF(Z) PA3«, t00=0x0059, t01=0x0070}
0x8b70…8b82               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0059, t01=0x0082}
0x8b82…8b94               Head {h00=0x000e, h01=0x0050, text=» RB(Z) PA2«, t00=0x0059, t01=0x0094}
0x8b94…8ba4               Head {h00=0x000c, h01=0x0050, text=» RF PA1 «, t00=0x0059, t01=0x00a6}
0x8ba4…8bce               Head {h00=0x0026, h01=0x0050, text=» RTN A14 RETURN TO MAIN READ LOOP «, t00=0x0059, t01=0x00b6}
0x8bce…8bd6               Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x00e0}
0x8bd6…8be2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x00e8}
0x8be2…8bf0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x00f4}
0x8bf0…8bf8               Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x0102}
0x8bf8…8c02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x010a}
0x8c02…8c2c               Head {h00=0x0026, h01=0x0050, text=»*    PA1    PROGRAM ATTENTION KEY «, t00=0x0059, t01=0x0114}
0x8c2c…8c36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x013e}
0x8c36…8c40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0148}
0x8c40…8c52               Head {h00=0x000e, h01=0x0050, text=»PA1 EQU * «, t00=0x0059, t01=0x0152}
0x8c52…8c6e               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2C PA1 POS «, t00=0x0059, t01=0x0164}
0x8c6e…8c80               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x0059, t01=0x0180}
0x8c80…8c8a (90, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0004}
0x8c8a…8c94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x000e}
0x8c94…8cbc               Head {h00=0x0024, h01=0x0050, text=»*    PA3   PROGRAM ATTENTION KEY«, t00=0x005a, t01=0x0018}
0x8cbc…8cc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0040}
0x8cc6…8cd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x004a}
0x8cd0…8ce2               Head {h00=0x000e, h01=0x0050, text=»PA3 EQU * «, t00=0x005a, t01=0x0054}
0x8ce2…8cfe               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2B PA3 POS «, t00=0x005a, t01=0x0066}
0x8cfe…8d10               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x005a, t01=0x0082}
0x8d10…8d1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0094}
0x8d1a…8d3a               Head {h00=0x001c, h01=0x0050, text=»* PA4 - PA10 (ALFASKOP) «, t00=0x005a, t01=0x009e}
0x8d3a…8d44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00be}
0x8d44…8d58               Head {h00=0x0010, h01=0x0050, text=»PA410 EQU * «, t00=0x005a, t01=0x00c8}
0x8d58…8d6c               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x005a, t01=0x00dc}
0x8d6c…8d7e               Head {h00=0x000e, h01=0x0050, text=» RB CAN200«, t00=0x005a, t01=0x00f0}
0x8d7e…8d8c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x0102}
0x8d8c…8d96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0110}
0x8d96…8dd6               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x005a, t01=0x011a}
0x8dd6…8de0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x015a}
0x8de0…8df0               Head {h00=0x000c, h01=0x0050, text=»* ENTER «, t00=0x005a, t01=0x0164}
0x8df0…8dfa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0174}
0x8dfa…8e36               Head {h00=0x0038, h01=0x0050, text=»* PROGRAM FUNCTION KEY WHICH CAUSES AN I/O OPERATION«, t00=0x005a, t01=0x017e}
0x8e36…8e76               Head {h00=0x003c, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER FOLLOWED BY AN SBA ORDER«, t00=0x005b, t01=0x002a}
0x8e76…8eb2               Head {h00=0x0038, h01=0x0050, text=»* ATTRIBUTE ADDRESS AND TEXT FOR EACH MODIFIED FIELD«, t00=0x005b, t01=0x006a}
0x8eb2…8ed0               Head {h00=0x001a, h01=0x0050, text=»* NULLS ARE SUPRESSED «, t00=0x005b, t01=0x00a6}
0x8ed0…8eda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00c4}
0x8eda…8f1c               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x005b, t01=0x00ce}
0x8f1c…8f26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0110}
0x8f26…8f3a               Head {h00=0x0010, h01=0x0050, text=»ENTER EQU * «, t00=0x005b, t01=0x011a}
0x8f3a…8f58               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/3D ENTER POS «, t00=0x005b, t01=0x012e}
0x8f58…8f6c               Head {h00=0x0010, h01=0x0050, text=»ENT100 EQU *«, t00=0x005b, t01=0x014c}
0x8f6c…8f96               Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x005b, t01=0x0160}
0x8f96…8fc8               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x005b, t01=0x018a}
0x8fc8…8ffa               Head {h00=0x002e, h01=0x0050, text=» CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT «, t00=0x005c, t01=0x002c}
0x8ffa…900e               Head {h00=0x0010, h01=0x0050, text=»ENT200 EQU *«, t00=0x005c, t01=0x005e}
0x900e…901e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005c, t01=0x0072}
0x901e…9028               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0082}
0x9028…9030               Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x008c}
0x9030…9042               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x005c, t01=0x0094}
0x9042…904a               Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x00a6}
0x904a…9054               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00ae}
0x9054…905e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00b8}
0x905e…90a8               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM FUNCTION KEY IOS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x005c, t01=0x00c2}
0x90a8…90dc               Head {h00=0x0030, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PF1-PF12«, t00=0x005c, t01=0x010c}
0x90dc…90e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0140}
0x90e6…90f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x014a}
0x90f0…9102               Head {h00=0x000e, h01=0x0050, text=»PFEX EQU *«, t00=0x005c, t01=0x0154}
0x9102…9118               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PFEXA«, t00=0x005c, t01=0x0166}
0x9118…912a               Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x005c, t01=0x017c}
0x912a…913e               Head {h00=0x0010, h01=0x0050, text=»PFEXA EQU * «, t00=0x005c, t01=0x018e}
0x913e…9158               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005d, t01=0x0012}
0x9158…9178               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL CHAR ?«, t00=0x005d, t01=0x002c}
0x9178…91a8               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING «, t00=0x005d, t01=0x004c}
0x91a8…91d2               Head {h00=0x0026, h01=0x0050, text=» RF(Z) PF0 FIRST NUM. 0 GO TO PF0 «, t00=0x005d, t01=0x007c}
0x91d2…91f4               Head {h00=0x001e, h01=0x0050, text=» SUK A2,/1 FIRST NUM. 1 ? «, t00=0x005d, t01=0x00a6}
0x91f4…9216               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL NUM. «, t00=0x005d, t01=0x00c8}
0x9216…922c               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PF1A «, t00=0x005d, t01=0x00ea}
0x922c…923e               Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x005d, t01=0x0100}
0x923e…9250               Head {h00=0x000e, h01=0x0050, text=»PF1A EQU *«, t00=0x005d, t01=0x0112}
0x9250…926a               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005d, t01=0x0124}
0x926a…928a               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL NUM.? «, t00=0x005d, t01=0x013e}
0x928a…92ba               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005d, t01=0x015e}
0x92ba…92d8               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/2 LEGAL NUM ?«, t00=0x005d, t01=0x018e}
0x92d8…9308               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005e, t01=0x001c}
0x9308…9328               Head {h00=0x001c, h01=0x0050, text=» ADK A2,/3C PF10-12 POS «, t00=0x005e, t01=0x004c}
0x9328…933a               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x005e, t01=0x006c}
0x933a…9342               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x007e}
0x9342…9354               Head {h00=0x000e, h01=0x0050, text=»PF0 EQU * «, t00=0x005e, t01=0x0086}
0x9354…936a               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PF0A «, t00=0x005e, t01=0x0098}
0x936a…937e               Head {h00=0x0010, h01=0x0050, text=»PFNXT EQU * «, t00=0x005e, t01=0x00ae}
0x937e…939a               Head {h00=0x0018, h01=0x0050, text=» ST A1,RDMORE,TCABAS«, t00=0x005e, t01=0x00c2}
0x939a…93aa               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005e, t01=0x00de}
0x93aa…93bc               Head {h00=0x000e, h01=0x0050, text=»PF0A EQU *«, t00=0x005e, t01=0x00ee}
0x93bc…93d6               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005e, t01=0x0100}
0x93d6…93f6               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/31 LEGAL NUM ? «, t00=0x005e, t01=0x011a}
0x93f6…9426               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005e, t01=0x013a}
0x9426…9444               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/8 LEGAL NUM ?«, t00=0x005e, t01=0x016a}
0x9444…9474               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005e, t01=0x0188}
0x9474…9492               Head {h00=0x001a, h01=0x0050, text=» ADK A2,/39 PF1-9 POS «, t00=0x005f, t01=0x0028}
0x9492…94a4               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x005f, t01=0x0046}
0x94a4…94b0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x0058}
0x94b0…94c4               Head {h00=0x0010, h01=0x0050, text=»PFERR EQU * «, t00=0x005f, t01=0x0064}
0x94c4…94f2               Head {h00=0x002a, h01=0x0050, text=» CF A14,ERROR GO TO ERR-HANDLING RUTIN«, t00=0x005f, t01=0x0078}
0x94f2…951a               Head {h00=0x0024, h01=0x0050, text=» RTN A14 GO TO MAIN READ MODULE «, t00=0x005f, t01=0x00a6}
0x951a…9522               Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x00ce}
0x9522…952a               Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x00d6}
0x952a…953a               Head {h00=0x000c, h01=0x0050, text=»PF EQU *«, t00=0x005f, t01=0x00de}
0x953a…954e               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/5C «, t00=0x005f, t01=0x00ee}
0x954e…9560               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x005f, t01=0x0102}
0x9560…9574               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x005f, t01=0x0114}
0x9574…9582               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x0128}
0x9582…95c6               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005f, t01=0x0136}
0x95c6…95d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x017a}
0x95d0…95e0               Head {h00=0x000c, h01=0x0050, text=»* OFLINE«, t00=0x005f, t01=0x0184}
0x95e0…9620 (96, 0, 400)  Head {h00=0x003c, h01=0x0050, text=»*            THE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND «, t00=0x0060, t01=0x0004}
0x9620…965c               Head {h00=0x0038, h01=0x0050, text=»*           A BRANCH IS MADE BACK TO CREDIT PROGRAM «, t00=0x0060, t01=0x0044}
0x965c…9666               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0080}
0x9666…96ac               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0060, t01=0x008a}
0x96ac…96c0               Head {h00=0x0010, h01=0x0050, text=»OFLINE EQU *«, t00=0x0060, t01=0x00d0}
0x96c0…96d6               Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0060, t01=0x00e4}
0x96d6…96ea               Head {h00=0x0010, h01=0x0050, text=»OFLI05 EQU *«, t00=0x0060, t01=0x00fa}
0x96ea…9700               Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0060, t01=0x010e}
0x9700…9714               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0060, t01=0x0124}
0x9714…972e               Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x0060, t01=0x0138}
0x972e…9740               Head {h00=0x000e, h01=0x0050, text=» XRK A7,1 «, t00=0x0060, t01=0x0152}
0x9740…975a               Head {h00=0x0016, h01=0x0050, text=» ST A7,MAIN,TCABAS«, t00=0x0060, t01=0x0164}
0x975a…978e               Head {h00=0x0030, h01=0x0050, text=» CF A14,DCABOR ABORT REQUEST NOT CURRENT MF «, t00=0x0060, t01=0x017e}
0x978e…979a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0022}
0x979a…97ae               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0061, t01=0x002e}
0x97ae…97e8               Head {h00=0x0036, h01=0x0050, text=» LDK A1,0 DV ADDRESS ::= 0MESSAGES TO VDU IGNORED «, t00=0x0061, t01=0x0042}
0x97e8…9806               Head {h00=0x001a, h01=0x0050, text=» LDKL A8,ECBDC MF # 1 «, t00=0x0061, t01=0x007c}
0x9806…9830               Head {h00=0x0026, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETERS «, t00=0x0061, t01=0x009a}
0x9830…9844               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0061, t01=0x00c4}
0x9844…9862               Head {h00=0x001a, h01=0x0050, text=» LDKL A8,ECBDC2 MF # 2«, t00=0x0061, t01=0x00d8}
0x9862…988c               Head {h00=0x0026, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETERS «, t00=0x0061, t01=0x00f6}
0x988c…9898               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0120}
0x9898…98ac               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0061, t01=0x012c}
0x98ac…98c2               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1OF«, t00=0x0061, t01=0x0140}
0x98c2…98d8               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2OF«, t00=0x0061, t01=0x0156}
0x98d8…98ee               Head {h00=0x0012, h01=0x0050, text=» CF A14,LSAVOF«, t00=0x0061, t01=0x016c}
0x98ee…991a               Head {h00=0x0028, h01=0x0050, text=» CF A14,LIOLON TURN ON OFFLINE LAMP «, t00=0x0061, t01=0x0182}
0x991a…9944               Head {h00=0x0026, h01=0x0050, text=» IM OFFFLG,TCABAS SET OFFLINE FLAG«, t00=0x0062, t01=0x001e}
0x9944…996c               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 SKIP ONE STACK LEVEL«, t00=0x0062, t01=0x0048}
0x996c…999a               Head {h00=0x002a, h01=0x0050, text=» LD A13,2,A14 RELOAD REGISTERS A12-A13«, t00=0x0062, t01=0x0070}
0x999a…99b0               Head {h00=0x0012, h01=0x0050, text=» LD A12,4,A14 «, t00=0x0062, t01=0x009e}
0x99b0…99d8               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0062, t01=0x00b4}
0x99d8…9a06               Head {h00=0x002a, h01=0x0050, text=» ABL I:RT1 RETURN TO "OFFLINE" PROGRAM«, t00=0x0062, t01=0x00dc}
0x9a06…9a0e               Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x010a}
0x9a0e…9a1a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x0112}
0x9a1a…9a2e               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0062, t01=0x011e}
0x9a2e…9a3c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0062, t01=0x0132}
0x9a3c…9a80               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0062, t01=0x0140}
0x9a80…9a8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0184}
0x9a8a…9aa4               Head {h00=0x0016, h01=0x0050, text=»* MAINFRAME CHANGE«, t00=0x0062, t01=0x018e}
0x9aa4…9af0               Head {h00=0x0048, h01=0x0050, text=»*   THE SWITCH 'MAIN' IS CHANGED, AND THE APPROPRIATE 'SYSTEM' LAMP «, t00=0x0063, t01=0x0018}
0x9af0…9b0e               Head {h00=0x001a, h01=0x0050, text=»*       IS TTURNED ON «, t00=0x0063, t01=0x0064}
0x9b0e…9b18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0082}
0x9b18…9b66               Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0063, t01=0x008c}
0x9b66…9b70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00da}
0x9b70…9b84               Head {h00=0x0010, h01=0x0050, text=»MFCHGE EQU *«, t00=0x0063, t01=0x00e4}
0x9b84…9b9a               Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0063, t01=0x00f8}
0x9b9a…9bae               Head {h00=0x0010, h01=0x0050, text=»MFCH05 EQU *«, t00=0x0063, t01=0x010e}
0x9bae…9bc4               Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0063, t01=0x0122}
0x9bc4…9bda               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1OF«, t00=0x0063, t01=0x0138}
0x9bda…9bf0               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2OF«, t00=0x0063, t01=0x014e}
0x9bf0…9c06               Head {h00=0x0012, h01=0x0050, text=» CF A14,LSAVOF«, t00=0x0063, t01=0x0164}
0x9c06…9c20               Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x0063, t01=0x017a}
0x9c20…9c32 (100, 0, 400) Head {h00=0x000e, h01=0x0050, text=» XRK A1,1 «, t00=0x0064, t01=0x0004}
0x9c32…9c48               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MFCH10«, t00=0x0064, t01=0x0016}
0x9c48…9c5e               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1ON«, t00=0x0064, t01=0x002c}
0x9c5e…9c70               Head {h00=0x000e, h01=0x0050, text=» RF MFCH90«, t00=0x0064, t01=0x0042}
0x9c70…9c84               Head {h00=0x0010, h01=0x0050, text=»MFCH10 EQU *«, t00=0x0064, t01=0x0054}
0x9c84…9c9a               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2ON«, t00=0x0064, t01=0x0068}
0x9c9a…9cae               Head {h00=0x0010, h01=0x0050, text=»MFCH90 EQU *«, t00=0x0064, t01=0x007e}
0x9cae…9cc8               Head {h00=0x0016, h01=0x0050, text=» ST A1,MAIN,TCABAS«, t00=0x0064, t01=0x0092}
0x9cc8…9cd8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0064, t01=0x00ac}
0x9cd8…9ce4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x00bc}
0x9ce4…9cf2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x00c8}
0x9cf2…9cfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00d6}
0x9cfc…9d3c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0064, t01=0x00e0}
0x9d3c…9d46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0120}
0x9d46…9d56               Head {h00=0x000c, h01=0x0050, text=»* CLEAR «, t00=0x0064, t01=0x012a}
0x9d56…9d60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x013a}
0x9d60…9d9e               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0064, t01=0x0144}
0x9d9e…9dda               Head {h00=0x0038, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER. THE ENTIRE DISPLAY «, t00=0x0064, t01=0x0182}
0x9dda…9e18               Head {h00=0x003a, h01=0x0050, text=»* BUFFER IS CLEARED TO NULLS AND CURSOR IS LOCATED IN «, t00=0x0065, t01=0x002e}
0x9e18…9e2a               Head {h00=0x000e, h01=0x0050, text=»* HOME POS«, t00=0x0065, t01=0x006c}
0x9e2a…9e34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x007e}
0x9e34…9e74               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0065, t01=0x0088}
0x9e74…9e7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00c8}
0x9e7e…9e92               Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x0065, t01=0x00d2}
0x9e92…9eb6               Head {h00=0x0020, h01=0x0050, text=» LDK A2,/2D POS FOR 'CLEAR' «, t00=0x0065, t01=0x00e6}
0x9eb6…9ece               Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x0065, t01=0x010a}
0x9ece…9f00               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x0065, t01=0x0122}
0x9f00…9f2c               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0065, t01=0x0154}
0x9f2c…9f56               Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x0065, t01=0x0180}
0x9f56…9f66               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0066, t01=0x001a}
0x9f66…9f74               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x002a}
0x9f74…9f7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0038}
0x9f7e…9fc2               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0066, t01=0x0042}
0x9fc2…9fcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0086}
0x9fcc…9fdc               Head {h00=0x000c, h01=0x0050, text=»* EREOF «, t00=0x0066, t01=0x0090}
0x9fdc…9fe6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00a0}
0x9fe6…a006               Head {h00=0x001c, h01=0x0050, text=»* ERASE TO END OF FIELD «, t00=0x0066, t01=0x00aa}
0xa006…a010               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00ca}
0xa010…a054               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0066, t01=0x00d4}
0xa054…a05e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0118}
0xa05e…a072               Head {h00=0x0010, h01=0x0050, text=»EREOF EQU * «, t00=0x0066, t01=0x0122}
0xa072…a084               Head {h00=0x000e, h01=0x0050, text=» LDK A6,1 «, t00=0x0066, t01=0x0136}
0xa084…a0ae               Head {h00=0x0026, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE«, t00=0x0066, t01=0x0148}
0xa0ae…a0ce               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/10 UNPROTECTED?«, t00=0x0066, t01=0x0172}
0xa0ce…a0e8 (103, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE100 YES «, t00=0x0067, t01=0x0004}
0xa0e8…a0fa               Head {h00=0x000e, h01=0x0050, text=» ABL ERROR«, t00=0x0067, t01=0x001e}
0xa0fa…a11c               Head {h00=0x001e, h01=0x0050, text=»ERE100 LD A2,PCURS,TCABAS «, t00=0x0067, t01=0x0030}
0xa11c…a124               Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x0052}
0xa124…a150               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0067, t01=0x005a}
0xa150…a158               Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x0086}
0xa158…a18e               Head {h00=0x0032, h01=0x0050, text=» CW A2,CURATT,TCABAS STANDING ON ATTRIBUTE ?? «, t00=0x0067, t01=0x008e}
0xa18e…a1bc               Head {h00=0x002a, h01=0x0050, text=» ABL(E) ERROR YES!! TURN ON ERROR LAMP«, t00=0x0067, t01=0x00c4}
0xa1bc…a1c4               Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x00f2}
0xa1c4…a1f0               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0067, t01=0x00fa}
0xa1f0…a1f8               Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x0126}
0xa1f8…a224               Head {h00=0x0028, h01=0x0050, text=»ERE150 CF A14,GBUFFC GET BUFF. CHAR «, t00=0x0067, t01=0x012e}
0xa224…a246               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR«, t00=0x0067, t01=0x015a}
0xa246…a25e               Head {h00=0x0014, h01=0x0050, text=» RF(G) ERE200 NO«, t00=0x0067, t01=0x017c}
0xa25e…a276 (104, 0, 398) Head {h00=0x0014, h01=0x0050, text=»ERE160 LDR A1,A2«, t00=0x0068, t01=0x0004}
0xa276…a292               Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0068, t01=0x001c}
0xa292…a2a6               Head {h00=0x0010, h01=0x0050, text=»ERE170 EQU *«, t00=0x0068, t01=0x0038}
0xa2a6…a2bc               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0068, t01=0x004c}
0xa2bc…a2d2               Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0068, t01=0x0062}
0xa2d2…a2e4               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0068, t01=0x0078}
0xa2e4…a318               Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE AND REPLASE WITH NULLS «, t00=0x0068, t01=0x008a}
0xa318…a344               Head {h00=0x0028, h01=0x0050, text=» CF A14,DISPL DISPLAY ERASED SCREEN «, t00=0x0068, t01=0x00be}
0xa344…a34e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00ea}
0xa34e…a37a               Head {h00=0x0028, h01=0x0050, text=»*   SET MDT BIT IF FORMATTED SCREEN «, t00=0x0068, t01=0x00f4}
0xa37a…a384               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0120}
0xa384…a38c               Head {h00=0x0004, h01=0x0050, t00=0x0068, t01=0x012a}
0xa38c…a3a8               Head {h00=0x0018, h01=0x0050, text=» LD A2,CURATT,TCABAS«, t00=0x0068, t01=0x0132}
0xa3a8…a3c0               Head {h00=0x0014, h01=0x0050, text=» CWK A2,LBVDU+1 «, t00=0x0068, t01=0x014e}
0xa3c0…a3e8               Head {h00=0x0024, h01=0x0050, text=» RF(E) ERE180 UNFORMATTED SCREEN«, t00=0x0068, t01=0x0166}
0xa3e8…a3f0               Head {h00=0x0004, h01=0x0050, t00=0x0068, t01=0x018e}
0xa3f0…a404               Head {h00=0x0010, h01=0x0050, text=» ADK A2,BVDU«, t00=0x0069, t01=0x0008}
0xa404…a436               Head {h00=0x002e, h01=0x0050, text=» ADR A2,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x0069, t01=0x001c}
0xa436…a456               Head {h00=0x001c, h01=0x0050, text=» LCR A1,A2 GET ATTRIBUTE«, t00=0x0069, t01=0x004e}
0xa456…a474               Head {h00=0x001a, h01=0x0050, text=» ORK A1,1 SET MDT BIT «, t00=0x0069, t01=0x006e}
0xa474…a486               Head {h00=0x000e, h01=0x0050, text=» SCR A1,A2«, t00=0x0069, t01=0x008c}
0xa486…a49a               Head {h00=0x0010, h01=0x0050, text=»ERE180 EQU *«, t00=0x0069, t01=0x009e}
0xa49a…a4aa               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0069, t01=0x00b2}
0xa4aa…a4d6               Head {h00=0x0028, h01=0x0050, text=»ERE200 CWK A2,LBVDU-1 END OF BUFFER?«, t00=0x0069, t01=0x00c2}
0xa4d6…a4f0               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE300 YES «, t00=0x0069, t01=0x00ee}
0xa4f0…a502               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0069, t01=0x0108}
0xa502…a51a               Head {h00=0x0014, h01=0x0050, text=» RB ERE150 NEXT «, t00=0x0069, t01=0x011a}
0xa51a…a548               Head {h00=0x002a, h01=0x0050, text=»ERE300 SUK A6,1 WHOLW BUFF CONTROLED? «, t00=0x0069, t01=0x0132}
0xa548…a55e               Head {h00=0x0012, h01=0x0050, text=» RB(N) ERE160 «, t00=0x0069, t01=0x0160}
0xa55e…a57c               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND.«, t00=0x0069, t01=0x0176}
0xa57c…a58e (106, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB ERE150«, t00=0x006a, t01=0x0004}
0xa58e…a59c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x0016}
0xa59c…a5a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0024}
0xa5a6…a5e6               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x006a, t01=0x002e}
0xa5e6…a5f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x006e}
0xa5f0…a600               Head {h00=0x000c, h01=0x0050, text=»* ERINPT«, t00=0x006a, t01=0x0078}
0xa600…a60a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0088}
0xa60a…a648               Head {h00=0x003a, h01=0x0050, text=»* CLEARS ALL UNPROTECTED CHARACTER LOCATIONS TO NULLS «, t00=0x006a, t01=0x0092}
0xa648…a686               Head {h00=0x003a, h01=0x0050, text=»* AND REPOSITIONS THE CURSOR TO THE FIRST UNPROTECTED «, t00=0x006a, t01=0x00d0}
0xa686…a6ac               Head {h00=0x0022, h01=0x0050, text=»* CHAR LOCATION ON THE SCREEN «, t00=0x006a, t01=0x010e}
0xa6ac…a6b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0134}
0xa6b6…a6f6               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x006a, t01=0x013e}
0xa6f6…a700               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x017e}
0xa700…a714               Head {h00=0x0010, h01=0x0050, text=»ERINPT EQU *«, t00=0x006a, t01=0x0188}
0xa714…a740               Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x006b, t01=0x000c}
0xa740…a756               Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x006b, t01=0x0038}
0xa756…a772               Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x006b, t01=0x004e}
0xa772…a788               Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x006b, t01=0x006a}
0xa788…a7ca               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006b, t01=0x0080}
0xa7ca…a7dc               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006b, t01=0x00c2}
0xa7dc…a804               Head {h00=0x0024, h01=0x0050, text=» RF(Z) ERI:10 NO ATTRIBUTE FOUND«, t00=0x006b, t01=0x00d4}
0xa804…a838               Head {h00=0x0030, h01=0x0050, text=» RF(N) ERI:5 ATTRIBUTE NOT IN LAST POSITION «, t00=0x006b, t01=0x00fc}
0xa838…a866               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,-1 ATTRIBUTE IN LAST POSITION«, t00=0x006b, t01=0x0130}
0xa866…a87a               Head {h00=0x0010, h01=0x0050, text=»ERI:5 EQU * «, t00=0x006b, t01=0x015e}
0xa87a…a8bc               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006b, t01=0x0172}
0xa8bc…a8ce               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x006c, t01=0x0024}
0xa8ce…a8d6               Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x0036}
0xa8d6…a8ea               Head {h00=0x0010, h01=0x0050, text=»ERI:10 EQU *«, t00=0x006c, t01=0x003e}
0xa8ea…a906               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x006c, t01=0x0052}
0xa906…a916               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006c, t01=0x006e}
0xa916…a924               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006c, t01=0x007e}
0xa924…a92e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x008c}
0xa92e…a972               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006c, t01=0x0096}
0xa972…a97c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00da}
0xa97c…a98c               Head {h00=0x000c, h01=0x0050, text=»* ERROR «, t00=0x006c, t01=0x00e4}
0xa98c…a996               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00f4}
0xa996…a9c8               Head {h00=0x002e, h01=0x0050, text=»* THE MODULE TAKES CARE OF UNALLOWED KEYS «, t00=0x006c, t01=0x00fe}
0xa9c8…a9d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0130}
0xa9d2…aa16               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x006c, t01=0x013a}
0xaa16…aa20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x017e}
0xaa20…aa34               Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x006c, t01=0x0188}
0xaa34…aa60               Head {h00=0x0028, h01=0x0050, text=» CF A14,LERRON TURN ON 'ERROR' LAMP «, t00=0x006d, t01=0x000c}
0xaa60…aa7c               Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x006d, t01=0x0038}
0xaa7c…aab4               Head {h00=0x0034, h01=0x0050, text=» ORK A5,4 BIT 13:=1,ERROR HANDLING.RESET ALLOWED«, t00=0x006d, t01=0x0054}
0xaab4…aad0               Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x006d, t01=0x008c}
0xaad0…aad8               Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x00a8}
0xaad8…aae2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00b0}
0xaae2…ab02               Head {h00=0x001c, h01=0x0050, text=»*   TURN ON SOUND ALARM «, t00=0x006d, t01=0x00ba}
0xab02…ab0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00da}
0xab0c…ab14               Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x00e4}
0xab14…ab2c               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x006d, t01=0x00ec}
0xab2c…ab52               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS VDU-ECB ADDRESS«, t00=0x006d, t01=0x0104}
0xab52…ab78               Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBBA,A8 BUFFER ADDRESS«, t00=0x006d, t01=0x012a}
0xab78…aba0               Head {h00=0x0024, h01=0x0050, text=» LDK A7,X'2B' CONTROL CHARACTER «, t00=0x006d, t01=0x0150}
0xaba0…abb4               Head {h00=0x0010, h01=0x0050, text=» SC A7,1,A2 «, t00=0x006d, t01=0x0178}
0xabb4…abd8               Head {h00=0x0020, h01=0x0050, text=» LDK A7,X'07' BELL CHARACTER«, t00=0x006d, t01=0x018c}
0xabd8…abec               Head {h00=0x0010, h01=0x0050, text=» SC A7,2,A2 «, t00=0x006e, t01=0x0020}
0xabec…ac0e               Head {h00=0x001e, h01=0x0050, text=» LDK A7,3 REQUESTED LENGTH«, t00=0x006e, t01=0x0034}
0xac0e…ac26               Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x006e, t01=0x0056}
0xac26…ac48               Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' SOUND ALARM «, t00=0x006e, t01=0x006e}
0xac48…ac54               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x006e, t01=0x0090}
0xac54…ac64               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x006e, t01=0x009c}
0xac64…ac6c               Head {h00=0x0004, h01=0x0050, t00=0x006e, t01=0x00ac}
0xac6c…ac7c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006e, t01=0x00b4}
0xac7c…ac92               Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x006e, t01=0x00c4}
0xac92…aca0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x00da}
0xaca0…acea               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x006e, t01=0x00e8}
0xacea…acf4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0132}
0xacf4…ad20               Head {h00=0x0028, h01=0x0050, text=»*   KEY LOCK STATUS IS SET IN 'KEYS'«, t00=0x006e, t01=0x013c}
0xad20…ad50               Head {h00=0x002c, h01=0x0050, text=»* ON ENTRY  A2 = KEY LOCK VALUE /70-/77 «, t00=0x006e, t01=0x0168}
0xad50…ad5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0008}
0xad5a…ada4               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x006f, t01=0x0012}
0xada4…adae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x005c}
0xadae…adc0               Head {h00=0x000e, h01=0x0050, text=»KEYL EQU *«, t00=0x006f, t01=0x0066}
0xadc0…adea               Head {h00=0x0026, h01=0x0050, text=» SUK A2,/78 GET NEG KEY LOCK VALUE«, t00=0x006f, t01=0x0078}
0xadea…ae10               Head {h00=0x0022, h01=0x0050, text=» LD A3,KEYS,TCABAS OLD STATUS «, t00=0x006f, t01=0x00a2}
0xae10…ae24               Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x006f, t01=0x00c8}
0xae24…ae38               Head {h00=0x0010, h01=0x0050, text=»KEYL10 EQU *«, t00=0x006f, t01=0x00dc}
0xae38…ae4a               Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x006f, t01=0x00f0}
0xae4a…ae6a               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 1 = OFF,0 = ON«, t00=0x006f, t01=0x0102}
0xae6a…ae80               Head {h00=0x0012, h01=0x0050, text=» RB(N) KEYL10 «, t00=0x006f, t01=0x0122}
0xae80…aea4               Head {h00=0x0020, h01=0x0050, text=» ANR A3,A4 CHECK OLD KEY POS«, t00=0x006f, t01=0x0138}
0xaea4…aec2               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) KEYL20 WAS ON «, t00=0x006f, t01=0x015c}
0xaec2…aedc               Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 WAS OFF«, t00=0x006f, t01=0x017a}
0xaedc…af06 (112, 0, 400) Head {h00=0x0026, h01=0x0050, text=» RF(NZ) KEYL99 NOW OFF, NO CHANGE «, t00=0x0070, t01=0x0004}
0xaf06…af20               Head {h00=0x0016, h01=0x0050, text=» RF KEYL30 NOW ON «, t00=0x0070, t01=0x002e}
0xaf20…af3c               Head {h00=0x0018, h01=0x0050, text=»KEYL20 EQU * WAS ON «, t00=0x0070, t01=0x0048}
0xaf3c…af4e               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0070, t01=0x0064}
0xaf4e…af76               Head {h00=0x0024, h01=0x0050, text=» RF(Z) KEYL99 NOW ON, NO CHANGE «, t00=0x0070, t01=0x0076}
0xaf76…af92               Head {h00=0x0018, h01=0x0050, text=»KEYL30 EQU *  CHANGE«, t00=0x0070, t01=0x009e}
0xaf92…afac               Head {h00=0x0016, h01=0x0050, text=» LD A3,KEYS,TCABAS«, t00=0x0070, t01=0x00ba}
0xafac…afcc               Head {h00=0x001c, h01=0x0050, text=» XRR A3,A4 CHANGE STATUS«, t00=0x0070, t01=0x00d4}
0xafcc…aff8               Head {h00=0x0028, h01=0x0050, text=» ST A3,KEYS,TCABAS STORE NEW STATUS «, t00=0x0070, t01=0x00f4}
0xaff8…b002               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0120}
0xb002…b022               Head {h00=0x001c, h01=0x0050, text=»* KEYLOCK STATUS CHANGED«, t00=0x0070, t01=0x012a}
0xb022…b070               Head {h00=0x004a, h01=0x0050, text=»*   A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON «, t00=0x0070, t01=0x014a}
0xb070…b09e               Head {h00=0x002a, h01=0x0050, text=»*   A4 = KEYLOCK CHANGED, LAYOUT AS A3«, t00=0x0071, t01=0x0008}
0xb09e…b0ca               Head {h00=0x0028, h01=0x0050, text=»*   A2 = 1, IF CHANGED TO OFF ELSE 0«, t00=0x0071, t01=0x0036}
0xb0ca…b0d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0062}
0xb0d4…b102               Head {h00=0x002a, h01=0x0050, text=»* INSERT USER ROUTINE BELOW THIS LINE «, t00=0x0071, t01=0x006c}
0xb102…b10c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x009a}
0xb10c…b120               Head {h00=0x0010, h01=0x0050, text=»KEYL99 EQU *«, t00=0x0071, t01=0x00a4}
0xb120…b130               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0071, t01=0x00b8}
0xb130…b13c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x00c8}
0xb13c…b14a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0071, t01=0x00d4}
0xb14a…b154               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00e2}
0xb154…b194               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0071, t01=0x00ec}
0xb194…b19e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x012c}
0xb19e…b1b2               Head {h00=0x0010, h01=0x0050, text=»* LAMPMODULE«, t00=0x0071, t01=0x0136}
0xb1b2…b1bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x014a}
0xb1bc…b1c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0154}
0xb1c6…b206               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0071, t01=0x015e}
0xb206…b210               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x000e}
0xb210…b224               Head {h00=0x0010, h01=0x0050, text=»LON EQU /B7 «, t00=0x0072, t01=0x0018}
0xb224…b238               Head {h00=0x0010, h01=0x0050, text=»LOF EQU /B8 «, t00=0x0072, t01=0x002c}
0xb238…b24e               Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0072, t01=0x0040}
0xb24e…b262               Head {h00=0x0010, h01=0x0050, text=»LMF1 EQU /20«, t00=0x0072, t01=0x0056}
0xb262…b276               Head {h00=0x0010, h01=0x0050, text=»LMF2 EQU /10«, t00=0x0072, t01=0x006a}
0xb276…b28e               Head {h00=0x0014, h01=0x0050, text=»LIOL EQU 1  DK2 «, t00=0x0072, t01=0x007e}
0xb28e…b2a6               Head {h00=0x0014, h01=0x0050, text=»LINH EQU 8  DK2 «, t00=0x0072, t01=0x0096}
0xb2a6…b2be               Head {h00=0x0014, h01=0x0050, text=»LERR EQU 4  DK2 «, t00=0x0072, t01=0x00ae}
0xb2be…b2d8               Head {h00=0x0016, h01=0x0050, text=»LSAV EQU /10  DK2 «, t00=0x0072, t01=0x00c6}
0xb2d8…b2e4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x00e0}
0xb2e4…b2fa               Head {h00=0x0012, h01=0x0050, text=» IFF KB6272=1 «, t00=0x0072, t01=0x00ec}
0xb2fa…b310               Head {h00=0x0012, h01=0x0050, text=»LMF1 EQU 0  =2«, t00=0x0072, t01=0x0102}
0xb310…b326               Head {h00=0x0012, h01=0x0050, text=»LMF2 EQU 0  =2«, t00=0x0072, t01=0x0118}
0xb326…b33c               Head {h00=0x0012, h01=0x0050, text=»LIOL EQU 1  =2«, t00=0x0072, t01=0x012e}
0xb33c…b352               Head {h00=0x0012, h01=0x0050, text=»LINH EQU 2  =2«, t00=0x0072, t01=0x0144}
0xb352…b368               Head {h00=0x0012, h01=0x0050, text=»LERR EQU 4  =2«, t00=0x0072, t01=0x015a}
0xb368…b37e               Head {h00=0x0012, h01=0x0050, text=»LSAV EQU 8  =2«, t00=0x0072, t01=0x0170}
0xb37e…b38a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x0186}
0xb38a…b3a4 (115, 0, 400) Head {h00=0x0016, h01=0x0050, text=»LMF1ON LDK A3,LMF1«, t00=0x0073, t01=0x0004}
0xb3a4…b3b6               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0073, t01=0x001e}
0xb3b6…b3d0               Head {h00=0x0016, h01=0x0050, text=»LMF1OF LDK A3,LMF1«, t00=0x0073, t01=0x0030}
0xb3d0…b3e2               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0073, t01=0x004a}
0xb3e2…b3fc               Head {h00=0x0016, h01=0x0050, text=»LMF2ON LDK A3,LMF2«, t00=0x0073, t01=0x005c}
0xb3fc…b40e               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0073, t01=0x0076}
0xb40e…b428               Head {h00=0x0016, h01=0x0050, text=»LMF2OF LDK A3,LMF2«, t00=0x0073, t01=0x0088}
0xb428…b43a               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0073, t01=0x00a2}
0xb43a…b454               Head {h00=0x0016, h01=0x0050, text=»LIOLON LDK A3,LIOL«, t00=0x0073, t01=0x00b4}
0xb454…b466               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0073, t01=0x00ce}
0xb466…b480               Head {h00=0x0016, h01=0x0050, text=»LIOLOF LDK A3,LIOL«, t00=0x0073, t01=0x00e0}
0xb480…b492               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0073, t01=0x00fa}
0xb492…b4ac               Head {h00=0x0016, h01=0x0050, text=»LINHON LDK A3,LINH«, t00=0x0073, t01=0x010c}
0xb4ac…b4be               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0073, t01=0x0126}
0xb4be…b4d8               Head {h00=0x0016, h01=0x0050, text=»LINHOF LDK A3,LINH«, t00=0x0073, t01=0x0138}
0xb4d8…b4ea               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0073, t01=0x0152}
0xb4ea…b504               Head {h00=0x0016, h01=0x0050, text=»LERRON LDK A3,LERR«, t00=0x0073, t01=0x0164}
0xb504…b516               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0073, t01=0x017e}
0xb516…b530               Head {h00=0x0016, h01=0x0050, text=»LERROF LDK A3,LERR«, t00=0x0073, t01=0x0190}
0xb530…b542               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0074, t01=0x001a}
0xb542…b55c               Head {h00=0x0016, h01=0x0050, text=»LSAVON LDK A3,LSAV«, t00=0x0074, t01=0x002c}
0xb55c…b56e               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0074, t01=0x0046}
0xb56e…b588               Head {h00=0x0016, h01=0x0050, text=»LSAVOF LDK A3,LSAV«, t00=0x0074, t01=0x0058}
0xb588…b59a               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0074, t01=0x0072}
0xb59a…b5a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0084}
0xb5a4…b5be               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  DK2«, t00=0x0074, t01=0x008e}
0xb5be…b5d6               Head {h00=0x0014, h01=0x0050, text=»LMPON LDK A7,LON«, t00=0x0074, t01=0x00a8}
0xb5d6…b5e8               Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0074, t01=0x00c0}
0xb5e8…b600               Head {h00=0x0014, h01=0x0050, text=»LMPOF LDK A7,LOF«, t00=0x0074, t01=0x00d2}
0xb600…b612               Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0074, t01=0x00ea}
0xb612…b624               Head {h00=0x000e, h01=0x0050, text=» XIF   DK2«, t00=0x0074, t01=0x00fc}
0xb624…b63e               Head {h00=0x0016, h01=0x0050, text=» IFT KB6272=1  DK2«, t00=0x0074, t01=0x010e}
0xb63e…b666               Head {h00=0x0024, h01=0x0050, text=»LMPON ORS A3,LAMSAV,TCABAS  DK2 «, t00=0x0074, t01=0x0128}
0xb666…b67c               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK2«, t00=0x0074, t01=0x0150}
0xb67c…b698               Head {h00=0x0018, h01=0x0050, text=»LMPOF C1R A3,A3  DK2«, t00=0x0074, t01=0x0166}
0xb698…b6ba               Head {h00=0x001e, h01=0x0050, text=» ANS A3,LAMSAV,TCABAS  DK2«, t00=0x0074, t01=0x0182}
0xb6ba…b6d0               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK2«, t00=0x0075, t01=0x0014}
0xb6d0…b6e2               Head {h00=0x000e, h01=0x0050, text=» XIF   DK2«, t00=0x0075, t01=0x002a}
0xb6e2…b6f0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0075, t01=0x003c}
0xb6f0…b6f8               Head {h00=0x0004, h01=0x0050, t00=0x0075, t01=0x004a}
0xb6f8…b702               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0052}
0xb702…b742               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0075, t01=0x005c}
0xb742…b74c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x009c}
0xb74c…b75c               Head {h00=0x000c, h01=0x0050, text=»* SDISP «, t00=0x0075, t01=0x00a6}
0xb75c…b766               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00b6}
0xb766…b78e               Head {h00=0x0024, h01=0x0050, text=»* SIGNAL DISPLAY MONITOR REQUEST«, t00=0x0075, t01=0x00c0}
0xb78e…b798               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00e8}
0xb798…b7d8               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0075, t01=0x00f2}
0xb7d8…b7e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0132}
0xb7e2…b7f6               Head {h00=0x0010, h01=0x0050, text=»SDISP EQU * «, t00=0x0075, t01=0x013c}
0xb7f6…b810               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  DK2«, t00=0x0075, t01=0x0150}
0xb810…b826               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBSD«, t00=0x0075, t01=0x016a}
0xb826…b83c               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0075, t01=0x0180}
0xb83c…b854               Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBCW,A8 «, t00=0x0076, t01=0x0008}
0xb854…b860               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0076, t01=0x0020}
0xb860…b870               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0076, t01=0x002c}
0xb870…b880               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0076, t01=0x003c}
0xb880…b892               Head {h00=0x000e, h01=0x0050, text=» XIF   DK2«, t00=0x0076, t01=0x004c}
0xb892…b8ac               Head {h00=0x0016, h01=0x0050, text=» IFT KB6272=1  DK2«, t00=0x0076, t01=0x005e}
0xb8ac…b8c8               Head {h00=0x0018, h01=0x0050, text=» LDKL A8,ECBSD  DK2 «, t00=0x0076, t01=0x0078}
0xb8c8…b8e4               Head {h00=0x0018, h01=0x0050, text=» ADR A8,CREBAS  DK2 «, t00=0x0076, t01=0x0094}
0xb8e4…b90a               Head {h00=0x0022, h01=0x0050, text=» CM* ECBBA,A8 CLEAR BUFFER DK2«, t00=0x0076, t01=0x00b0}
0xb90a…b922               Head {h00=0x0014, h01=0x0050, text=» LDK A3,/1C  DK2«, t00=0x0076, t01=0x00d6}
0xb922…b940               Head {h00=0x001a, h01=0x0050, text=» SC* A3,ECBBA,A8  DK2 «, t00=0x0076, t01=0x00ee}
0xb940…b962               Head {h00=0x001e, h01=0x0050, text=» LD A3,LAMSAV,TCABAS  DK2 «, t00=0x0076, t01=0x010c}
0xb962…b980               Head {h00=0x001a, h01=0x0050, text=» ORS* A3,ECBBA,A8  DK2«, t00=0x0076, t01=0x012e}
0xb980…b996               Head {h00=0x0012, h01=0x0050, text=» LDK A3,2  DK2«, t00=0x0076, t01=0x014c}
0xb996…b9b4               Head {h00=0x001a, h01=0x0050, text=»  ST A3,ECBRL,A8  DK2 «, t00=0x0076, t01=0x0162}
0xb9b4…b9cc               Head {h00=0x0014, h01=0x0050, text=» LDK A7,/85  DK2«, t00=0x0076, t01=0x0180}
0xb9cc…b9de               Head {h00=0x000e, h01=0x0050, text=» LKM   DK2«, t00=0x0077, t01=0x0008}
0xb9de…b9f2               Head {h00=0x0010, h01=0x0050, text=» DATA 1  DK2«, t00=0x0077, t01=0x001a}
0xb9f2…ba08               Head {h00=0x0012, h01=0x0050, text=» RTN A14  DK2 «, t00=0x0077, t01=0x002e}
0xba08…ba1a               Head {h00=0x000e, h01=0x0050, text=» XIF   DK2«, t00=0x0077, t01=0x0044}
0xba1a…ba28               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0077, t01=0x0056}
0xba28…ba32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0064}
0xba32…ba72               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0077, t01=0x006e}
0xba72…ba7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00ae}
0xba7c…ba90               Head {h00=0x0010, h01=0x0050, text=»*     ATMASB«, t00=0x0077, t01=0x00b8}
0xba90…ba9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00cc}
0xba9a…bad8               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR BACKWARDS AND MASK IT «, t00=0x0077, t01=0x00d6}
0xbad8…bae2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0114}
0xbae2…bb22               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0077, t01=0x011e}
0xbb22…bb2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x015e}
0xbb2c…bb52               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x0077, t01=0x0168}
0xbb52…bb7a               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x0077, t01=0x018e}
0xbb7a…bbac               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     1=END OF BUFFER LEFT «, t00=0x0078, t01=0x0026}
0xbbac…bbd8               Head {h00=0x0028, h01=0x0050, text=»*      2= ATTRIBUTE IN LAST POSITION«, t00=0x0078, t01=0x0058}
0xbbd8…bbe2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0084}
0xbbe2…bbf6               Head {h00=0x0010, h01=0x0050, text=»ATMASB EQU *«, t00=0x0078, t01=0x008e}
0xbbf6…bc08               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0078, t01=0x00a2}
0xbc08…bc1c               Head {h00=0x0010, h01=0x0050, text=»ASB05 EQU * «, t00=0x0078, t01=0x00b4}
0xbc1c…bc42               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x0078, t01=0x00c8}
0xbc42…bc64               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR. «, t00=0x0078, t01=0x00ee}
0xbc64…bc7c               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASB10 NO «, t00=0x0078, t01=0x0110}
0xbc7c…bc9e               Head {h00=0x001e, h01=0x0050, text=»ASB08 ST A3,ATTRIB,TCABAS «, t00=0x0078, t01=0x0128}
0xbc9e…bcce               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x0078, t01=0x014a}
0xbcce…bcde               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0078, t01=0x017a}
0xbcde…bd02               Head {h00=0x0020, h01=0x0050, text=»ASB10 CWK A2,0 END OF BUFFER«, t00=0x0078, t01=0x018a}
0xbd02…bd1a               Head {h00=0x0014, h01=0x0050, text=» RF(E) ASB20 YES«, t00=0x0079, t01=0x001e}
0xbd1a…bd2c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0079, t01=0x0036}
0xbd2c…bd42               Head {h00=0x0012, h01=0x0050, text=» RB ASB05 NEXT«, t00=0x0079, t01=0x0048}
0xbd42…bd56               Head {h00=0x0010, h01=0x0050, text=»ASB20 EQU * «, t00=0x0079, t01=0x005e}
0xbd56…bd64               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x0072}
0xbd64…bd6c               Head {h00=0x0004, h01=0x0050, t00=0x0079, t01=0x0080}
0xbd6c…bda6               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0079, t01=0x0088}
0xbda6…bdce               Head {h00=0x0024, h01=0x0050, text=» LDK A1,2 ATTRIBUTE IN LAST POS.«, t00=0x0079, t01=0x00c2}
0xbdce…bdf8               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,1919 LAST BUFFER POSITION«, t00=0x0079, t01=0x00ea}
0xbdf8…be1c               Head {h00=0x0020, h01=0x0050, text=» CF A14,GBUFFC GET CHARACTER«, t00=0x0079, t01=0x0114}
0xbe1c…be3e               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE ??? «, t00=0x0079, t01=0x0138}
0xbe3e…be5a               Head {h00=0x0018, h01=0x0050, text=» RB(NG) ASB08 YES!!!«, t00=0x0079, t01=0x015a}
0xbe5a…be7e               Head {h00=0x0020, h01=0x0050, text=» SUR A2,A2 FIRST SCREEN POS.«, t00=0x0079, t01=0x0176}
0xbe7e…beb4               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x007a, t01=0x000a}
0xbeb4…bebc               Head {h00=0x0004, h01=0x0050, t00=0x007a, t01=0x0040}
0xbebc…bede               Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 END BUFFER LEFT «, t00=0x007a, t01=0x0048}
0xbede…bef8               Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x007a, t01=0x006a}
0xbef8…bf10               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,LBVDU+1«, t00=0x007a, t01=0x0084}
0xbf10…bf48               Head {h00=0x0034, h01=0x0050, text=» ST A7,CURATT,TCABAS POSSIBLY UNFORMATTED SCREEN«, t00=0x007a, t01=0x009c}
0xbf48…bf58               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007a, t01=0x00d4}
0xbf58…bf66               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007a, t01=0x00e4}
0xbf66…bf70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00f2}
0xbf70…bfb0               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007a, t01=0x00fc}
0xbfb0…bfba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x013c}
0xbfba…bfce               Head {h00=0x0010, h01=0x0050, text=»*     ATMASF«, t00=0x007a, t01=0x0146}
0xbfce…bfd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x015a}
0xbfd8…c016               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR. FORWARDS AND MASK IT «, t00=0x007a, t01=0x0164}
0xc016…c020               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0012}
0xc020…c062               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x007b, t01=0x001c}
0xc062…c06c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x005e}
0xc06c…c082               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x007b, t01=0x0068}
0xc082…c0a8               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x007b, t01=0x007e}
0xc0a8…c0d0               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x007b, t01=0x00a4}
0xc0d0…c102               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     2=END OF BUFFER RIGHT«, t00=0x007b, t01=0x00cc}
0xc102…c128               Head {h00=0x0022, h01=0x0050, text=»*   A3=ATTRIB IN LAST BUFF POS«, t00=0x007b, t01=0x00fe}
0xc128…c132               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0124}
0xc132…c13a               Head {h00=0x0004, h01=0x0050, t00=0x007b, t01=0x012e}
0xc13a…c142               Head {h00=0x0004, h01=0x0050, t00=0x007b, t01=0x0136}
0xc142…c156               Head {h00=0x0010, h01=0x0050, text=»S:ATT EQU * «, t00=0x007b, t01=0x013e}
0xc156…c172               Head {h00=0x0018, h01=0x0050, text=» LD A7,ATTRIB,TCABAS«, t00=0x007b, t01=0x0152}
0xc172…c18e               Head {h00=0x0018, h01=0x0050, text=» LD A8,CURATT,TCABAS«, t00=0x007b, t01=0x016e}
0xc18e…c1be               Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x007b, t01=0x018a}
0xc1be…c1da               Head {h00=0x0018, h01=0x0050, text=» ST A7,ATTRIB,TCABAS«, t00=0x007c, t01=0x002a}
0xc1da…c1f6               Head {h00=0x0018, h01=0x0050, text=» ST A8,CURATT,TCABAS«, t00=0x007c, t01=0x0046}
0xc1f6…c206               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007c, t01=0x0062}
0xc206…c20e               Head {h00=0x0004, h01=0x0050, t00=0x007c, t01=0x0072}
0xc20e…c222               Head {h00=0x0010, h01=0x0050, text=»ATMASF EQU *«, t00=0x007c, t01=0x007a}
0xc222…c234               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x007c, t01=0x008e}
0xc234…c248               Head {h00=0x0010, h01=0x0050, text=»ASF05 EQU * «, t00=0x007c, t01=0x00a0}
0xc248…c26e               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x007c, t01=0x00b4}
0xc26e…c28e               Head {h00=0x001c, h01=0x0050, text=» CWK A3,/1F ATTRIB CHAR?«, t00=0x007c, t01=0x00da}
0xc28e…c2a6               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASF10 NO «, t00=0x007c, t01=0x00fa}
0xc2a6…c2ea               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007c, t01=0x0112}
0xc2ea…c31a               Head {h00=0x002c, h01=0x0050, text=» CWK A2,LBVDU-1 EOB +ATTRIB IN LAST POS «, t00=0x007c, t01=0x0156}
0xc31a…c35e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007c, t01=0x0186}
0xc35e…c376               Head {h00=0x0014, h01=0x0050, text=» RF(NE) ASF08 NO«, t00=0x007d, t01=0x003a}
0xc376…c388               Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x007d, t01=0x0052}
0xc388…c3aa               Head {h00=0x001e, h01=0x0050, text=»ASF08 ST A3,ATTRIB,TCABAS «, t00=0x007d, t01=0x0064}
0xc3aa…c3da               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x007d, t01=0x0086}
0xc3da…c3ea               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007d, t01=0x00b6}
0xc3ea…c416               Head {h00=0x0028, h01=0x0050, text=»ASF10 CWK A2,LBVDU-1 END OF BUFFER? «, t00=0x007d, t01=0x00c6}
0xc416…c42e               Head {h00=0x0014, h01=0x0050, text=» RF(L) ASF20 NO «, t00=0x007d, t01=0x00f2}
0xc42e…c440               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x007d, t01=0x010a}
0xc440…c450               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007d, t01=0x011c}
0xc450…c466               Head {h00=0x0012, h01=0x0050, text=»ASF20 ADK A2,1«, t00=0x007d, t01=0x012c}
0xc466…c478               Head {h00=0x000e, h01=0x0050, text=» RB ASF05 «, t00=0x007d, t01=0x0142}
0xc478…c486               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007d, t01=0x0154}
0xc486…c490               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0162}
0xc490…c4ca               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x007d, t01=0x016c}
0xc4ca…c4d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0016}
0xc4d4…c4e4               Head {h00=0x000c, h01=0x0050, text=»* GBUFFC«, t00=0x007e, t01=0x0020}
0xc4e4…c4ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0030}
0xc4ee…c528               Head {h00=0x0036, h01=0x0050, text=»* GET VDU BUFFER CHAR WHICH IS INDICATED BY CURSOR«, t00=0x007e, t01=0x003a}
0xc528…c532               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0074}
0xc532…c56c               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x007e, t01=0x007e}
0xc56c…c576               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x00b8}
0xc576…c596               Head {h00=0x001c, h01=0x0050, text=»* A2=CURSOR BINARY ADDR «, t00=0x007e, t01=0x00c2}
0xc596…c5ac               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x007e, t01=0x00e2}
0xc5ac…c5b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x00f8}
0xc5b6…c5c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0102}
0xc5c0…c5d4               Head {h00=0x0010, h01=0x0050, text=»GBUFFC EQU *«, t00=0x007e, t01=0x010c}
0xc5d4…c5e6               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x007e, t01=0x0120}
0xc5e6…c5fc               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x007e, t01=0x0132}
0xc5fc…c622               Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS GET VDU BUFFER «, t00=0x007e, t01=0x0148}
0xc622…c634               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A2«, t00=0x007e, t01=0x016e}
0xc634…c65e               Head {h00=0x0026, h01=0x0050, text=» LCR A3,A4 GET CHARACTER IN BUFF. «, t00=0x007e, t01=0x0180}
0xc65e…c66e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007f, t01=0x001a}
0xc66e…c67c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007f, t01=0x002a}
0xc67c…c686               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0038}
0xc686…c6ca               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007f, t01=0x0042}
0xc6ca…c6d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0086}
0xc6d4…c6e4               Head {h00=0x000c, h01=0x0050, text=»* RESET «, t00=0x007f, t01=0x0090}
0xc6e4…c6ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x00a0}
0xc6ee…c72a               Head {h00=0x0038, h01=0x0050, text=»* RESET 'KEYBOARD INHIBIT' IN FOLLOWING SITUATIONS: «, t00=0x007f, t01=0x00aa}
0xc72a…c766               Head {h00=0x0038, h01=0x0050, text=»* 1- A DEVICE WITH AN ATTACHED KEYBOARD IS EXECUTING«, t00=0x007f, t01=0x00e6}
0xc766…c78e               Head {h00=0x0024, h01=0x0050, text=»*  A COMMAND. BIT 14=1 IN KBINH «, t00=0x007f, t01=0x0122}
0xc78e…c7c4               Head {h00=0x0032, h01=0x0050, text=»* 2- A PA-KEY OPERATION IS IN PROCESS PRIOR TO«, t00=0x007f, t01=0x014a}
0xc7c4…c804               Head {h00=0x003c, h01=0x0050, text=»*  INITIATION OF A COMMAND FOR A DEVICE WITH AN ATTACHED«, t00=0x007f, t01=0x0180}
0xc804…c82a               Head {h00=0x0022, h01=0x0050, text=»*  KEYBOARD. BIT 14=1 IN KBINH«, t00=0x0080, t01=0x0030}
0xc82a…c858               Head {h00=0x002a, h01=0x0050, text=»* 3- ERRORSITUATION. BIT 14=1 IN KBINH«, t00=0x0080, t01=0x0056}
0xc858…c862               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0084}
0xc862…c8a0               Head {h00=0x003a, h01=0x0050, text=»* IF BIT 15=1 IN KBINH => NO RESETTING ALLOWED DURING «, t00=0x0080, t01=0x008e}
0xc8a0…c8c8               Head {h00=0x0024, h01=0x0050, text=»* UPDATE AND DISPLAY SITUATION. «, t00=0x0080, t01=0x00cc}
0xc8c8…c8d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00f4}
0xc8d2…c916               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0080, t01=0x00fe}
0xc916…c920               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0142}
0xc920…c934               Head {h00=0x0010, h01=0x0050, text=»RESET EQU * «, t00=0x0080, t01=0x014c}
0xc934…c95e               Head {h00=0x0026, h01=0x0050, text=» CM MODE,TCABAS RESET INSERT MODE «, t00=0x0080, t01=0x0160}
0xc95e…c98c               Head {h00=0x002a, h01=0x0050, text=» CF A14,LIOLOF TURN OFF "INSERT" LAMP «, t00=0x0080, t01=0x018a}
0xc98c…c9b6               Head {h00=0x0026, h01=0x0050, text=» CM KBINH,TCABAS RESSTORE KEYBOARD«, t00=0x0081, t01=0x0028}
0xc9b6…c9e2               Head {h00=0x0028, h01=0x0050, text=» CF A14,LERROF TURN OFF 'ERROR' LAMP«, t00=0x0081, t01=0x0052}
0xc9e2…ca1a               Head {h00=0x0034, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT' LAMP «, t00=0x0081, t01=0x007e}
0xca1a…ca2a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x00b6}
0xca2a…ca38               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x00c6}
0xca38…ca40               Head {h00=0x0004, h01=0x0050, t00=0x0081, t01=0x00d4}
0xca40…ca48               Head {h00=0x0004, h01=0x0050, t00=0x0081, t01=0x00dc}
0xca48…ca90               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0081, t01=0x00e4}
0xca90…ca9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x012c}
0xca9a…cad2               Head {h00=0x0034, h01=0x0050, text=»*   C O P Y  :   COPY CONTENTS IN VDU BUFFER ON «, t00=0x0081, t01=0x0136}
0xcad2…cafa               Head {h00=0x0024, h01=0x0050, text=»*                HARDCOPY DEVICE«, t00=0x0081, t01=0x016e}
0xcafa…cb04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0008}
0xcb04…cb48               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0082, t01=0x0012}
0xcb48…cb50               Head {h00=0x0004, h01=0x0050, t00=0x0082, t01=0x0056}
0xcb50…cb62               Head {h00=0x000e, h01=0x0050, text=»COPY EQU *«, t00=0x0082, t01=0x005e}
0xcb62…cb7e               Head {h00=0x0018, h01=0x0050, text=» LD A5,COPNO,TCABAS «, t00=0x0082, t01=0x0070}
0xcb7e…cb94               Head {h00=0x0012, h01=0x0050, text=» ABL(Z) ERROR «, t00=0x0082, t01=0x008c}
0xcb94…cbb0               Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x0082, t01=0x00a2}
0xcbb0…cbd2               Head {h00=0x001e, h01=0x0050, text=» ADR A3,TCABAS   ADDRESSS «, t00=0x0082, t01=0x00be}
0xcbd2…cbf4               Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x0082, t01=0x00e0}
0xcbf4…cc24               Head {h00=0x002c, h01=0x0050, text=» LDK A4,/8B ORDER = WRITE ADDRESSED WAIT«, t00=0x0082, t01=0x0102}
0xcc24…cc32               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0082, t01=0x0132}
0xcc32…cc3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0140}
0xcc3c…cc64               Head {h00=0x0024, h01=0x0050, text=»* WRITE INTERTASK COMMUNICATION «, t00=0x0082, t01=0x014a}
0xcc64…cc6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0172}
0xcc6e…cc8c               Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0082, t01=0x017c}
0xcc8c…cca0               Head {h00=0x0010, h01=0x0050, text=»* A4 = ORDER«, t00=0x0083, t01=0x000a}
0xcca0…ccb8               Head {h00=0x0014, h01=0x0050, text=»* A5 = "TO-TID" «, t00=0x0083, t01=0x001e}
0xccb8…ccd2               Head {h00=0x0016, h01=0x0050, text=»* A6 = REQ LENGTH «, t00=0x0083, t01=0x0036}
0xccd2…ccdc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0050}
0xccdc…ccf0               Head {h00=0x0010, h01=0x0050, text=»ICWRTE EQU *«, t00=0x0083, t01=0x005a}
0xccf0…cd08               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x0083, t01=0x006e}
0xcd08…cd1e               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0083, t01=0x0086}
0xcd1e…cd32               Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0083, t01=0x009c}
0xcd32…cd60               Head {h00=0x002a, h01=0x0050, text=» CF A14,REQTIM NO TIME OUT SUPERVISION«, t00=0x0083, t01=0x00b0}
0xcd60…cd82               Head {h00=0x001e, h01=0x0050, text=» ST A5,ECBCW,A8 TO TASK ID«, t00=0x0083, t01=0x00de}
0xcd82…cda4               Head {h00=0x001e, h01=0x0050, text=» ST A6,ECBRL,A8 REQ LENGTH«, t00=0x0083, t01=0x0100}
0xcda4…cdbc               Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0083, t01=0x0122}
0xcdbc…cdd4               Head {h00=0x0014, h01=0x0050, text=» LDR A7,A4 ORDER«, t00=0x0083, t01=0x013a}
0xcdd4…cde0               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0083, t01=0x0152}
0xcde0…cdf0               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0083, t01=0x015e}
0xcdf0…ce00               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0083, t01=0x016e}
0xce00…ce0c               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0083, t01=0x017e}
0xce0c…ce10               Head {h00=0x4004, h01=0x0000}
0xce10…ce14               00 83 01 8a                                                                                                                                                                                                                                       ┆    ┆
0xce14…ce1c (132, 1, 8)   20 04 00 00 00 84 00 04                                                                                                                                                                                                                           ┆        ┆

Reduced view