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

⟦410f2c9ca⟧

    Length: 52596 (0xcd74)
    Notes: pts_type(SC)
    Names: »START.SC«

Derivation

└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
    └─⟦this⟧ »IBM3270/START.SC« 
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
    └─⟦this⟧ »IBM3270/START.SC« 

	IDENT START 	REL 10.0 80-03-14 870150541000

			=6, SKIP CIRCULAR KB-BUFFER
			REL 2.1 79-05-23 
			=4,CURSOR STOP AT LAST POS. EACH LINE
			REL 2.1 79-05-23 
			=5, RESET KEY DOESN7T WORK ON KB6234 
			REL 2.1 79-05-23 
			=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 
************************************************************* 
* 
*   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	1	IF PTS 6272 (6236) IS NOT USED YOU MUST USE 'KEYCNV' 
			USE THE KEY CONVERSION TABLE IN 'TB3270' 
KEYLST	EQU	0	KEY LOCK STATUS SAVED IN 'KEYS'
OFLIN	EQU	0 
DCLIN	EQU	1	NUMBER OF MAIN FRAMES (1 OR 2)
PFX	EQU	0 
PAX	EQU	0 
IN:DL	EQU	1	INSERT&DELETE FUNCTIONS 
COPCMD	EQU	0	COPY COMMAND (ONLY TO PRINTER) IF := 1 
COPL	EQU	0	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
	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	CHAR	&
	DATA	CHAR	'
	DATA	CHAR	(
	DATA	CHAR	)
	DATA	CHAR	*
	DATA	CHAR	+
	DATA	CHAR	,
	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 
	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,/31	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	*
			KB6234 RESET KEY	=5
	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
	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
	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 ??	=4
	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	8
LINH	EQU	4
LERR	EQU	2
LSAV	EQU	1
	XIF
	IFF	KB6272=1 
LMF1	EQU	0		=2
LMF2	EQU	0		=2
LIOL	EQU	1		=2
LINH	EQU	2		=2
LERR	EQU	4		=2
LSAV	EQU	8		=2
	XIF
LMF1ON	LDK	A3,LMF1
	RF	LMPON 
LMF1OF	LDK	A3,LMF1
	RF	LMPOF 
LMF2ON	LDK	A3,LMF2
	RF	LMPON 
LMF2OF	LDK	A3,LMF2
	RF	LMPOF 
LIOLON	LDK	A3,LIOL
	RF	LMPON 
LIOLOF	LDK	A3,LIOL
	RF	LMPOF 
LINHON	LDK	A3,LINH
	RF	LMPON 
LINHOF	LDK	A3,LINH
	RF	LMPOF 
LERRON	LDK	A3,LERR
	RF	LMPON 
LERROF	LDK	A3,LERR
	RF	LMPOF 
LSAVON	LDK	A3,LSAV
	RF	LMPON 
LSAVOF	LDK	A3,LSAV
	RF	LMPOF 
* 
LMPON	LDK	A7,LON
	RF	SDISP 
LMPOF	LDK	A7,LOF
	RF	SDISP 
	EJECT

* 
********************************************************
* 
*	SDISP 
* 
*	SIGNAL DISPLAY MONITOR REQUEST
* 
********************************************************
* 
SDISP	EQU	* 
	LDKL	A8,ECBSD
	ADR	A8,CREBAS
	ST	A3,ECBCW,A8 
	LKM
	DATA	1 
	RTN	A14
	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…0034 (0, 0, 400)   Head {h00=0x0030, h01=0x0050, text=» IDENT START  REL 10.0 80-03-14 870150541000«, t00=0x0000, t01=0x0004}
0x0034…003c               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0062               Head {h00=0x0022, h01=0x0050, text=»   =6, SKIP CIRCULAR KB-BUFFER«, t00=0x0000, t01=0x0040}
0x0062…007e               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0066}
0x007e…00ae               Head {h00=0x002c, h01=0x0050, text=»   =4,CURSOR STOP AT LAST POS. EACH LINE«, t00=0x0000, t01=0x0082}
0x00ae…00ca               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x00b2}
0x00ca…00fa               Head {h00=0x002c, h01=0x0050, text=»   =5, RESET KEY DOESN7T WORK ON KB6234 «, t00=0x0000, t01=0x00ce}
0x00fa…0116               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x00fe}
0x0116…0138               Head {h00=0x001e, h01=0x0050, text=»   =1, ODD BUFFER ADDRESS «, t00=0x0000, t01=0x011a}
0x0138…0154               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x013c}
0x0154…016e               Head {h00=0x0016, h01=0x0050, text=»   =2, 6234 LAMPS «, t00=0x0000, t01=0x0158}
0x016e…018a               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0172}
0x018a…01a8               Head {h00=0x001a, h01=0x0050, text=»   =3, UNDEFINED LABEL«, t00=0x0000, t01=0x018e}
0x01a8…01c4               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0001, t01=0x001c}
0x01c4…020a               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0001, t01=0x0038}
0x020a…0214               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007e}
0x0214…0260               Head {h00=0x0048, h01=0x0050, text=»*   S T A R T  :  MODULE HANDLING KEYBOARD INPUT.KEYBOARD INITIATED «, t00=0x0001, t01=0x0088}
0x0260…02ac               Head {h00=0x0048, h01=0x0050, text=»*                 MESSAGES ADDRESSED TO THE MAIN FRAME ARE COMPOSED «, t00=0x0001, t01=0x00d4}
0x02ac…02f2               Head {h00=0x0042, h01=0x0050, text=»*                 AND SENT BY USING ROUTINES IN MODULE VDUPRT.«, t00=0x0001, t01=0x0120}
0x02f2…02fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0166}
0x02fc…034e               Head {h00=0x004e, h01=0x0050, text=»**************************************************************************«, t00=0x0001, t01=0x0170}
0x034e…0356               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0032}
0x0356…035e               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x003a}
0x035e…0366               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0042}
0x0366…036e               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x004a}
0x036e…037c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0052}
0x037c…0386               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0060}
0x0386…0390               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006a}
0x0390…03aa               Head {h00=0x0016, h01=0x0050, text=»* ENTRY PARAMETERS«, t00=0x0002, t01=0x0074}
0x03aa…03b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x008e}
0x03b4…03be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0098}
0x03be…03c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a2}
0x03c8…03ec               Head {h00=0x0020, h01=0x0050, text=» ENTRY LINHON,LINHOF,ATMASB «, t00=0x0002, t01=0x00ac}
0x03ec…0408               Head {h00=0x0018, h01=0x0050, text=» ENTRY LSAVOF,LSAVON«, t00=0x0002, t01=0x00d0}
0x0408…041c               Head {h00=0x0010, h01=0x0050, text=» ENTRY EMULA«, t00=0x0002, t01=0x00ec}
0x041c…0446               Head {h00=0x0026, h01=0x0050, text=» ENTRY LIOLON TURN ON OFFLINE LAMP«, t00=0x0002, t01=0x0100}
0x0446…0472               Head {h00=0x0028, h01=0x0050, text=» ENTRY LIOLOF TURN OFF OFFLINE LAMP «, t00=0x0002, t01=0x012a}
0x0472…0496               Head {h00=0x0020, h01=0x0050, text=» ENTRY VDUKB KB3270 (CREDIT)«, t00=0x0002, t01=0x0156}
0x0496…04ac               Head {h00=0x0012, h01=0x0050, text=» ENTRY DCTASK «, t00=0x0002, t01=0x017a}
0x04ac…04c2               Head {h00=0x0012, h01=0x0050, text=» ENTRY DC1INQ «, t00=0x0002, t01=0x0190}
0x04c2…04d8               Head {h00=0x0012, h01=0x0050, text=» ENTRY DC2INQ «, t00=0x0003, t01=0x0016}
0x04d8…0500               Head {h00=0x0024, h01=0x0050, text=» ENTRY REQTIM SET REQUEST TIMER «, t00=0x0003, t01=0x002c}
0x0500…0516               Head {h00=0x0012, h01=0x0050, text=» ENTRY ICWRTE «, t00=0x0003, t01=0x0054}
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…0534               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x007e}
0x0534…0556               Head {h00=0x001e, h01=0x0050, text=»*     EXTERNAL REFERENSES «, t00=0x0003, t01=0x0088}
0x0556…0560               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00aa}
0x0560…056a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b4}
0x056a…0574               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00be}
0x0574…0588               Head {h00=0x0010, h01=0x0050, text=» EXTRN DCINP«, t00=0x0003, t01=0x00c8}
0x0588…059e               Head {h00=0x0012, h01=0x0050, text=» EXTRN DCGETM «, t00=0x0003, t01=0x00dc}
0x059e…05b4               Head {h00=0x0012, h01=0x0050, text=» EXTRN ICREAD «, t00=0x0003, t01=0x00f2}
0x05b4…05ca               Head {h00=0x0012, h01=0x0050, text=» EXTRN GTRBUF «, t00=0x0003, t01=0x0108}
0x05ca…05e0               Head {h00=0x0012, h01=0x0050, text=» EXTRN RLRBUF «, t00=0x0003, t01=0x011e}
0x05e0…05fc               Head {h00=0x0018, h01=0x0050, text=» EXTRN ERASE VDUPRT «, t00=0x0003, t01=0x0134}
0x05fc…0610               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPF «, t00=0x0003, t01=0x0150}
0x0610…0626               Head {h00=0x0012, h01=0x0050, text=» EXTRN SETCUR «, t00=0x0003, t01=0x0164}
0x0626…063a               Head {h00=0x0010, h01=0x0050, text=» EXTRN WCHAR«, t00=0x0003, t01=0x017a}
0x063a…064e               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPA «, t00=0x0003, t01=0x018e}
0x064e…0664               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUA «, t00=0x0004, t01=0x0012}
0x0664…0678               Head {h00=0x0010, h01=0x0050, text=» EXTRN DISPL«, t00=0x0004, t01=0x0028}
0x0678…068e               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUP «, t00=0x0004, t01=0x003c}
0x068e…0698               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0052}
0x0698…06cc               Head {h00=0x0030, h01=0x0050, text=» EXTRN KEYCNV KEY CONVERSION IF NOT PTS 6272«, t00=0x0004, t01=0x005c}
0x06cc…06e2               Head {h00=0x0012, h01=0x0050, text=» EXTRN TASCII «, t00=0x0004, t01=0x0090}
0x06e2…06ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a6}
0x06ec…071c               Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0004, t01=0x00b0}
0x071c…0746               Head {h00=0x0026, h01=0x0050, text=» EXTRN I:RT1 RETURN TO CREDIT CODE«, t00=0x0004, t01=0x00e0}
0x0746…0754               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x010a}
0x0754…075c               Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0118}
0x075c…0764               Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0120}
0x0764…07a6               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0004, t01=0x0128}
0x07a6…07b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x016a}
0x07b0…07d0               Head {h00=0x001c, h01=0x0050, text=»*   CONDITIONAL ASSEMBLY«, t00=0x0004, t01=0x0174}
0x07d0…07da (5, 0, 398)   Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0004}
0x07da…0804               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0005, t01=0x000e}
0x0804…080c               Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0038}
0x080c…0816               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0040}
0x0816…0860               Head {h00=0x0046, h01=0x0050, text=»KB6272 EQU 1 IF PTS 6272 (6236) IS NOT USED YOU MUST USE 'KEYCNV' «, t00=0x0005, t01=0x004a}
0x0860…0894               Head {h00=0x0030, h01=0x0050, text=»   USE THE KEY CONVERSION TABLE IN 'TB3270' «, t00=0x0005, t01=0x0094}
0x0894…08c8               Head {h00=0x0030, h01=0x0050, text=»KEYLST EQU 0 KEY LOCK STATUS SAVED IN 'KEYS'«, t00=0x0005, t01=0x00c8}
0x08c8…08dc               Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 0 «, t00=0x0005, t01=0x00fc}
0x08dc…090e               Head {h00=0x002e, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1 OR 2)«, t00=0x0005, t01=0x0110}
0x090e…0920               Head {h00=0x000e, h01=0x0050, text=»PFX EQU 0 «, t00=0x0005, t01=0x0142}
0x0920…0932               Head {h00=0x000e, h01=0x0050, text=»PAX EQU 0 «, t00=0x0005, t01=0x0154}
0x0932…095e               Head {h00=0x0028, h01=0x0050, text=»IN:DL EQU 1 INSERT&DELETE FUNCTIONS «, t00=0x0005, t01=0x0166}
0x095e…099a (6, 0, 400)   Head {h00=0x0038, h01=0x0050, text=»COPCMD EQU 0 COPY COMMAND (ONLY TO PRINTER) IF := 1 «, t00=0x0006, t01=0x0004}
0x099a…09be               Head {h00=0x0020, h01=0x0050, text=»COPL EQU 0 COPY LOCK IF := 1«, t00=0x0006, t01=0x0040}
0x09be…09cc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0064}
0x09cc…09d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0072}
0x09d6…09e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x007c}
0x09e0…09f6               Head {h00=0x0012, h01=0x0050, text=»*     EQUATES «, t00=0x0006, t01=0x0086}
0x09f6…0a00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009c}
0x0a00…0a1e               Head {h00=0x001a, h01=0x0050, text=»RSET EQU /B2 RESET KEY«, t00=0x0006, t01=0x00a6}
0x0a1e…0a44               Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0006, t01=0x00c4}
0x0a44…0a4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ea}
0x0a4e…0a56               Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00f4}
0x0a56…0a6a               Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0006, t01=0x00fc}
0x0a6a…0a7e               Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0006, t01=0x0110}
0x0a7e…0a92               Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0006, t01=0x0124}
0x0a92…0aa6               Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0006, t01=0x0138}
0x0aa6…0aba               Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0006, t01=0x014c}
0x0aba…0ac4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0160}
0x0ac4…0ace               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x016a}
0x0ace…0ae8               Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0006, t01=0x0174}
0x0ae8…0af2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x018e}
0x0af2…0afc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0008}
0x0afc…0b18               Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0007, t01=0x0012}
0x0b18…0b22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x002e}
0x0b22…0b2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0038}
0x0b2c…0b3e               Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0007, t01=0x0042}
0x0b3e…0b48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0054}
0x0b48…0b62               Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0007, t01=0x005e}
0x0b62…0b76               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x0078}
0x0b76…0b8c               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x008c}
0x0b8c…0ba8               Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x00a2}
0x0ba8…0bc6               Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0007, t01=0x00be}
0x0bc6…0be4               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0007, t01=0x00dc}
0x0be4…0bf0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x00fa}
0x0bf0…0c04               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x0106}
0x0c04…0c1a               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0007, t01=0x011a}
0x0c1a…0c36               Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x0130}
0x0c36…0c54               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0007, t01=0x014c}
0x0c54…0c60               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x016a}
0x0c60…0c74               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0007, t01=0x0176}
0x0c74…0c8a               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x018a}
0x0c8a…0ca6               Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0008, t01=0x0010}
0x0ca6…0cc4               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x002c}
0x0cc4…0cd0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x004a}
0x0cd0…0ce4               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x0056}
0x0ce4…0cfa               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x006a}
0x0cfa…0d16               Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0008, t01=0x0080}
0x0d16…0d22               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x009c}
0x0d22…0d40               Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0008, t01=0x00a8}
0x0d40…0d5c               Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0008, t01=0x00c6}
0x0d5c…0d78               Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0008, t01=0x00e2}
0x0d78…0d86               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00fe}
0x0d86…0d90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010c}
0x0d90…0d9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0116}
0x0d9a…0dc0               Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0008, t01=0x0120}
0x0dc0…0dca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0146}
0x0dca…0de0               Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0008, t01=0x0150}
0x0de0…0dfa               Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0008, t01=0x0166}
0x0dfa…0e04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0180}
0x0e04…0e0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018a}
0x0e0e…0e2a (9, 0, 400)   Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0009, t01=0x0004}
0x0e2a…0e34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0020}
0x0e34…0e48               Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0009, t01=0x002a}
0x0e48…0e64               Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0009, t01=0x003e}
0x0e64…0e90               Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0009, t01=0x005a}
0x0e90…0ec4               Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0009, t01=0x0086}
0x0ec4…0ef2               Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0009, t01=0x00ba}
0x0ef2…0f0e               Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0009, t01=0x00e8}
0x0f0e…0f38               Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0009, t01=0x0104}
0x0f38…0f6a               Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x0009, t01=0x012e}
0x0f6a…0f92               Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x0009, t01=0x0160}
0x0f92…0fc6               Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x0009, t01=0x0188}
0x0fc6…0ffc               Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x000a, t01=0x002c}
0x0ffc…102c               Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000a, t01=0x0062}
0x102c…1054               Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000a, t01=0x0092}
0x1054…1080               Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000a, t01=0x00ba}
0x1080…10ae               Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000a, t01=0x00e6}
0x10ae…10d0               Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000a, t01=0x0114}
0x10d0…10fa               Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000a, t01=0x0136}
0x10fa…1122               Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000a, t01=0x0160}
0x1122…1154               Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000a, t01=0x0188}
0x1154…118a               Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000b, t01=0x002a}
0x118a…11c2               Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000b, t01=0x0060}
0x11c2…11d0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0098}
0x11d0…11f4               Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x000b, t01=0x00a6}
0x11f4…120a               Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x000b, t01=0x00ca}
0x120a…121e               Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x000b, t01=0x00e0}
0x121e…124c               Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHAR DISPLAY 6344 «, t00=0x000b, t01=0x00f4}
0x124c…1272               Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000b, t01=0x0122}
0x1272…12a0               Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000b, t01=0x0148}
0x12a0…12aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0176}
0x12aa…12d4               Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000b, t01=0x0180}
0x12d4…12de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x001a}
0x12de…1304               Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000c, t01=0x0024}
0x1304…132e               Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000c, t01=0x004a}
0x132e…1338               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0074}
0x1338…136e               Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000c, t01=0x007e}
0x136e…13a4               Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000c, t01=0x00b4}
0x13a4…13b8               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000c, t01=0x00ea}
0x13b8…13d4               Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000c, t01=0x00fe}
0x13d4…13f0               Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000c, t01=0x011a}
0x13f0…13fc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0136}
0x13fc…140a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0142}
0x140a…1414               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0150}
0x1414…1446               Head {h00=0x002e, h01=0x0050, text=»* KEY TABLE FIXED ENTRY FOR EACH FUNCTION «, t00=0x000c, t01=0x015a}
0x1446…1450               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x018c}
0x1450…1464               Head {h00=0x0010, h01=0x0050, text=»KEYTAB EQU *«, t00=0x000d, t01=0x0008}
0x1464…147c               Head {h00=0x0014, h01=0x0050, text=» DATA CHAR SPACE«, t00=0x000d, t01=0x001c}
0x147c…1490               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR !«, t00=0x000d, t01=0x0034}
0x1490…14a4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR "«, t00=0x000d, t01=0x0048}
0x14a4…14b8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR #«, t00=0x000d, t01=0x005c}
0x14b8…14cc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR $«, t00=0x000d, t01=0x0070}
0x14cc…14e0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR %«, t00=0x000d, t01=0x0084}
0x14e0…14f4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR &«, t00=0x000d, t01=0x0098}
0x14f4…1508               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR '«, t00=0x000d, t01=0x00ac}
0x1508…151c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR («, t00=0x000d, t01=0x00c0}
0x151c…1530               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR )«, t00=0x000d, t01=0x00d4}
0x1530…1544               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR *«, t00=0x000d, t01=0x00e8}
0x1544…1558               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR +«, t00=0x000d, t01=0x00fc}
0x1558…156c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ,«, t00=0x000d, t01=0x0110}
0x156c…1580               Head {h00=0x0010, h01=0x0050, text=» DATA NUM - «, t00=0x000d, t01=0x0124}
0x1580…1594               Head {h00=0x0010, h01=0x0050, text=» DATA NUM . «, t00=0x000d, t01=0x0138}
0x1594…15a8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR /«, t00=0x000d, t01=0x014c}
0x15a8…15b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0160}
0x15b2…15c4               Head {h00=0x000e, h01=0x0050, text=» DATA NUM «, t00=0x000d, t01=0x016a}
0x15c4…15d8               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 1 «, t00=0x000d, t01=0x017c}
0x15d8…15ec               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 2 «, t00=0x000d, t01=0x0190}
0x15ec…1600               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 3 «, t00=0x000e, t01=0x0014}
0x1600…1614               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 4 «, t00=0x000e, t01=0x0028}
0x1614…1628               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 5 «, t00=0x000e, t01=0x003c}
0x1628…163c               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 6 «, t00=0x000e, t01=0x0050}
0x163c…1650               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 7 «, t00=0x000e, t01=0x0064}
0x1650…1664               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 8 «, t00=0x000e, t01=0x0078}
0x1664…1678               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 9 «, t00=0x000e, t01=0x008c}
0x1678…168c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR :«, t00=0x000e, t01=0x00a0}
0x168c…16a0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ;«, t00=0x000e, t01=0x00b4}
0x16a0…16b4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR <«, t00=0x000e, t01=0x00c8}
0x16b4…16c8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR =«, t00=0x000e, t01=0x00dc}
0x16c8…16dc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR >«, t00=0x000e, t01=0x00f0}
0x16dc…16f0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ?«, t00=0x000e, t01=0x0104}
0x16f0…16fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0118}
0x16fa…1710               Head {h00=0x0012, h01=0x0050, text=» DATA CHAR E' «, t00=0x000e, t01=0x0122}
0x1710…1724               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR A«, t00=0x000e, t01=0x0138}
0x1724…1738               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR B«, t00=0x000e, t01=0x014c}
0x1738…174c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR C«, t00=0x000e, t01=0x0160}
0x174c…1760               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR D«, t00=0x000e, t01=0x0174}
0x1760…1774               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR E«, t00=0x000e, t01=0x0188}
0x1774…1788               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR F«, t00=0x000f, t01=0x000c}
0x1788…179c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR G«, t00=0x000f, t01=0x0020}
0x179c…17b0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR H«, t00=0x000f, t01=0x0034}
0x17b0…17c4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR I«, t00=0x000f, t01=0x0048}
0x17c4…17d8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR J«, t00=0x000f, t01=0x005c}
0x17d8…17ec               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR K«, t00=0x000f, t01=0x0070}
0x17ec…1800               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR L«, t00=0x000f, t01=0x0084}
0x1800…1814               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR M«, t00=0x000f, t01=0x0098}
0x1814…1828               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR N«, t00=0x000f, t01=0x00ac}
0x1828…183c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR O«, t00=0x000f, t01=0x00c0}
0x183c…1846               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d4}
0x1846…185a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR P«, t00=0x000f, t01=0x00de}
0x185a…186e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Q«, t00=0x000f, t01=0x00f2}
0x186e…1882               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR R«, t00=0x000f, t01=0x0106}
0x1882…1896               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR S«, t00=0x000f, t01=0x011a}
0x1896…18aa               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR T«, t00=0x000f, t01=0x012e}
0x18aa…18be               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR U«, t00=0x000f, t01=0x0142}
0x18be…18d2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR V«, t00=0x000f, t01=0x0156}
0x18d2…18e6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR W«, t00=0x000f, t01=0x016a}
0x18e6…18fa               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR X«, t00=0x000f, t01=0x017e}
0x18fa…190e (16, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Y«, t00=0x0010, t01=0x0004}
0x190e…1922               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Z«, t00=0x0010, t01=0x0018}
0x1922…1936               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR [«, t00=0x0010, t01=0x002c}
0x1936…1954               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR BACK SLASH «, t00=0x0010, t01=0x0040}
0x1954…1968               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ]«, t00=0x0010, t01=0x005e}
0x1968…1986               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR CIRCOMFLEX «, t00=0x0010, t01=0x0072}
0x1986…19a2               Head {h00=0x0018, h01=0x0050, text=» DATA CHAR UNDERLINE«, t00=0x0010, t01=0x0090}
0x19a2…19ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ac}
0x19ac…19d4               Head {h00=0x0024, h01=0x0050, text=» DATA RETURN /60 CANNOT BE USED «, t00=0x0010, t01=0x00b6}
0x19d4…19f2               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR LOWER CASE «, t00=0x0010, t01=0x00de}
0x19f2…1a04               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x00fc}
0x1a04…1a16               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x010e}
0x1a16…1a28               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0120}
0x1a28…1a3a               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0132}
0x1a3a…1a4c               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0144}
0x1a4c…1a5e               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0156}
0x1a5e…1a70               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x0168}
0x1a70…1a82               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x017a}
0x1a82…1a94               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0010, t01=0x018c}
0x1a94…1aa6               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x000e}
0x1aa6…1ab8               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0020}
0x1ab8…1aca               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0032}
0x1aca…1adc               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0044}
0x1adc…1aee               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0056}
0x1aee…1af8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0068}
0x1af8…1b0e               Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0011, t01=0x0072}
0x1b0e…1b28               Head {h00=0x0016, h01=0x0050, text=» DATA KEYL KEYLOCK«, t00=0x0011, t01=0x0088}
0x1b28…1b3a               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x00a2}
0x1b3a…1b4c               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x00b4}
0x1b4c…1b5e               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x00c6}
0x1b5e…1b70               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x00d8}
0x1b70…1b82               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x00ea}
0x1b82…1b94               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x00fc}
0x1b94…1ba6               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0011, t01=0x010e}
0x1ba6…1bb2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0120}
0x1bb2…1bc8               Head {h00=0x0012, h01=0x0050, text=» IFF KEYLST=1 «, t00=0x0011, t01=0x012c}
0x1bc8…1bdc               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0142}
0x1bdc…1bf0               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x0156}
0x1bf0…1c04               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x016a}
0x1c04…1c18               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0011, t01=0x017e}
0x1c18…1c2c (18, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0004}
0x1c2c…1c40               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0018}
0x1c40…1c54               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x002c}
0x1c54…1c68               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0040}
0x1c68…1c74               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0054}
0x1c74…1c94               Head {h00=0x001c, h01=0x0050, text=» DATA CHAR LOWER CASE X «, t00=0x0012, t01=0x0060}
0x1c94…1ca6               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x0080}
0x1ca6…1cb8               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0012, t01=0x0092}
0x1cb8…1ce4               Head {h00=0x0028, h01=0x0050, text=» DATA RETURN /7B-/7F CANNOT BE USED «, t00=0x0012, t01=0x00a4}
0x1ce4…1cf8               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x00d0}
0x1cf8…1d0c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x00e4}
0x1d0c…1d20               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x00f8}
0x1d20…1d34               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x010c}
0x1d34…1d3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0120}
0x1d3e…1d50               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0012, t01=0x012a}
0x1d50…1d62               Head {h00=0x000e, h01=0x0050, text=» DATA PAEX«, t00=0x0012, t01=0x013c}
0x1d62…1d6e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x014e}
0x1d6e…1d80               Head {h00=0x000e, h01=0x0050, text=» IFF PAX=1«, t00=0x0012, t01=0x015a}
0x1d80…1d94               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x016c}
0x1d94…1da0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0180}
0x1da0…1db2               Head {h00=0x000e, h01=0x0050, text=» DATA PA1 «, t00=0x0012, t01=0x018c}
0x1db2…1dc4               Head {h00=0x000e, h01=0x0050, text=» DATA PA2 «, t00=0x0013, t01=0x000e}
0x1dc4…1dd6               Head {h00=0x000e, h01=0x0050, text=» DATA PA3 «, t00=0x0013, t01=0x0020}
0x1dd6…1e00               Head {h00=0x0026, h01=0x0050, text=» DATA PA410 PA4 - PA10 (ALFASKOP) «, t00=0x0013, t01=0x0032}
0x1e00…1e14               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x005c}
0x1e14…1e28               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x0070}
0x1e28…1e3c               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x0084}
0x1e3c…1e50               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x0098}
0x1e50…1e64               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x00ac}
0x1e64…1e78               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x00c0}
0x1e78…1e8c               Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0013, t01=0x00d4}
0x1e8c…1e9e               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x0013, t01=0x00e8}
0x1e9e…1eb0               Head {h00=0x000e, h01=0x0050, text=» DATA PFEX«, t00=0x0013, t01=0x00fa}
0x1eb0…1ebc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x010c}
0x1ebc…1ece               Head {h00=0x000e, h01=0x0050, text=» IFF PFX=1«, t00=0x0013, t01=0x0118}
0x1ece…1ee2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x012a}
0x1ee2…1eee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x013e}
0x1eee…1f00               Head {h00=0x000e, h01=0x0050, text=» DATA PF 1«, t00=0x0013, t01=0x014a}
0x1f00…1f12               Head {h00=0x000e, h01=0x0050, text=» DATA PF 2«, t00=0x0013, t01=0x015c}
0x1f12…1f24               Head {h00=0x000e, h01=0x0050, text=» DATA PF 3«, t00=0x0013, t01=0x016e}
0x1f24…1f2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0180}
0x1f2e…1f40               Head {h00=0x000e, h01=0x0050, text=» DATA PF 4«, t00=0x0013, t01=0x018a}
0x1f40…1f52               Head {h00=0x000e, h01=0x0050, text=» DATA PF 5«, t00=0x0014, t01=0x000c}
0x1f52…1f64               Head {h00=0x000e, h01=0x0050, text=» DATA PF 6«, t00=0x0014, t01=0x001e}
0x1f64…1f76               Head {h00=0x000e, h01=0x0050, text=» DATA PF 7«, t00=0x0014, t01=0x0030}
0x1f76…1f88               Head {h00=0x000e, h01=0x0050, text=» DATA PF 8«, t00=0x0014, t01=0x0042}
0x1f88…1f9a               Head {h00=0x000e, h01=0x0050, text=» DATA PF 9«, t00=0x0014, t01=0x0054}
0x1f9a…1fae               Head {h00=0x0010, h01=0x0050, text=» DATA PF 10 «, t00=0x0014, t01=0x0066}
0x1fae…1fc2               Head {h00=0x0010, h01=0x0050, text=» DATA PF 11 «, t00=0x0014, t01=0x007a}
0x1fc2…1fd6               Head {h00=0x0010, h01=0x0050, text=» DATA PF 12 «, t00=0x0014, t01=0x008e}
0x1fd6…2008               Head {h00=0x002e, h01=0x0050, text=» DATA RETURN /99-/A4 RESERVED FOR PF13-24 «, t00=0x0014, t01=0x00a2}
0x2008…201c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00d4}
0x201c…2030               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00e8}
0x2030…2044               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00fc}
0x2044…2058               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0110}
0x2058…206c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0124}
0x206c…2080               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0138}
0x2080…208a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x014c}
0x208a…209e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x0156}
0x209e…20b2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x016a}
0x20b2…20c6               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x017e}
0x20c6…20da (21, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0004}
0x20da…20ee               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0018}
0x20ee…2102               Head {h00=0x0010, h01=0x0050, text=» DATA ENTER «, t00=0x0015, t01=0x002c}
0x2102…2114               Head {h00=0x000e, h01=0x0050, text=» DATA CRUP«, t00=0x0015, t01=0x0040}
0x2114…2128               Head {h00=0x0010, h01=0x0050, text=» DATA CRLEFT«, t00=0x0015, t01=0x0052}
0x2128…213c               Head {h00=0x0010, h01=0x0050, text=» DATA CRRIGT«, t00=0x0015, t01=0x0066}
0x213c…2150               Head {h00=0x0010, h01=0x0050, text=» DATA CRDOWN«, t00=0x0015, t01=0x007a}
0x2150…2164               Head {h00=0x0010, h01=0x0050, text=» DATA BAKTAB«, t00=0x0015, t01=0x008e}
0x2164…2176               Head {h00=0x000e, h01=0x0050, text=» DATA TAB «, t00=0x0015, t01=0x00a2}
0x2176…2188               Head {h00=0x000e, h01=0x0050, text=» DATA CRNL«, t00=0x0015, t01=0x00b4}
0x2188…219c               Head {h00=0x0010, h01=0x0050, text=» DATA RDHOME«, t00=0x0015, t01=0x00c6}
0x219c…21b0               Head {h00=0x0010, h01=0x0050, text=» DATA ERINPT«, t00=0x0015, t01=0x00da}
0x21b0…21c4               Head {h00=0x0010, h01=0x0050, text=» DATA EREOF «, t00=0x0015, t01=0x00ee}
0x21c4…21ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0102}
0x21ce…21e2               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x0015, t01=0x010c}
0x21e2…21f6               Head {h00=0x0010, h01=0x0050, text=» DATA INSERT«, t00=0x0015, t01=0x0120}
0x21f6…220a               Head {h00=0x0010, h01=0x0050, text=» DATA DELETE«, t00=0x0015, t01=0x0134}
0x220a…2216               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0148}
0x2216…222a               Head {h00=0x0010, h01=0x0050, text=» IFF IN:DL=1«, t00=0x0015, t01=0x0154}
0x222a…223e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0168}
0x223e…2252               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x017c}
0x2252…225e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0190}
0x225e…2272               Head {h00=0x0010, h01=0x0050, text=» DATA RESET «, t00=0x0016, t01=0x000c}
0x2272…2284               Head {h00=0x000e, h01=0x0050, text=» DATA DUP «, t00=0x0016, t01=0x0020}
0x2284…2298               Head {h00=0x0010, h01=0x0050, text=» DATA FLDMRK«, t00=0x0016, t01=0x0032}
0x2298…22aa               Head {h00=0x000e, h01=0x0050, text=» DATA COPY«, t00=0x0016, t01=0x0046}
0x22aa…22be               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0016, t01=0x0058}
0x22be…22d2               Head {h00=0x0010, h01=0x0050, text=» DATA OFLINE«, t00=0x0016, t01=0x006c}
0x22d2…22de               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0080}
0x22de…22f2               Head {h00=0x0010, h01=0x0050, text=» IFF OFLIN=1«, t00=0x0016, t01=0x008c}
0x22f2…2306               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x00a0}
0x2306…2312               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00b4}
0x2312…2326               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0016, t01=0x00c0}
0x2326…233a               Head {h00=0x0010, h01=0x0050, text=» DATA MFCHGE«, t00=0x0016, t01=0x00d4}
0x233a…2346               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00e8}
0x2346…235a               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0016, t01=0x00f4}
0x235a…236e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0108}
0x236e…237a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x011c}
0x237a…238e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0128}
0x238e…23a2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x013c}
0x23a2…23b6               Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:2«, t00=0x0016, t01=0x0150}
0x23b6…23ca               Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:3«, t00=0x0016, t01=0x0164}
0x23ca…23de               Head {h00=0x0010, h01=0x0050, text=» DATA NUMCOM«, t00=0x0016, t01=0x0178}
0x23de…23f2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x018c}
0x23f2…2406               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0010}
0x2406…241a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0024}
0x241a…2424               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0038}
0x2424…245e               Head {h00=0x0036, h01=0x0050, text=» DATA LCASPW LOWER CASE P - W (BECAUSE OF KEYLOCK)«, t00=0x0017, t01=0x0042}
0x245e…2472               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x007c}
0x2472…2486               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x0090}
0x2486…249a               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x00a4}
0x249a…24ae               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x00b8}
0x24ae…24c2               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x00cc}
0x24c2…24d6               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x00e0}
0x24d6…24ea               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0017, t01=0x00f4}
0x24ea…24f8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0108}
0x24f8…253e               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0017, t01=0x0116}
0x253e…2548               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x015c}
0x2548…256c               Head {h00=0x0020, h01=0x0050, text=»* START ADDRESS FOR DC TASKS«, t00=0x0017, t01=0x0166}
0x256c…25b2               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0017, t01=0x018a}
0x25b2…25ba               Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x0040}
0x25ba…25ce               Head {h00=0x0010, h01=0x0050, text=»DCTASK EQU *«, t00=0x0018, t01=0x0048}
0x25ce…25e4               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0018, t01=0x005c}
0x25e4…260e               Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A9 POLL & SELECT ADDRESS «, t00=0x0018, t01=0x0072}
0x260e…2624               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0018, t01=0x009c}
0x2624…263a               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0018, t01=0x00b2}
0x263a…2652               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0018, t01=0x00c8}
0x2652…267a               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x0018, t01=0x00e0}
0x267a…2686               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0018, t01=0x0108}
0x2686…2696               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0018, t01=0x0114}
0x2696…26aa               Head {h00=0x0010, h01=0x0050, text=»DCT100 EQU *«, t00=0x0018, t01=0x0124}
0x26aa…26dc               Head {h00=0x002e, h01=0x0050, text=» LDK A7,/80 TEST IF ANY MESSAGE WITH WAIT «, t00=0x0018, t01=0x0138}
0x26dc…26e8               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0018, t01=0x016a}
0x26e8…26f8               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0018, t01=0x0176}
0x26f8…2722               Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x0018, t01=0x0186}
0x2722…2738               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0019, t01=0x0020}
0x2738…274e               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0019, t01=0x0036}
0x274e…2764               Head {h00=0x0012, h01=0x0050, text=» CF A14,DCGETM«, t00=0x0019, t01=0x004c}
0x2764…277c               Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x0019, t01=0x0062}
0x277c…27a2               Head {h00=0x0022, h01=0x0050, text=» CF A14,RLRBUF RELEASE BUFFER «, t00=0x0019, t01=0x007a}
0x27a2…27b4               Head {h00=0x000e, h01=0x0050, text=» RB DCT100«, t00=0x0019, t01=0x00a0}
0x27b4…27c2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x00b2}
0x27c2…27cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00c0}
0x27cc…27d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ca}
0x27d6…2802               Head {h00=0x0028, h01=0x0050, text=»* SUBROUTINE ACTIVATED BY ALL TASKS «, t00=0x0019, t01=0x00d4}
0x2802…280c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0100}
0x280c…2816               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x010a}
0x2816…282a               Head {h00=0x0010, h01=0x0050, text=»EMULA EQU * «, t00=0x0019, t01=0x0114}
0x282a…2850               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS GET ECB ADDRESS«, t00=0x0019, t01=0x0128}
0x2850…2878               Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBCW,A8 STORE IN ECBDCT «, t00=0x0019, t01=0x014e}
0x2878…28a0               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x0019, t01=0x0176}
0x28a0…28ac               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001a, t01=0x000e}
0x28ac…28bc               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001a, t01=0x001a}
0x28bc…28cc               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x002a}
0x28cc…28da               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x003a}
0x28da…28e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0048}
0x28e4…2922               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x001a, t01=0x0052}
0x2922…292c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0090}
0x292c…2940               Head {h00=0x0010, h01=0x0050, text=»*     VDUKB «, t00=0x001a, t01=0x009a}
0x2940…294a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ae}
0x294a…2970               Head {h00=0x0022, h01=0x0050, text=»* MAIN MODULE FOR KEYBOARD VDU«, t00=0x001a, t01=0x00b8}
0x2970…297a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00de}
0x297a…29ba               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x001a, t01=0x00e8}
0x29ba…29ce               Head {h00=0x0010, h01=0x0050, text=»VDUKB EQU * «, t00=0x001a, t01=0x0128}
0x29ce…29e4               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x001a, t01=0x013c}
0x29e4…2a0e               Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x001a, t01=0x0152}
0x2a0e…2a16               Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x017c}
0x2a16…2a2a               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x001a, t01=0x0184}
0x2a2a…2a32               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0008}
0x2a32…2a3a               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0010}
0x2a3a…2a72               Head {h00=0x0034, h01=0x0050, text=» STR A12,A14 SAVE REGISTERS A12-A13 ON A14 STACK«, t00=0x001b, t01=0x0018}
0x2a72…2a88               Head {h00=0x0012, h01=0x0050, text=» ST A13,-2,A14«, t00=0x001b, t01=0x0050}
0x2a88…2ab0               Head {h00=0x0024, h01=0x0050, text=» SUKL A14,4 UPDATE STACK POINTER«, t00=0x001b, t01=0x0066}
0x2ab0…2aca               Head {h00=0x0016, h01=0x0050, text=» CM OFFFLG,TCABAS «, t00=0x001b, t01=0x008e}
0x2aca…2af8               Head {h00=0x002a, h01=0x0050, text=» CF A14,LIOLOF TURN OFF OFF LINE LAMP «, t00=0x001b, t01=0x00a8}
0x2af8…2b04               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00d6}
0x2b04…2b0c               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x00e2}
0x2b0c…2b1a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00ea}
0x2b1a…2b60               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x001b, t01=0x00f8}
0x2b60…2b6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x013e}
0x2b6a…2b9a               Head {h00=0x002c, h01=0x0050, text=»*   TRANSFER PARAMETER FOR MAIN FRAME #1«, t00=0x001b, t01=0x0148}
0x2b9a…2ba4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0178}
0x2ba4…2bea               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001b, t01=0x0182}
0x2bea…2bf2               Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0038}
0x2bf2…2c16               Head {h00=0x0020, h01=0x0050, text=» LDR* A4,TCABAS REL TASK NO «, t00=0x001c, t01=0x0040}
0x2c16…2c3c               Head {h00=0x0022, h01=0x0050, text=» AD A4,6,CREBAS 'CB1' ADDRESS «, t00=0x001c, t01=0x0064}
0x2c3c…2c66               Head {h00=0x0026, h01=0x0050, text=» LC A1,MF1KBV-1,A4 GET DV-ADDRESS «, t00=0x001c, t01=0x008a}
0x2c66…2c7a               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001c, t01=0x00b4}
0x2c7a…2c90               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001c, t01=0x00c8}
0x2c90…2ca6               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x001c, t01=0x00de}
0x2ca6…2cae               Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x00f4}
0x2cae…2cc2               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001c, t01=0x00fc}
0x2cc2…2d08               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001c, t01=0x0110}
0x2d08…2d12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0156}
0x2d12…2d42               Head {h00=0x002c, h01=0x0050, text=»*   TRANSFER PARAMETER FOR MAIN-FRAME #2«, t00=0x001c, t01=0x0160}
0x2d42…2d4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0190}
0x2d4c…2d92               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001d, t01=0x000a}
0x2d92…2d9a               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0050}
0x2d9a…2dc4               Head {h00=0x0026, h01=0x0050, text=» LC A1,MF2KBV-1,A4 GET DV ADDRESS «, t00=0x001d, t01=0x0058}
0x2dc4…2dd8               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001d, t01=0x0082}
0x2dd8…2df0               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001d, t01=0x0096}
0x2df0…2e06               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x001d, t01=0x00ae}
0x2e06…2e12               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00c4}
0x2e12…2e20               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00d0}
0x2e20…2e34               Head {h00=0x0010, h01=0x0050, text=»VDU080 EQU *«, t00=0x001d, t01=0x00de}
0x2e34…2e56               Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x001d, t01=0x00f2}
0x2e56…2e5e               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0114}
0x2e5e…2e70               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001d, t01=0x011c}
0x2e70…2e88               Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x001d, t01=0x012e}
0x2e88…2ec2               Head {h00=0x0036, h01=0x0050, text=» ST A1,CURATT,TCABAS INITIATE WITH UNFORM. SCREEN «, t00=0x001d, t01=0x0146}
0x2ec2…2ed8               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1ON«, t00=0x001d, t01=0x0180}
0x2ed8…2f08               Head {h00=0x002c, h01=0x0050, text=» CM MAIN,TCABAS INDICATE MAIN-FRAME # 1 «, t00=0x001e, t01=0x0008}
0x2f08…2f16               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0038}
0x2f16…2f20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0046}
0x2f20…2f40               Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x001e, t01=0x0050}
0x2f40…2f50               Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x001e, t01=0x0070}
0x2f50…2f62               Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x001e, t01=0x0080}
0x2f62…2f76               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001e, t01=0x0092}
0x2f76…2f8c               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x001e, t01=0x00a6}
0x2f8c…2f9e               Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x001e, t01=0x00bc}
0x2f9e…2fb0               Head {h00=0x000e, h01=0x0050, text=»ICR EQU 8 «, t00=0x001e, t01=0x00ce}
0x2fb0…2fc4               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 4 «, t00=0x001e, t01=0x00e0}
0x2fc4…2fd0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00f4}
0x2fd0…2fe4               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001e, t01=0x0100}
0x2fe4…2ffa               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x001e, t01=0x0114}
0x2ffa…300c               Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x001e, t01=0x012a}
0x300c…3020               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 3 «, t00=0x001e, t01=0x013c}
0x3020…302c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0150}
0x302c…3040               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x001e, t01=0x015c}
0x3040…3056               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x001e, t01=0x0170}
0x3056…3068               Head {h00=0x000e, h01=0x0050, text=»ICR EQU 6 «, t00=0x001e, t01=0x0186}
0x3068…307c               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 3 «, t00=0x001f, t01=0x0008}
0x307c…3088               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x001c}
0x3088…309c               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x001f, t01=0x0028}
0x309c…30b2               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x001f, t01=0x003c}
0x30b2…30c6               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 2 «, t00=0x001f, t01=0x0052}
0x30c6…30d2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0066}
0x30d2…30dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0072}
0x30dc…30f2               Head {h00=0x0012, h01=0x0050, text=» LDK A1,ECBBS «, t00=0x001f, t01=0x007c}
0x30f2…310e               Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBLK,TCABAS«, t00=0x001f, t01=0x0092}
0x310e…3122               Head {h00=0x0010, h01=0x0050, text=»VDU100 EQU *«, t00=0x001f, t01=0x00ae}
0x3122…3142               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC1,TCABAS«, t00=0x001f, t01=0x00c2}
0x3142…3160               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU110 PENDING«, t00=0x001f, t01=0x00e2}
0x3160…3194               Head {h00=0x0030, h01=0x0050, text=» CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT «, t00=0x001f, t01=0x0100}
0x3194…31a8               Head {h00=0x0010, h01=0x0050, text=»VDU110 EQU *«, t00=0x001f, t01=0x0134}
0x31a8…31bc               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001f, t01=0x0148}
0x31bc…31dc               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x001f, t01=0x015c}
0x31dc…31fa               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU120 PENDING«, t00=0x001f, t01=0x017c}
0x31fa…3234               Head {h00=0x0036, h01=0x0050, text=» CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT«, t00=0x0020, t01=0x000a}
0x3234…3240               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0044}
0x3240…3254               Head {h00=0x0010, h01=0x0050, text=»VDU120 EQU *«, t00=0x0020, t01=0x0050}
0x3254…326a               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0020, t01=0x0064}
0x326a…328a               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+ICR,TCABAS«, t00=0x0020, t01=0x007a}
0x328a…32a8               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU125 PENDING«, t00=0x0020, t01=0x009a}
0x32a8…32c6               Head {h00=0x001a, h01=0x0050, text=» LDKL A3,ICWORK BUFFER«, t00=0x0020, t01=0x00b8}
0x32c6…32e6               Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS   ADDRESS«, t00=0x0020, t01=0x00d6}
0x32e6…3302               Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x0020, t01=0x00f6}
0x3302…3318               Head {h00=0x0012, h01=0x0050, text=» CF A14,ICREAD«, t00=0x0020, t01=0x0112}
0x3318…3338               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+ICR,TCABAS«, t00=0x0020, t01=0x0128}
0x3338…3344               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0148}
0x3344…3358               Head {h00=0x0010, h01=0x0050, text=»VDU125 EQU *«, t00=0x0020, t01=0x0154}
0x3358…3378               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+KB,TCABAS «, t00=0x0020, t01=0x0168}
0x3378…3396               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU150 PENDING«, t00=0x0020, t01=0x0188}
0x3396…33c2               Head {h00=0x0028, h01=0x0050, text=» CF A14,RDKBNW READ KEYBOARD NO WAIT«, t00=0x0021, t01=0x0016}
0x33c2…33d6               Head {h00=0x0010, h01=0x0050, text=»VDU150 EQU *«, t00=0x0021, t01=0x0042}
0x33d6…33ee               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0021, t01=0x0056}
0x33ee…3404               Head {h00=0x0012, h01=0x0050, text=» ADR A7,TCABAS«, t00=0x0021, t01=0x006e}
0x3404…3410               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0021, t01=0x0084}
0x3410…342e               Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x0021, t01=0x0090}
0x342e…344e               Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+KB,TCABAS «, t00=0x0021, t01=0x00ae}
0x344e…3476               Head {h00=0x0024, h01=0x0050, text=» RF(E) KBINP INPUT FROM KEYBOARD«, t00=0x0021, t01=0x00ce}
0x3476…348c               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0021, t01=0x00f6}
0x348c…34ac               Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+ICR,TCABAS«, t00=0x0021, t01=0x010c}
0x34ac…34d8               Head {h00=0x0028, h01=0x0050, text=» RF(E) BUFCOP SEND BUFFER TO PRINTER«, t00=0x0021, t01=0x012c}
0x34d8…34e4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0158}
0x34e4…3522               Head {h00=0x003a, h01=0x0050, text=» ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ«, t00=0x0021, t01=0x0164}
0x3522…3546               Head {h00=0x0020, h01=0x0050, text=» CF A14,DCINP INPUT FROM DC «, t00=0x0022, t01=0x0012}
0x3546…3558               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0022, t01=0x0036}
0x3558…3566               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0048}
0x3566…3570               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0056}
0x3570…3594               Head {h00=0x0020, h01=0x0050, text=»* READ KEYBOARD WITH NO WAIT«, t00=0x0022, t01=0x0060}
0x3594…359e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0084}
0x359e…35b2               Head {h00=0x0010, h01=0x0050, text=»RDKBNW EQU *«, t00=0x0022, t01=0x008e}
0x35b2…35c8               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x0022, t01=0x00a2}
0x35c8…35de               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0022, t01=0x00b8}
0x35de…35f0               Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0022, t01=0x00ce}
0x35f0…3616               Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 1«, t00=0x0022, t01=0x00e0}
0x3616…3644               Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 INDICATE NOT POWER OFF«, t00=0x0022, t01=0x0106}
0x3644…3664               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+KB,TCABAS «, t00=0x0022, t01=0x0134}
0x3664…3676               Head {h00=0x000e, h01=0x0050, text=» RF DC1I30«, t00=0x0022, t01=0x0154}
0x3676…3680               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0166}
0x3680…36a0               Head {h00=0x001c, h01=0x0050, text=»* TEST IF ANY MESSAGE DC«, t00=0x0022, t01=0x0170}
0x36a0…36aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0190}
0x36aa…36be               Head {h00=0x0010, h01=0x0050, text=»DC1INQ EQU *«, t00=0x0023, t01=0x000a}
0x36be…36d4               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0023, t01=0x001e}
0x36d4…36ea               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0023, t01=0x0034}
0x36ea…370a               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+DC1,TCABAS«, t00=0x0023, t01=0x004a}
0x370a…371e               Head {h00=0x0010, h01=0x0050, text=»DC1I20 EQU *«, t00=0x0023, t01=0x006a}
0x371e…3730               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0023, t01=0x007e}
0x3730…3746               Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0023, t01=0x0090}
0x3746…3758               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0023, t01=0x00a6}
0x3758…376c               Head {h00=0x0010, h01=0x0050, text=»DC1I30 EQU *«, t00=0x0023, t01=0x00b8}
0x376c…3778               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0023, t01=0x00cc}
0x3778…3788               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0023, t01=0x00d8}
0x3788…3798               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0023, t01=0x00e8}
0x3798…37ac               Head {h00=0x0010, h01=0x0050, text=»DC2INQ EQU *«, t00=0x0023, t01=0x00f8}
0x37ac…37c0               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0023, t01=0x010c}
0x37c0…37d8               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x0023, t01=0x0120}
0x37d8…37ee               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0023, t01=0x0138}
0x37ee…380e               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+DC2,TCABAS«, t00=0x0023, t01=0x014e}
0x380e…3820               Head {h00=0x000e, h01=0x0050, text=» RB DC1I20«, t00=0x0023, t01=0x016e}
0x3820…382c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0180}
0x382c…3842               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0023, t01=0x018c}
0x3842…3850               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0012}
0x3850…385a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0020}
0x385a…3880               Head {h00=0x0022, h01=0x0050, text=»* SEND BUFFER TO PRINTER TASK «, t00=0x0024, t01=0x002a}
0x3880…388a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0050}
0x388a…389e               Head {h00=0x0010, h01=0x0050, text=»BUFCOP EQU *«, t00=0x0024, t01=0x005a}
0x389e…38bc               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0024, t01=0x006e}
0x38bc…38d8               Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x0024, t01=0x008c}
0x38d8…38f8               Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS   ADDRESS«, t00=0x0024, t01=0x00a8}
0x38f8…390c               Head {h00=0x0010, h01=0x0050, text=» IFT COPL=1 «, t00=0x0024, t01=0x00c8}
0x390c…3916               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00dc}
0x3916…3932               Head {h00=0x0018, h01=0x0050, text=»* CHECK IF COPY LOCK«, t00=0x0024, t01=0x00e6}
0x3932…393c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0102}
0x393c…394e               Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0024, t01=0x010c}
0x394e…3962               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/18 «, t00=0x0024, t01=0x011e}
0x3962…3976               Head {h00=0x0010, h01=0x0050, text=» XRK A2,/10 «, t00=0x0024, t01=0x0132}
0x3976…3996               Head {h00=0x001c, h01=0x0050, text=» RB(Z) VDU100 DON'T COPY«, t00=0x0024, t01=0x0146}
0x3996…39a2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0166}
0x39a2…39b8               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0024, t01=0x0172}
0x39b8…39ec               Head {h00=0x0030, h01=0x0050, text=» LDK A4,/8B ORDER: WRITE ADDRESSED WITH WAIT«, t00=0x0024, t01=0x0188}
0x39ec…3a10               Head {h00=0x0020, h01=0x0050, text=» LD A5,ICWORK,TCABAS TASK ID«, t00=0x0025, t01=0x002c}
0x3a10…3a32               Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x0025, t01=0x0050}
0x3a32…3a48               Head {h00=0x0012, h01=0x0050, text=» CF A14,ICWRTE«, t00=0x0025, t01=0x0072}
0x3a48…3a64               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0025, t01=0x0088}
0x3a64…3a90               Head {h00=0x0028, h01=0x0050, text=» ANK A1,/E NOT INHIBITED ANY LONGER «, t00=0x0025, t01=0x00a4}
0x3a90…3aac               Head {h00=0x0018, h01=0x0050, text=» ST A1,KBINH,TCABAS «, t00=0x0025, t01=0x00d0}
0x3aac…3abe               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0025, t01=0x00ec}
0x3abe…3aca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x00fe}
0x3aca…3ad8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x010a}
0x3ad8…3af2               Head {h00=0x0016, h01=0x0050, text=»** KEYBOARD INPUT «, t00=0x0025, t01=0x0118}
0x3af2…3afc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0132}
0x3afc…3b10               Head {h00=0x0010, h01=0x0050, text=»KBINP EQU * «, t00=0x0025, t01=0x013c}
0x3b10…3b2c               Head {h00=0x0018, h01=0x0050, text=» CM ECBBLK+KB,TCABAS«, t00=0x0025, t01=0x0150}
0x3b2c…3b44               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A8 «, t00=0x0025, t01=0x016c}
0x3b44…3b64               Head {h00=0x001c, h01=0x0050, text=» RF(Z) KBIN05 POWER OFF «, t00=0x0025, t01=0x0184}
0x3b64…3b7c               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRC,A8 «, t00=0x0026, t01=0x0014}
0x3b7c…3b92               Head {h00=0x0012, h01=0x0050, text=» RF(0) KBIN10 «, t00=0x0026, t01=0x002c}
0x3b92…3ba6               Head {h00=0x0010, h01=0x0050, text=»KBIN05 EQU *«, t00=0x0026, t01=0x0042}
0x3ba6…3bd0               Head {h00=0x0026, h01=0x0050, text=» LDK A7,/31 RESET KEYBOARD BUFFER «, t00=0x0026, t01=0x0056}
0x3bd0…3bdc               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0026, t01=0x0080}
0x3bdc…3bec               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0026, t01=0x008c}
0x3bec…3bfe               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0026, t01=0x009c}
0x3bfe…3c12               Head {h00=0x0010, h01=0x0050, text=»KBIN10 EQU *«, t00=0x0026, t01=0x00ae}
0x3c12…3c2e               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0026, t01=0x00c2}
0x3c2e…3c5e               Head {h00=0x002c, h01=0x0050, text=» ANK A1,1 RESETTING BY 'RESET' ALLOWED ?«, t00=0x0026, t01=0x00de}
0x3c5e…3c78               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) KBIN05 NO «, t00=0x0026, t01=0x010e}
0x3c78…3ca4               Head {h00=0x0028, h01=0x0050, text=» LC* A2,ECBBA,A8 GET INPUT CHARACTER«, t00=0x0026, t01=0x0128}
0x3ca4…3cbe               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  =5 «, t00=0x0026, t01=0x0154}
0x3cbe…3ce8               Head {h00=0x0026, h01=0x0050, text=» CF A14,KEYCNV CONVERT KEY CODE =5«, t00=0x0026, t01=0x016e}
0x3ce8…3cfa               Head {h00=0x000e, h01=0x0050, text=» XIF   =5 «, t00=0x0027, t01=0x0008}
0x3cfa…3d16               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0027, t01=0x001a}
0x3d16…3d3c               Head {h00=0x0022, h01=0x0050, text=» ANK A1,6 MUST BE RESET KEY ? «, t00=0x0027, t01=0x0036}
0x3d3c…3d54               Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN20 NO«, t00=0x0027, t01=0x005c}
0x3d54…3d74               Head {h00=0x001c, h01=0x0050, text=» CWK A2,RSET RESET KEY ?«, t00=0x0027, t01=0x0074}
0x3d74…3d8e               Head {h00=0x0016, h01=0x0050, text=» RB(NE) KBIN05 NO «, t00=0x0027, t01=0x0094}
0x3d8e…3da2               Head {h00=0x0010, h01=0x0050, text=»KBIN20 EQU *«, t00=0x0027, t01=0x00ae}
0x3da2…3dc0               Head {h00=0x001a, h01=0x0050, text=»   KB6234 RESET KEY =5«, t00=0x0027, t01=0x00c2}
0x3dc0…3de8               Head {h00=0x0024, h01=0x0050, text=» LDR A5,A2 COPY INPUT CHARACTER «, t00=0x0027, t01=0x00e0}
0x3de8…3e02               Head {h00=0x0016, h01=0x0050, text=» SUK A5,/20 INDEX «, t00=0x0027, t01=0x0108}
0x3e02…3e24               Head {h00=0x001e, h01=0x0050, text=» RB(N) VDU100 ILLEGAL CHAR«, t00=0x0027, t01=0x0122}
0x3e24…3e38               Head {h00=0x0010, h01=0x0050, text=» CWK A5,/A7 «, t00=0x0027, t01=0x0144}
0x3e38…3e5a               Head {h00=0x001e, h01=0x0050, text=» RB(G) VDU100 ILLEGAL CHAR«, t00=0x0027, t01=0x0158}
0x3e5a…3e92               Head {h00=0x0034, h01=0x0050, text=» CF A14,DCABOR ABORT DC-READ TO ENABLE DC-WRITE «, t00=0x0027, t01=0x017a}
0x3e92…3ea4               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0028, t01=0x0022}
0x3ea4…3ede               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) VDU100 DC COMPLETED, TAKE CARE OF MESSAGE«, t00=0x0028, t01=0x0034}
0x3ede…3efe               Head {h00=0x001c, h01=0x0050, text=» ADR A5,A5 TO KEY TABLE «, t00=0x0028, t01=0x006e}
0x3efe…3f08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x008e}
0x3f08…3f20               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0028, t01=0x0098}
0x3f20…3f36               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0028, t01=0x00b0}
0x3f36…3f52               Head {h00=0x0018, h01=0x0050, text=» LD A1,RDMORE,TCABAS«, t00=0x0028, t01=0x00c6}
0x3f52…3f68               Head {h00=0x0012, h01=0x0050, text=» RF(Z) KBIN30 «, t00=0x0028, t01=0x00e2}
0x3f68…3f72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00f8}
0x3f72…3f86               Head {h00=0x0010, h01=0x0050, text=» CFR A14,A1 «, t00=0x0028, t01=0x0102}
0x3f86…3f9a               Head {h00=0x0010, h01=0x0050, text=» ABL VDU100 «, t00=0x0028, t01=0x0116}
0x3f9a…3fa4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x012a}
0x3fa4…3fb8               Head {h00=0x0010, h01=0x0050, text=»KBIN30 EQU *«, t00=0x0028, t01=0x0134}
0x3fb8…3ff6               Head {h00=0x003a, h01=0x0050, text=» CFI A14,KEYTAB,A5 BRANCH TO RESPECTIVE INPUT HANDLER «, t00=0x0028, t01=0x0148}
0x3ff6…400a               Head {h00=0x0010, h01=0x0050, text=» ABL VDU100 «, t00=0x0028, t01=0x0186}
0x400a…4018               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x000a}
0x4018…4022               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0018}
0x4022…404c               Head {h00=0x0026, h01=0x0050, text=»* ABORT DC-REQUEST TO ENABLE WRITE«, t00=0x0029, t01=0x0022}
0x404c…4056               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x004c}
0x4056…406a               Head {h00=0x0010, h01=0x0050, text=»DCABOR EQU *«, t00=0x0029, t01=0x0056}
0x406a…407c               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0029, t01=0x006a}
0x407c…4092               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0029, t01=0x007c}
0x4092…40a6               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0029, t01=0x0092}
0x40a6…40c0               Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x0029, t01=0x00a6}
0x40c0…40d6               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCAB05«, t00=0x0029, t01=0x00c0}
0x40d6…40e2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00d6}
0x40e2…4100               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x0029, t01=0x00e2}
0x4100…4114               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0029, t01=0x0100}
0x4114…4126               Head {h00=0x000e, h01=0x0050, text=» RF DCAB10«, t00=0x0029, t01=0x0114}
0x4126…413a               Head {h00=0x0010, h01=0x0050, text=»DCAB05 EQU *«, t00=0x0029, t01=0x0126}
0x413a…4158               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x0029, t01=0x013a}
0x4158…4170               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x0029, t01=0x0158}
0x4170…4184               Head {h00=0x0010, h01=0x0050, text=»DCAB10 EQU *«, t00=0x0029, t01=0x0170}
0x4184…4190               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0184}
0x4190…41a6               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0029, t01=0x0190}
0x41a6…41b2               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x0016}
0x41b2…41c2               Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x002a, t01=0x0022}
0x41c2…41d2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x0032}
0x41d2…41e0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0042}
0x41e0…41ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0050}
0x41ea…4206               Head {h00=0x0018, h01=0x0050, text=»* SET REQUEST TIMER «, t00=0x002a, t01=0x005a}
0x4206…4224               Head {h00=0x001a, h01=0x0050, text=»* A1 = TIME OUT VALUE «, t00=0x002a, t01=0x0076}
0x4224…423e               Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x002a, t01=0x0094}
0x423e…4248               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ae}
0x4248…425c               Head {h00=0x0010, h01=0x0050, text=»REQTIM EQU *«, t00=0x002a, t01=0x00b8}
0x425c…4274               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x002a, t01=0x00cc}
0x4274…4288               Head {h00=0x0010, h01=0x0050, text=» LDK A7,/B9 «, t00=0x002a, t01=0x00e4}
0x4288…4294               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x00f8}
0x4294…42a4               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x002a, t01=0x0104}
0x42a4…42b4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x0114}
0x42b4…42c2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0124}
0x42c2…42ca               Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0132}
0x42ca…42d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x013a}
0x42d4…42de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0144}
0x42de…4320               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002a, t01=0x014e}
0x4320…432a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0190}
0x432a…433a               Head {h00=0x000c, h01=0x0050, text=»* RETURN«, t00=0x002b, t01=0x000a}
0x433a…4344               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x001a}
0x4344…438a               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002b, t01=0x0024}
0x438a…4394               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x006a}
0x4394…43aa               Head {h00=0x0012, h01=0x0050, text=»RETURN RTN A14«, t00=0x002b, t01=0x0074}
0x43aa…43b8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x008a}
0x43b8…43c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0098}
0x43c2…4402               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002b, t01=0x00a2}
0x4402…440c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00e2}
0x440c…4420               Head {h00=0x0010, h01=0x0050, text=»*     CRLEFT«, t00=0x002b, t01=0x00ec}
0x4420…442a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0100}
0x442a…4464               Head {h00=0x0036, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS TO LEFT«, t00=0x002b, t01=0x010a}
0x4464…446e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0144}
0x446e…44ae               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002b, t01=0x014e}
0x44ae…44b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x018e}
0x44b8…44cc               Head {h00=0x0010, h01=0x0050, text=»CRLEFT EQU *«, t00=0x002c, t01=0x0008}
0x44cc…44fa               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002c, t01=0x001c}
0x44fa…450c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x002c, t01=0x004a}
0x450c…4534               Head {h00=0x0024, h01=0x0050, text=» RF(NN) CRL050 NOT LEFTMOST POS «, t00=0x002c, t01=0x005c}
0x4534…454c               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x002c, t01=0x0084}
0x454c…4564               Head {h00=0x0014, h01=0x0050, text=»CRL050 RF CRH100«, t00=0x002c, t01=0x009c}
0x4564…456e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00b4}
0x456e…45ae               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002c, t01=0x00be}
0x45ae…45b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00fe}
0x45b8…45cc               Head {h00=0x0010, h01=0x0050, text=»*     CRRIGT«, t00=0x002c, t01=0x0108}
0x45cc…45d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x011c}
0x45d6…4616               Head {h00=0x003c, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS. TO THE RIGHT«, t00=0x002c, t01=0x0126}
0x4616…4620               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0166}
0x4620…4660               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002c, t01=0x0170}
0x4660…466a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0020}
0x466a…4680               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x002d, t01=0x002a}
0x4680…468a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0040}
0x468a…469e               Head {h00=0x0010, h01=0x0050, text=»CRRIGT EQU *«, t00=0x002d, t01=0x004a}
0x469e…46cc               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002d, t01=0x005e}
0x46cc…46de               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x002d, t01=0x008c}
0x46de…4702               Head {h00=0x0020, h01=0x0050, text=» CWK A2,LBVDU END OF BUFFER?«, t00=0x002d, t01=0x009e}
0x4702…471a               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRR050 NO«, t00=0x002d, t01=0x00c2}
0x471a…472c               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x002d, t01=0x00da}
0x472c…4744               Head {h00=0x0014, h01=0x0050, text=»CRR050 RF CRH100«, t00=0x002d, t01=0x00ec}
0x4744…4752               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0104}
0x4752…475c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0112}
0x475c…47a0               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x002d, t01=0x011c}
0x47a0…47aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0160}
0x47aa…47ba               Head {h00=0x000c, h01=0x0050, text=»* CRDOWN«, t00=0x002d, t01=0x016a}
0x47ba…47c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x017a}
0x47c4…4804               Head {h00=0x003c, h01=0x0050, text=»* THE MODULE MOVES THE CURSOR TO NEXT ROW. SAME COLUMN. «, t00=0x002d, t01=0x0184}
0x4804…480e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0034}
0x480e…4852               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002e, t01=0x003e}
0x4852…485c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0082}
0x485c…4870               Head {h00=0x0010, h01=0x0050, text=»CRDOWN EQU *«, t00=0x002e, t01=0x008c}
0x4870…489a               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x002e, t01=0x00a0}
0x489a…48b0               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LLINE«, t00=0x002e, t01=0x00ca}
0x48b0…48d0               Head {h00=0x001c, h01=0x0050, text=» CWK A2,LBVDU LAST LINE?«, t00=0x002e, t01=0x00e0}
0x48d0…48e8               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRD050 NO«, t00=0x002e, t01=0x0100}
0x48e8…48fe               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LBVDU«, t00=0x002e, t01=0x0118}
0x48fe…4916               Head {h00=0x0014, h01=0x0050, text=»CRD050 RF CRH100«, t00=0x002e, t01=0x012e}
0x4916…4920               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0146}
0x4920…4966               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002e, t01=0x0150}
0x4966…4970               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0008}
0x4970…497e               Head {h00=0x000a, h01=0x0050, text=»* CRUP«, t00=0x002f, t01=0x0012}
0x497e…4988               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0020}
0x4988…49b4               Head {h00=0x0028, h01=0x0050, text=»* MOVE CURSOR ONE LINE UP. SAME COL.«, t00=0x002f, t01=0x002a}
0x49b4…49be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0056}
0x49be…4a04               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002f, t01=0x0060}
0x4a04…4a0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00a6}
0x4a0e…4a20               Head {h00=0x000e, h01=0x0050, text=»CRUP EQU *«, t00=0x002f, t01=0x00b0}
0x4a20…4a4e               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002f, t01=0x00c2}
0x4a4e…4a64               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LLINE«, t00=0x002f, t01=0x00f0}
0x4a64…4a86               Head {h00=0x001e, h01=0x0050, text=» RF(NN) CRU050 UPMOST LINE«, t00=0x002f, t01=0x0106}
0x4a86…4a9c               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LBVDU«, t00=0x002f, t01=0x0128}
0x4a9c…4ab4               Head {h00=0x0014, h01=0x0050, text=»CRU050 RF CRH100«, t00=0x002f, t01=0x013e}
0x4ab4…4ac2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0156}
0x4ac2…4acc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0164}
0x4acc…4b0a               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002f, t01=0x016e}
0x4b0a…4b14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x001c}
0x4b14…4b24               Head {h00=0x000c, h01=0x0050, text=»* CRHOME«, t00=0x0030, t01=0x0026}
0x4b24…4b2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0036}
0x4b2e…4b52               Head {h00=0x0020, h01=0x0050, text=»* HOME POSITIONING OF CURSOR«, t00=0x0030, t01=0x0040}
0x4b52…4b5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0064}
0x4b5c…4b9a               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0030, t01=0x006e}
0x4b9a…4ba4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00ac}
0x4ba4…4bb8               Head {h00=0x0010, h01=0x0050, text=»CRHOME EQU *«, t00=0x0030, t01=0x00b6}
0x4bb8…4bca               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0030, t01=0x00ca}
0x4bca…4bde               Head {h00=0x0010, h01=0x0050, text=»CRH100 EQU *«, t00=0x0030, t01=0x00dc}
0x4bde…4c0c               Head {h00=0x002a, h01=0x0050, text=» ST A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x0030, t01=0x00f0}
0x4c0c…4c30               Head {h00=0x0020, h01=0x0050, text=» CF A14,ATMASB UPDATE ATTRIB«, t00=0x0030, t01=0x011e}
0x4c30…4c56               Head {h00=0x0022, h01=0x0050, text=» CF A14,SETCUR DISPLAY CURSOR «, t00=0x0030, t01=0x0142}
0x4c56…4c66               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0030, t01=0x0168}
0x4c66…4c74               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0178}
0x4c74…4c7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0186}
0x4c7e…4cbc               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0030, t01=0x0190}
0x4cbc…4cc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x003e}
0x4cc6…4cd4               Head {h00=0x000a, h01=0x0050, text=»* CRNL«, t00=0x0031, t01=0x0048}
0x4cd4…4cde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0056}
0x4cde…4d14               Head {h00=0x0032, h01=0x0050, text=»* CURSOR IN FIRST UNPROTECTED POS ON NEW LINE «, t00=0x0031, t01=0x0060}
0x4d14…4d1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0096}
0x4d1e…4d5c               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0031, t01=0x00a0}
0x4d5c…4d66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00de}
0x4d66…4d78               Head {h00=0x000e, h01=0x0050, text=»CRNL EQU *«, t00=0x0031, t01=0x00e8}
0x4d78…4da2               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0031, t01=0x00fa}
0x4da2…4dc2               Head {h00=0x001c, h01=0x0050, text=» ADKL A2,LLINE NEXT LINE«, t00=0x0031, t01=0x0124}
0x4dc2…4dd8               Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x0031, t01=0x0144}
0x4dd8…4dee               Head {h00=0x0012, h01=0x0050, text=» RF(L) CRN050 «, t00=0x0031, t01=0x015a}
0x4dee…4e0c               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND «, t00=0x0031, t01=0x0170}
0x4e0c…4e16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x018e}
0x4e16…4e34               Head {h00=0x001a, h01=0x0050, text=»* COMPUTE LEFTMOST POS«, t00=0x0032, t01=0x0008}
0x4e34…4e3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0026}
0x4e3e…4e56               Head {h00=0x0014, h01=0x0050, text=»CRN050 LDK A1,0 «, t00=0x0032, t01=0x0030}
0x4e56…4e72               Head {h00=0x0018, h01=0x0050, text=»CRN100 SUKL A2,LLINE«, t00=0x0032, t01=0x0048}
0x4e72…4e88               Head {h00=0x0012, h01=0x0050, text=» RF(N) CRN120 «, t00=0x0032, t01=0x0064}
0x4e88…4e9e               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,LLINE«, t00=0x0032, t01=0x007a}
0x4e9e…4eb0               Head {h00=0x000e, h01=0x0050, text=» RB CRN100«, t00=0x0032, t01=0x0090}
0x4eb0…4ee6               Head {h00=0x0032, h01=0x0050, text=»CRN120 ST A1,PCURS,TCABAS STORE CURSOR ADDRESS«, t00=0x0032, t01=0x00a2}
0x4ee6…4ef4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x00d8}
0x4ef4…4efc               Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x00e6}
0x4efc…4f46               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0032, t01=0x00ee}
0x4f46…4f58               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0032, t01=0x0138}
0x4f58…4f8a               Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x0032, t01=0x014a}
0x4f8a…4f9c               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0032, t01=0x017c}
0x4f9c…4fc4               Head {h00=0x0024, h01=0x0050, text=» RF(Z) CRN130 NO ATTRIBUTE FOUND«, t00=0x0032, t01=0x018e}
0x4fc4…4fd8               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x0033, t01=0x0026}
0x4fd8…4ffc               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TAB PROTECTED FIELD «, t00=0x0033, t01=0x003a}
0x4ffc…502e               Head {h00=0x002e, h01=0x0050, text=» CW A2,PCURS,TCABAS CURSOR ON ATTRIBUTE ??«, t00=0x0033, t01=0x005e}
0x502e…504a               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN150 NO!! «, t00=0x0033, t01=0x0090}
0x504a…5076               Head {h00=0x0028, h01=0x0050, text=» CWK A2,1919 LAST SCREEN POSITION?? «, t00=0x0033, t01=0x00ac}
0x5076…5092               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN140 NO!! «, t00=0x0033, t01=0x00d8}
0x5092…50ac               Head {h00=0x0016, h01=0x0050, text=»CRN130 LDKL A2,-1 «, t00=0x0033, t01=0x00f4}
0x50ac…50c4               Head {h00=0x0014, h01=0x0050, text=»CRN140 ADK A2,1 «, t00=0x0033, t01=0x010e}
0x50c4…50e0               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x0033, t01=0x0126}
0x50e0…510c               Head {h00=0x0028, h01=0x0050, text=»CRN150 CF A14,SETCUR POSITION CURSOR«, t00=0x0033, t01=0x0142}
0x510c…511c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0033, t01=0x016e}
0x511c…5168               Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0033, t01=0x017e}
0x5168…5176               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x003a}
0x5176…5180               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0048}
0x5180…51bc               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0034, t01=0x0052}
0x51bc…51c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x008e}
0x51c6…51d4               Head {h00=0x000a, h01=0x0050, text=»* TAB «, t00=0x0034, t01=0x0098}
0x51d4…51de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00a6}
0x51de…5214               Head {h00=0x0032, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHAR. LOCATION «, t00=0x0034, t01=0x00b0}
0x5214…5240               Head {h00=0x0028, h01=0x0050, text=»* OF THE NEXT UNPROTECTED DATA FIELD«, t00=0x0034, t01=0x00e6}
0x5240…524a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0112}
0x524a…5286               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0034, t01=0x011c}
0x5286…5290               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0158}
0x5290…52c6               Head {h00=0x0032, h01=0x0050, text=»* A1=END OF BUFFER PAREM.    0=EOB NOT REACHED«, t00=0x0034, t01=0x0162}
0x52c6…52d8               Head {h00=0x000e, h01=0x0050, text=»*   2=EOB «, t00=0x0035, t01=0x0008}
0x52d8…52f8               Head {h00=0x001c, h01=0x0050, text=»*   3=ATTRIB. IN EOB POS«, t00=0x0035, t01=0x001a}
0x52f8…531a               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x0035, t01=0x003a}
0x531a…5330               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTGR«, t00=0x0035, t01=0x005c}
0x5330…533a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0072}
0x533a…534c               Head {h00=0x000e, h01=0x0050, text=»TAB EQU * «, t00=0x0035, t01=0x007c}
0x534c…535e               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x0035, t01=0x008e}
0x535e…5388               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0035, t01=0x00a0}
0x5388…53b6               Head {h00=0x002a, h01=0x0050, text=»TAB100 CF A14,ATMASF SEARCH ATTRIBUTE «, t00=0x0035, t01=0x00ca}
0x53b6…53d6               Head {h00=0x001c, h01=0x0050, text=» CWK A1,0 END OF BUFFER?«, t00=0x0035, t01=0x00f8}
0x53d6…53f0               Head {h00=0x0016, h01=0x0050, text=» RF(G) TAB300 YES «, t00=0x0035, t01=0x0118}
0x53f0…5402               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0035, t01=0x0132}
0x5402…5428               Head {h00=0x0022, h01=0x0050, text=»TAB150 ANK A3,/10 UNPROTECTED?«, t00=0x0035, t01=0x0144}
0x5428…5442               Head {h00=0x0016, h01=0x0050, text=» RF(E) TAB200 YES «, t00=0x0035, t01=0x016a}
0x5442…5462               Head {h00=0x001c, h01=0x0050, text=» RB TAB100 NEXT ATTRIB. «, t00=0x0035, t01=0x0184}
0x5462…5484               Head {h00=0x001e, h01=0x0050, text=»TAB200 ST A2,PCURS,TCABAS «, t00=0x0036, t01=0x0014}
0x5484…54ae               Head {h00=0x0026, h01=0x0050, text=» CF A14,SETCUR DISPLAY NEW CURSOR «, t00=0x0036, t01=0x0036}
0x54ae…54be               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0036, t01=0x0060}
0x54be…54d6               Head {h00=0x0014, h01=0x0050, text=»TAB300 LDK A2,0 «, t00=0x0036, t01=0x0070}
0x54d6…5506               Head {h00=0x002c, h01=0x0050, text=» CWK A1,3 ATTRIBUTE IN LAST POSITION ?? «, t00=0x0036, t01=0x0088}
0x5506…5514               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x00b8}
0x5514…5554               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0036, t01=0x00c6}
0x5554…5570               Head {h00=0x0018, h01=0x0050, text=» RF(NE) TAB350 NO!! «, t00=0x0036, t01=0x0106}
0x5570…559c               Head {h00=0x0028, h01=0x0050, text=» ANK A5,1 WHOLE BUFFER CONTROLLED ??«, t00=0x0036, t01=0x0122}
0x559c…55b8               Head {h00=0x0018, h01=0x0050, text=» RB(Z) TAB200 YES!! «, t00=0x0036, t01=0x014e}
0x55b8…55cc               Head {h00=0x0010, h01=0x0050, text=» SUR A5,A5  «, t00=0x0036, t01=0x016a}
0x55cc…55ee               Head {h00=0x001e, h01=0x0050, text=» RB TAB150 CHECK ATTRIBUTE«, t00=0x0036, t01=0x017e}
0x55ee…5602               Head {h00=0x0010, h01=0x0050, text=»TAB350 EQU *«, t00=0x0037, t01=0x0010}
0x5602…5642               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0037, t01=0x0024}
0x5642…566a               Head {h00=0x0024, h01=0x0050, text=» ANK A5,1 WHOLE BUFF. CONTROLED?«, t00=0x0037, t01=0x0064}
0x566a…5682               Head {h00=0x0014, h01=0x0050, text=» RF(G) TAB400 NO«, t00=0x0037, t01=0x008c}
0x5682…56b6               Head {h00=0x0030, h01=0x0050, text=» RB TAB200 ALL PROT. OR NON-FORMATTED BUFF. «, t00=0x0037, t01=0x00a4}
0x56b6…56ce               Head {h00=0x0014, h01=0x0050, text=»TAB400 LDK A5,0 «, t00=0x0037, t01=0x00d8}
0x56ce…56e0               Head {h00=0x000e, h01=0x0050, text=» RB TAB100«, t00=0x0037, t01=0x00f0}
0x56e0…56ee               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0102}
0x56ee…56f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0110}
0x56f8…573c               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0037, t01=0x011a}
0x573c…5746               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x015e}
0x5746…5754               Head {h00=0x000a, h01=0x0050, text=»* DUP «, t00=0x0037, t01=0x0168}
0x5754…575e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0176}
0x575e…5776               Head {h00=0x0014, h01=0x0050, text=»* DUPLICATE KEY «, t00=0x0037, t01=0x0180}
0x5776…57b4               Head {h00=0x003a, h01=0x0050, text=»* OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x0038, t01=0x0008}
0x57b4…57f2               Head {h00=0x003a, h01=0x0050, text=»* TO BE ENTERED INTO THE DISPLAY BUFFER AND A STANDARD«, t00=0x0038, t01=0x0046}
0x57f2…581e               Head {h00=0x0028, h01=0x0050, text=»* TAB KEY OPERATION TO BE PERFORMED «, t00=0x0038, t01=0x0084}
0x581e…5828               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00b0}
0x5828…586c               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0038, t01=0x00ba}
0x586c…5876               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00fe}
0x5876…5888               Head {h00=0x000e, h01=0x0050, text=»DUP EQU * «, t00=0x0038, t01=0x0108}
0x5888…58b2               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0038, t01=0x011a}
0x58b2…58ec               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE«, t00=0x0038, t01=0x0144}
0x58ec…5902               Head {h00=0x0012, h01=0x0050, text=» LDK A2,DUPCH «, t00=0x0038, t01=0x017e}
0x5902…5936 (57, 0, 400)  Head {h00=0x0030, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFF. ADDR.«, t00=0x0039, t01=0x0004}
0x5936…5948               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x0039, t01=0x0038}
0x5948…595c               Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0039, t01=0x004a}
0x595c…5970               Head {h00=0x0010, h01=0x0050, text=» CF A14,TAB «, t00=0x0039, t01=0x005e}
0x5970…5980               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x0072}
0x5980…598e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0082}
0x598e…5998               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0090}
0x5998…59dc               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0039, t01=0x009a}
0x59dc…59e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00de}
0x59e6…5a00               Head {h00=0x0016, h01=0x0050, text=»*       FIELD MARK«, t00=0x0039, t01=0x00e8}
0x5a00…5a0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0102}
0x5a0a…5a4e               Head {h00=0x0040, h01=0x0050, text=»*       OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x0039, t01=0x010c}
0x5a4e…5a8e               Head {h00=0x003c, h01=0x0050, text=»*       TO BE ENTERED IN THE DISPLAY BUFFER IN ADDITION «, t00=0x0039, t01=0x0150}
0x5a8e…5abe               Head {h00=0x002c, h01=0x0050, text=»*       TO THE DC CHARACTER TRANSMITTED «, t00=0x0039, t01=0x0190}
0x5abe…5ac8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0030}
0x5ac8…5b0a               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003a, t01=0x003a}
0x5b0a…5b14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x007c}
0x5b14…5b28               Head {h00=0x0010, h01=0x0050, text=»FLDMRK EQU *«, t00=0x003a, t01=0x0086}
0x5b28…5b50               Head {h00=0x0024, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE??«, t00=0x003a, t01=0x009a}
0x5b50…5b8a               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE«, t00=0x003a, t01=0x00c2}
0x5b8a…5b9e               Head {h00=0x0010, h01=0x0050, text=» LDK A2,FMCH«, t00=0x003a, t01=0x00fc}
0x5b9e…5bd4               Head {h00=0x0032, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFFER ADDR. «, t00=0x003a, t01=0x0110}
0x5bd4…5be6               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x003a, t01=0x0146}
0x5be6…5bfa               Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x003a, t01=0x0158}
0x5bfa…5c0a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003a, t01=0x016c}
0x5c0a…5c18               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x017c}
0x5c18…5c22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x018a}
0x5c22…5c64 (59, 0, 398)  Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003b, t01=0x0004}
0x5c64…5c6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0046}
0x5c6e…5c84               Head {h00=0x0012, h01=0x0050, text=»*       RDHOME«, t00=0x003b, t01=0x0050}
0x5c84…5c8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0066}
0x5c8e…5cac               Head {h00=0x001a, h01=0x0050, text=»*       READY HOME KEY«, t00=0x003b, t01=0x0070}
0x5cac…5ce8               Head {h00=0x0038, h01=0x0050, text=»*       OPERATION OF THIS KEY CAUSES THE CURSOR TOBE«, t00=0x003b, t01=0x008e}
0x5ce8…5d26               Head {h00=0x003a, h01=0x0050, text=»*        POSITIONED AT THE FIRST UNPROTECTED CHARACTER«, t00=0x003b, t01=0x00ca}
0x5d26…5d44               Head {h00=0x001a, h01=0x0050, text=»*       ON THE SCREEN «, t00=0x003b, t01=0x0108}
0x5d44…5d4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0126}
0x5d4e…5d8e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003b, t01=0x0130}
0x5d8e…5d98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0170}
0x5d98…5db4               Head {h00=0x0018, h01=0x0050, text=»RDHOME LDKL A4,BVDU «, t00=0x003b, t01=0x017a}
0x5db4…5dde               Head {h00=0x0026, h01=0x0050, text=» ADR A4,TCABAS VDU BUFFER ADDRESS «, t00=0x003c, t01=0x0008}
0x5dde…5e0e               Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x003c, t01=0x0032}
0x5e0e…5e22               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003c, t01=0x0062}
0x5e22…5e36               Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x003c, t01=0x0076}
0x5e36…5e4c               Head {h00=0x0012, h01=0x0050, text=» RF(NL) RDH10 «, t00=0x003c, t01=0x008a}
0x5e4c…5e60               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003c, t01=0x00a0}
0x5e60…5e88               Head {h00=0x0024, h01=0x0050, text=» ABL(Z) CRHOME UNPROTECTED FIELD«, t00=0x003c, t01=0x00b4}
0x5e88…5ea6               Head {h00=0x001a, h01=0x0050, text=»RDH10 CM PCURS,TCABAS «, t00=0x003c, t01=0x00dc}
0x5ea6…5ed6               Head {h00=0x002c, h01=0x0050, text=» CF A14,TAB SEARCH 1ST UNPROTECTED FIELD«, t00=0x003c, t01=0x00fa}
0x5ed6…5ee6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003c, t01=0x012a}
0x5ee6…5ef4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x013a}
0x5ef4…5efe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0148}
0x5efe…5f3c               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003c, t01=0x0152}
0x5f3c…5f46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0190}
0x5f46…5f56               Head {h00=0x000c, h01=0x0050, text=»* BAKTAB«, t00=0x003d, t01=0x000a}
0x5f56…5f60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x001a}
0x5f60…5f9a               Head {h00=0x0036, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHARACTER LOCATION «, t00=0x003d, t01=0x0024}
0x5f9a…5fd0               Head {h00=0x0032, h01=0x0050, text=»* OF THE NEXT PRECIDING UNPROTECTED DATA FIELD«, t00=0x003d, t01=0x005e}
0x5fd0…5fda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0094}
0x5fda…6016               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x003d, t01=0x009e}
0x6016…6020               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00da}
0x6020…6042               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x003d, t01=0x00e4}
0x6042…6058               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x003d, t01=0x0106}
0x6058…606c               Head {h00=0x0010, h01=0x0050, text=»BAKTAB EQU *«, t00=0x003d, t01=0x011c}
0x606c…607e               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x003d, t01=0x0130}
0x607e…60a8               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x003d, t01=0x0142}
0x60a8…60ce               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x003d, t01=0x016c}
0x60ce…60f0 (62, 0, 400)  Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR? «, t00=0x003e, t01=0x0004}
0x60f0…610a               Head {h00=0x0016, h01=0x0050, text=» RF(NG) BAK100 YES«, t00=0x003e, t01=0x0026}
0x610a…6130               Head {h00=0x0022, h01=0x0050, text=» CWK A2,0 UPPER LEFTMOST POS? «, t00=0x003e, t01=0x0040}
0x6130…614a               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x003e, t01=0x0066}
0x614a…615c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003e, t01=0x0080}
0x615c…6188               Head {h00=0x0028, h01=0x0050, text=»BAK100 CWK A2,0 UPPER LEFTMOST POS? «, t00=0x003e, t01=0x0092}
0x6188…61a2               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x003e, t01=0x00be}
0x61a2…61ba               Head {h00=0x0014, h01=0x0050, text=»BAK200 SUK A2,1 «, t00=0x003e, t01=0x00d8}
0x61ba…61e2               Head {h00=0x0024, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE «, t00=0x003e, t01=0x00f0}
0x61e2…6226               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003e, t01=0x0118}
0x6226…6238               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003e, t01=0x015c}
0x6238…625a               Head {h00=0x001e, h01=0x0050, text=» RF(Z) BAK400 NO ATTRIBUTE«, t00=0x003e, t01=0x016e}
0x625a…6292               Head {h00=0x0034, h01=0x0050, text=» RF(N) BAK250 ATTRIBUTE FOUND. NOT IN LAST POS. «, t00=0x003e, t01=0x0190}
0x6292…62c6               Head {h00=0x0030, h01=0x0050, text=» SUR A2,A2 ATTRIBUTE FOUND IN LAST POSITION «, t00=0x003f, t01=0x0038}
0x62c6…62d8               Head {h00=0x000e, h01=0x0050, text=» RF BAK300«, t00=0x003f, t01=0x006c}
0x62d8…62ec               Head {h00=0x0010, h01=0x0050, text=»BAK250 EQU *«, t00=0x003f, t01=0x007e}
0x62ec…632e               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x003f, t01=0x0092}
0x632e…634c               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x003f, t01=0x00d4}
0x634c…6366               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK100 YES«, t00=0x003f, t01=0x00f2}
0x6366…6378               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x003f, t01=0x010c}
0x6378…639a               Head {h00=0x001e, h01=0x0050, text=»BAK300 ST A2,PCURS,TCABAS «, t00=0x003f, t01=0x011e}
0x639a…63bc               Head {h00=0x001e, h01=0x0050, text=» CF A14,SETCUR SET CURSOR «, t00=0x003f, t01=0x0140}
0x63bc…63cc               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003f, t01=0x0162}
0x63cc…63fa               Head {h00=0x002a, h01=0x0050, text=»BAK400 SUK A5,1 WHOLE BUFF CONTROLLED?«, t00=0x003f, t01=0x0172}
0x63fa…6414               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) BAK300 YES«, t00=0x0040, t01=0x0010}
0x6414…6440               Head {h00=0x0028, h01=0x0050, text=» LDKL A2,LBVDU-1 END BUFFER ADDRESS «, t00=0x0040, t01=0x002a}
0x6440…6466               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x0040, t01=0x0056}
0x6466…648a               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x0040, t01=0x007c}
0x648a…64a2               Head {h00=0x0014, h01=0x0050, text=» RB(G) BAK200 NO«, t00=0x0040, t01=0x00a0}
0x64a2…64c0               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x0040, t01=0x00b8}
0x64c0…64da               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK200 YES«, t00=0x0040, t01=0x00d6}
0x64da…650c               Head {h00=0x002e, h01=0x0050, text=» ST A3,ATTRIB,TCABAS UPDATE NEW ATTRIBUTE «, t00=0x0040, t01=0x00f0}
0x650c…6528               Head {h00=0x0018, h01=0x0050, text=» ST A2,CURATT,TCABAS«, t00=0x0040, t01=0x0122}
0x6528…6570               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0040, t01=0x013e}
0x6570…6582               Head {h00=0x000e, h01=0x0050, text=» RB BAK200«, t00=0x0040, t01=0x0186}
0x6582…65ca               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0041, t01=0x0008}
0x65ca…65d8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x0050}
0x65d8…65e6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x005e}
0x65e6…65f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x006c}
0x65f0…6632               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0041, t01=0x0076}
0x6632…663c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00b8}
0x663c…664a               Head {h00=0x000a, h01=0x0050, text=»* CHAR«, t00=0x0041, t01=0x00c2}
0x664a…6654               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00d0}
0x6654…6692               Head {h00=0x003a, h01=0x0050, text=»* ALPHABETIC AND SPECIAL CHAR UPDATING AND DISPLAYING «, t00=0x0041, t01=0x00da}
0x6692…669c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0118}
0x669c…66de               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0041, t01=0x0122}
0x66de…66e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0164}
0x66e8…66fc               Head {h00=0x0010, h01=0x0050, text=»LCASPW EQU *«, t00=0x0041, t01=0x016e}
0x66fc…672c               Head {h00=0x002c, h01=0x0050, text=» SUK A2,/50 CONVERT TO LOWER CASE P - W «, t00=0x0041, t01=0x0182}
0x672c…674e               Head {h00=0x001e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS«, t00=0x0042, t01=0x0022}
0x674e…6758               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0044}
0x6758…676a               Head {h00=0x000e, h01=0x0050, text=»CHAR EQU *«, t00=0x0042, t01=0x004e}
0x676a…6794               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0042, t01=0x0060}
0x6794…67c6               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x0042, t01=0x008a}
0x67c6…67ea               Head {h00=0x0020, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIB?«, t00=0x0042, t01=0x00bc}
0x67ea…6804               Head {h00=0x0016, h01=0x0050, text=» RF(E) CHA300 YES «, t00=0x0042, t01=0x00e0}
0x6804…683a               Head {h00=0x0032, h01=0x0050, text=»CHA100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0042, t01=0x00fa}
0x683a…684c               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0042, t01=0x0130}
0x684c…6872               Head {h00=0x0022, h01=0x0050, text=» ANK A4,/10 PROTECTRED FIELD? «, t00=0x0042, t01=0x0142}
0x6872…688c               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CHA300 YES«, t00=0x0042, t01=0x0168}
0x688c…68a4               Head {h00=0x0014, h01=0x0050, text=»CHA200 LDR A4,A3«, t00=0x0042, t01=0x0182}
0x68a4…68c6               Head {h00=0x001e, h01=0x0050, text=» ANK A4,/8 NUMERIC FIELD? «, t00=0x0043, t01=0x000a}
0x68c6…68de               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x0043, t01=0x002c}
0x68de…690e               Head {h00=0x002c, h01=0x0050, text=»CHA300 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x0043, t01=0x0044}
0x690e…691c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x0074}
0x691c…6964               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0043, t01=0x0082}
0x6964…696e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00ca}
0x696e…6998               Head {h00=0x0026, h01=0x0050, text=»*   Z E R O : 3    TRIPLE ZERO KEY«, t00=0x0043, t01=0x00d4}
0x6998…69c4               Head {h00=0x0028, h01=0x0050, text=»*   Z E R O : 2     DOUBLE ZERO KEY «, t00=0x0043, t01=0x00fe}
0x69c4…69ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x012a}
0x69ce…6a08               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0043, t01=0x0134}
0x6a08…6a10               Head {h00=0x0004, h01=0x0050, t00=0x0043, t01=0x016e}
0x6a10…6a24               Head {h00=0x0010, h01=0x0050, text=»ZERO:3 EQU *«, t00=0x0043, t01=0x0176}
0x6a24…6a48               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0043, t01=0x018a}
0x6a48…6a84               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0044, t01=0x001e}
0x6a84…6aaa               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0044, t01=0x005a}
0x6aaa…6ab2               Head {h00=0x0004, h01=0x0050, t00=0x0044, t01=0x0080}
0x6ab2…6ac6               Head {h00=0x0010, h01=0x0050, text=»ZERO:2 EQU *«, t00=0x0044, t01=0x0088}
0x6ac6…6aea               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0044, t01=0x009c}
0x6aea…6b26               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0044, t01=0x00c0}
0x6b26…6b4c               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0044, t01=0x00fc}
0x6b4c…6b72               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0044, t01=0x0122}
0x6b72…6b8a               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0044, t01=0x0148}
0x6b8a…6b94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0160}
0x6b94…6bd6               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0044, t01=0x016a}
0x6bd6…6be0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x001c}
0x6be0…6bee               Head {h00=0x000a, h01=0x0050, text=»* NUM «, t00=0x0045, t01=0x0026}
0x6bee…6bf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0034}
0x6bf8…6c1e               Head {h00=0x0022, h01=0x0050, text=»* DISPLAY AND UPDATE NUMERICS «, t00=0x0045, t01=0x003e}
0x6c1e…6c28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0064}
0x6c28…6c6a               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0045, t01=0x006e}
0x6c6a…6c74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00b0}
0x6c74…6c88               Head {h00=0x0010, h01=0x0050, text=»NUMCOM EQU *«, t00=0x0045, t01=0x00ba}
0x6c88…6c9c               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2C «, t00=0x0045, t01=0x00ce}
0x6c9c…6cbe               Head {h00=0x001e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS«, t00=0x0045, t01=0x00e2}
0x6cbe…6cc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0104}
0x6cc8…6cda               Head {h00=0x000e, h01=0x0050, text=»NUM EQU * «, t00=0x0045, t01=0x010e}
0x6cda…6d04               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0045, t01=0x0120}
0x6d04…6d36               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x0045, t01=0x014a}
0x6d36…6d5e               Head {h00=0x0024, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIBUTE? «, t00=0x0045, t01=0x017c}
0x6d5e…6d78               Head {h00=0x0016, h01=0x0050, text=» RF(E) NUM200 YES «, t00=0x0046, t01=0x0014}
0x6d78…6dae               Head {h00=0x0032, h01=0x0050, text=»NUM100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0046, t01=0x002e}
0x6dae…6dc0               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0046, t01=0x0064}
0x6dc0…6de4               Head {h00=0x0020, h01=0x0050, text=» ANK A4,/10 PROTECTED FIELD?«, t00=0x0046, t01=0x0076}
0x6de4…6dfc               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x0046, t01=0x009a}
0x6dfc…6e2c               Head {h00=0x002c, h01=0x0050, text=»NUM200 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x0046, t01=0x00b2}
0x6e2c…6e3a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x00e2}
0x6e3a…6e44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00f0}
0x6e44…6e86               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0046, t01=0x00fa}
0x6e86…6e90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x013c}
0x6e90…6ea0               Head {h00=0x000c, h01=0x0050, text=»* ANCOMM«, t00=0x0046, t01=0x0146}
0x6ea0…6eaa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0156}
0x6eaa…6eea               Head {h00=0x003c, h01=0x0050, text=»* COMMON SUBMODULE FOR ALPHANUMERIC CHAR. DISPLAYING AND«, t00=0x0046, t01=0x0160}
0x6eea…6efc               Head {h00=0x000e, h01=0x0050, text=»* UPDATING«, t00=0x0047, t01=0x0010}
0x6efc…6f06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0022}
0x6f06…6f48               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0047, t01=0x002c}
0x6f48…6f52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x006e}
0x6f52…6f66               Head {h00=0x0010, h01=0x0050, text=»ANCOMM EQU *«, t00=0x0047, t01=0x0078}
0x6f66…6f8c               Head {h00=0x0022, h01=0x0050, text=» LC* A4,ECBKB+ECBBA,CREBAS  =1«, t00=0x0047, t01=0x008c}
0x6f8c…6fa0               Head {h00=0x0010, h01=0x0050, text=»ANC005 EQU *«, t00=0x0047, t01=0x00b2}
0x6fa0…6fb6               Head {h00=0x0012, h01=0x0050, text=» LDKL A6,BVDU «, t00=0x0047, t01=0x00c6}
0x6fb6…6fcc               Head {h00=0x0012, h01=0x0050, text=» ADR A6,TCABAS«, t00=0x0047, t01=0x00dc}
0x6fcc…6fde               Head {h00=0x000e, h01=0x0050, text=» ADR A6,A2«, t00=0x0047, t01=0x00f2}
0x6fde…6fe6               Head {h00=0x0004, h01=0x0050, t00=0x0047, t01=0x0104}
0x6fe6…7010               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0047, t01=0x010c}
0x7010…702c               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ANC010 YES!!«, t00=0x0047, t01=0x0136}
0x702c…704e               Head {h00=0x001e, h01=0x0050, text=» SCR A4,A6 UPDATE VDU BUFF«, t00=0x0047, t01=0x0152}
0x704e…707c               Head {h00=0x002a, h01=0x0050, text=»ANC010 LDR A7,A6 SAVE CURSOR POSITION «, t00=0x0047, t01=0x0174}
0x707c…7098               Head {h00=0x0018, h01=0x0050, text=» LD A5,CURATT,TCABAS«, t00=0x0048, t01=0x0012}
0x7098…70c4               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0048, t01=0x002e}
0x70c4…70de               Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC100 YES «, t00=0x0048, t01=0x005a}
0x70de…7102               Head {h00=0x0020, h01=0x0050, text=» SUR A6,A2 BVDU START ADDR. «, t00=0x0048, t01=0x0074}
0x7102…7120               Head {h00=0x001a, h01=0x0050, text=» ADR A6,A5 ATTRIB. POS«, t00=0x0048, t01=0x0098}
0x7120…7150               Head {h00=0x002c, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0048, t01=0x00b6}
0x7150…716c               Head {h00=0x0018, h01=0x0050, text=» ORK A3,1 MDT-BIT ON«, t00=0x0048, t01=0x00e6}
0x716c…717e               Head {h00=0x000e, h01=0x0050, text=» SCR A3,A6«, t00=0x0048, t01=0x0102}
0x717e…7192               Head {h00=0x0010, h01=0x0050, text=»ANC100 EQU *«, t00=0x0048, t01=0x0114}
0x7192…71aa               Head {h00=0x0014, h01=0x0050, text=» IFT IN:DL=1  =3«, t00=0x0048, t01=0x0128}
0x71aa…71d4               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0048, t01=0x0140}
0x71d4…71ee               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC120 NO!!«, t00=0x0048, t01=0x016a}
0x71ee…7222               Head {h00=0x0030, h01=0x0050, text=» LCR A1,A7 GET CHARACTER AT CURSOR POSITION «, t00=0x0048, t01=0x0184}
0x7222…7236               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/7F «, t00=0x0049, t01=0x0028}
0x7236…7252               Head {h00=0x0018, h01=0x0050, text=» CWK A1,NULL NULL?? «, t00=0x0049, t01=0x003c}
0x7252…726e               Head {h00=0x0018, h01=0x0050, text=» RF(NE) INS:10 NO!! «, t00=0x0049, t01=0x0058}
0x726e…7296               Head {h00=0x0024, h01=0x0050, text=» SCR A4,A7 STORE INPUT CHARACTER«, t00=0x0049, t01=0x0074}
0x7296…72a8               Head {h00=0x000e, h01=0x0050, text=» XIF   =3 «, t00=0x0049, t01=0x009c}
0x72a8…72bc               Head {h00=0x0010, h01=0x0050, text=»ANC120 EQU *«, t00=0x0049, t01=0x00ae}
0x72bc…72c4               Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x00c2}
0x72c4…72fa               Head {h00=0x0032, h01=0x0050, text=» LDK A5,/2B CURSOR NOT MOVED BEFORE DISPLAYING«, t00=0x0049, t01=0x00ca}
0x72fa…731e               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBVDU+ECBBA,CREBAS  «, t00=0x0049, t01=0x0100}
0x731e…7336               Head {h00=0x0014, h01=0x0050, text=» SC A5,1,A1  =1 «, t00=0x0049, t01=0x0124}
0x7336…734a               Head {h00=0x0010, h01=0x0050, text=» LDK A5,/1E «, t00=0x0049, t01=0x013c}
0x734a…7364               Head {h00=0x0016, h01=0x0050, text=» ADK A1,2 NEXT POS«, t00=0x0049, t01=0x0150}
0x7364…7390               Head {h00=0x0028, h01=0x0050, text=» SCR A5,A1 LOW INT, STORE IN BUFFER «, t00=0x0049, t01=0x016a}
0x7390…73a2               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A3«, t00=0x004a, t01=0x0008}
0x73a2…73ca               Head {h00=0x0024, h01=0x0050, text=» ANK A3,/4 STANDARD DISPLAYING? «, t00=0x004a, t01=0x001a}
0x73ca…73e4               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC200 YES «, t00=0x004a, t01=0x0042}
0x73e4…740e               Head {h00=0x0026, h01=0x0050, text=» ANK A6,/2 INTENSIFIED DISPLAYING?«, t00=0x004a, t01=0x005c}
0x740e…7428               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC150 YES «, t00=0x004a, t01=0x0086}
0x7428…7446               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD SPACE«, t00=0x004a, t01=0x00a0}
0x7446…7468               Head {h00=0x001e, h01=0x0050, text=» RF ANC250 NON DISPLAYING «, t00=0x004a, t01=0x00be}
0x7468…7494               Head {h00=0x0028, h01=0x0050, text=»ANC150 LDK A5,/1F SET HIGH INTENSITY«, t00=0x004a, t01=0x00e0}
0x7494…74b6               Head {h00=0x001e, h01=0x0050, text=» SCR A5,A1 STORE IN BUFFER«, t00=0x004a, t01=0x010c}
0x74b6…74e2               Head {h00=0x0028, h01=0x0050, text=»ANC200 LDR A2,A4 UPDATE A2 WITH CHAR«, t00=0x004a, t01=0x012e}
0x74e2…7516               Head {h00=0x0030, h01=0x0050, text=»ANC250 CF A14,WCHAR DISPLAY CHAR AND CURSOR «, t00=0x004a, t01=0x015a}
0x7516…7540               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x004a, t01=0x018e}
0x7540…7552               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x004b, t01=0x0028}
0x7552…7566               Head {h00=0x0010, h01=0x0050, text=»ANC252 EQU *«, t00=0x004b, t01=0x003a}
0x7566…757c               Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x004b, t01=0x004e}
0x757c…7592               Head {h00=0x0012, h01=0x0050, text=» RF(NE) ANC255«, t00=0x004b, t01=0x0064}
0x7592…75a4               Head {h00=0x000e, h01=0x0050, text=» LDKL A2,0«, t00=0x004b, t01=0x007a}
0x75a4…75b8               Head {h00=0x0010, h01=0x0050, text=»ANC255 EQU *«, t00=0x004b, t01=0x008c}
0x75b8…75d4               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x004b, t01=0x00a0}
0x75d4…75fa               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x004b, t01=0x00bc}
0x75fa…761e               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x004b, t01=0x00e2}
0x761e…7636               Head {h00=0x0014, h01=0x0050, text=» RF(G) ANC300 NO«, t00=0x004b, t01=0x0106}
0x7636…763e               Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x011e}
0x763e…766a               Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB SKIP TO NEXT UNPROTECTED«, t00=0x004b, t01=0x0126}
0x766a…767e               Head {h00=0x0010, h01=0x0050, text=»ANC300 EQU *«, t00=0x004b, t01=0x0152}
0x767e…76a2               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBCW,A8 CONTROL WORD«, t00=0x004b, t01=0x0166}
0x76a2…76c6               Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' LINE POSITION «, t00=0x004b, t01=0x018a}
0x76c6…76f4               Head {h00=0x002a, h01=0x0050, text=» SUK A1,80 LAST POSITION ON LINE ?? =4«, t00=0x004c, t01=0x001e}
0x76f4…7710               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ANC350 NO!!!«, t00=0x004c, t01=0x004c}
0x7710…774e               Head {h00=0x003a, h01=0x0050, text=» CF A14,SETCUR POSITION CURSOR TO 1:ST POS. NEXT LINE «, t00=0x004c, t01=0x0068}
0x774e…7762               Head {h00=0x0010, h01=0x0050, text=»ANC350 EQU *«, t00=0x004c, t01=0x00a6}
0x7762…7772               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004c, t01=0x00ba}
0x7772…7786               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x004c, t01=0x00ca}
0x7786…7794               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x00de}
0x7794…779c               Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x00ec}
0x779c…77d8               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x004c, t01=0x00f4}
0x77d8…77e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0130}
0x77e2…7822               Head {h00=0x003c, h01=0x0050, text=»*   DELETE CHARACTER AT CURSOR POSITION. SHIFT CARACTERS«, t00=0x004c, t01=0x013a}
0x7822…7854               Head {h00=0x002e, h01=0x0050, text=»*   AT SAME LINE ONE POSITION TO THE LEFT «, t00=0x004c, t01=0x017a}
0x7854…785e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x001c}
0x785e…78a2               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x004d, t01=0x0026}
0x78a2…78aa               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x006a}
0x78aa…78be               Head {h00=0x0010, h01=0x0050, text=»DELETE EQU *«, t00=0x004d, t01=0x0072}
0x78be…78d2               Head {h00=0x0010, h01=0x0050, text=» LDKL A6,-1 «, t00=0x004d, t01=0x0086}
0x78d2…78fc               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS CURSOR ADDRESS«, t00=0x004d, t01=0x009a}
0x78fc…7928               Head {h00=0x0028, h01=0x0050, text=»DEL:10 ADK A6,80 END OF LINE POINTER«, t00=0x004d, t01=0x00c4}
0x7928…795a               Head {h00=0x002e, h01=0x0050, text=» CWR A6,A2 LAST POSITION ON CURRENT LINE??«, t00=0x004d, t01=0x00f0}
0x795a…7982               Head {h00=0x0024, h01=0x0050, text=» RB(L) DEL:10 NO!! TRY NEXT LINE«, t00=0x004d, t01=0x0122}
0x7982…798a               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x014a}
0x798a…79b8               Head {h00=0x002a, h01=0x0050, text=» CF A14,S:ATT SEARCH ATTRIBUTE FORWARD«, t00=0x004d, t01=0x0152}
0x79b8…79dc               Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 ATTRIBUTE FOUND ??«, t00=0x004d, t01=0x0180}
0x79dc…79f6               Head {h00=0x0016, h01=0x0050, text=» RF(Z) DEL:20 NO!!«, t00=0x004e, t01=0x0014}
0x79f6…7a28               Head {h00=0x002e, h01=0x0050, text=» CWR A2,A6 ATTRIBUTE AFTER END OF LINE ?? «, t00=0x004e, t01=0x002e}
0x7a28…7a44               Head {h00=0x0018, h01=0x0050, text=» RF(G) DEL:20 YES!! «, t00=0x004e, t01=0x0060}
0x7a44…7a64               Head {h00=0x001c, h01=0x0050, text=» SUK A2,1 SKIP ATTRIBUTE«, t00=0x004e, t01=0x007c}
0x7a64…7a76               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A2«, t00=0x004e, t01=0x009c}
0x7a76…7a8e               Head {h00=0x0014, h01=0x0050, text=»DEL:20 LDR A2,A6«, t00=0x004e, t01=0x00ae}
0x7a8e…7a96               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x00c6}
0x7a96…7a9e               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x00ce}
0x7a9e…7ab2               Head {h00=0x0010, h01=0x0050, text=» LDK A1,BVDU«, t00=0x004e, t01=0x00d6}
0x7ab2…7ae0               Head {h00=0x002a, h01=0x0050, text=» ADR A1,TCABAS ABSOLUTE BUFFER ADDRESS«, t00=0x004e, t01=0x00ea}
0x7ae0…7b04               Head {h00=0x0020, h01=0x0050, text=» ADR A2,A1 END OF FIELD/LINE«, t00=0x004e, t01=0x0118}
0x7b04…7b30               Head {h00=0x0028, h01=0x0050, text=» AD A1,PCURS,TCABAS CURSOR POSITION «, t00=0x004e, t01=0x013c}
0x7b30…7b38               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x0168}
0x7b38…7b6a               Head {h00=0x002e, h01=0x0050, text=»DEL:30 CWR A2,A1 ALL CHARACTERS SHIFTED ??«, t00=0x004e, t01=0x0170}
0x7b6a…7b86               Head {h00=0x0018, h01=0x0050, text=» RF(E) DEL:40 YES!! «, t00=0x004f, t01=0x0012}
0x7b86…7ba8               Head {h00=0x001e, h01=0x0050, text=» LC A3,1,A1 GET CHARACTER «, t00=0x004f, t01=0x002e}
0x7ba8…7bcc               Head {h00=0x0020, h01=0x0050, text=» ORK A3,/80 SET MODIFIED BIT«, t00=0x004f, t01=0x0050}
0x7bcc…7bfa               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A1 SHIFT CHARACTER 1 POS. LEFT«, t00=0x004f, t01=0x0074}
0x7bfa…7c0c               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x004f, t01=0x00a2}
0x7c0c…7c32               Head {h00=0x0022, h01=0x0050, text=» RB DEL:30 GET NEXT CHARACTER «, t00=0x004f, t01=0x00b4}
0x7c32…7c3a               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x00da}
0x7c3a…7c42               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x00e2}
0x7c42…7c70               Head {h00=0x002a, h01=0x0050, text=»DEL:40 LDK A3,NULL+/80 NULL CHARACTER «, t00=0x004f, t01=0x00ea}
0x7c70…7c9e               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A2 STORE AT END OF FIELD/LINE «, t00=0x004f, t01=0x0118}
0x7c9e…7cc4               Head {h00=0x0022, h01=0x0050, text=» LD A3,ATTRIB,TCABAS ATTRIBUTE«, t00=0x004f, t01=0x0146}
0x7cc4…7cec               Head {h00=0x0024, h01=0x0050, text=» ORK A3,1 SET MODIFIED FIELD BIT«, t00=0x004f, t01=0x016c}
0x7cec…7cf4 (80, 0, 400)  Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x0004}
0x7cf4…7d2a               Head {h00=0x0032, h01=0x0050, text=» LD A1,CURATT,TCABAS CURRENT ATTRIBUTE ADDRESS«, t00=0x0050, t01=0x000c}
0x7d2a…7d58               Head {h00=0x002a, h01=0x0050, text=» CWK A1,LBVDU+1 UNFORMATTED SCREEN ???«, t00=0x0050, t01=0x0042}
0x7d58…7d74               Head {h00=0x0018, h01=0x0050, text=» RF(E) INS:60 YES!!!«, t00=0x0050, t01=0x0070}
0x7d74…7d8a               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,BVDU «, t00=0x0050, t01=0x008c}
0x7d8a…7dbc               Head {h00=0x002e, h01=0x0050, text=» ADR A1,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x0050, t01=0x00a2}
0x7dbc…7de2               Head {h00=0x0022, h01=0x0050, text=» SCR A3,A1 SAVE NEW ATTRIBUTE «, t00=0x0050, t01=0x00d4}
0x7de2…7e0c               Head {h00=0x0026, h01=0x0050, text=» RF INS:60 DISPLAY MODIFIED FIELD «, t00=0x0050, t01=0x00fa}
0x7e0c…7e1a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x0124}
0x7e1a…7e22               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x0132}
0x7e22…7e68               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0050, t01=0x013a}
0x7e68…7e72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0180}
0x7e72…7eb6               Head {h00=0x0040, h01=0x0050, text=»*   INSERT CHARACTER AT CURSOR POSITION. SHIFT CHARACTERS IN«, t00=0x0050, t01=0x018a}
0x7eb6…7ef6               Head {h00=0x003c, h01=0x0050, text=»*   SAME FIELD , EXCEPT NULLS, ONE POSITION TO THE RIGHT«, t00=0x0051, t01=0x003e}
0x7ef6…7f00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x007e}
0x7f00…7f3c               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0051, t01=0x0088}
0x7f3c…7f44               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x00c4}
0x7f44…7f58               Head {h00=0x0010, h01=0x0050, text=»INSERT EQU *«, t00=0x0051, t01=0x00cc}
0x7f58…7f80               Head {h00=0x0024, h01=0x0050, text=» IM MODE,TCABAS SET INSERT MODE «, t00=0x0051, t01=0x00e0}
0x7f80…7fb2               Head {h00=0x002e, h01=0x0050, text=» CF A14,LIOLON TURN ON "INSERT MODE" LAMP «, t00=0x0051, t01=0x0108}
0x7fb2…7fc2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0051, t01=0x013a}
0x7fc2…7fca               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x014a}
0x7fca…7fd2               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x0152}
0x7fd2…7fec               Head {h00=0x0016, h01=0x0050, text=»INS:10 LDR A6,A7  «, t00=0x0051, t01=0x015a}
0x7fec…8000               Head {h00=0x0010, h01=0x0050, text=» LDR A9,A4  «, t00=0x0051, t01=0x0174}
0x8000…802c               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN??«, t00=0x0051, t01=0x0188}
0x802c…8048               Head {h00=0x0018, h01=0x0050, text=» RF(NE) INS:20 NO!! «, t00=0x0052, t01=0x0024}
0x8048…8060               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x0052, t01=0x0040}
0x8060…8072               Head {h00=0x000e, h01=0x0050, text=» RF INS:30«, t00=0x0052, t01=0x0058}
0x8072…807a               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x006a}
0x807a…8082               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x0072}
0x8082…80b6               Head {h00=0x0030, h01=0x0050, text=»INS:20 CF A14,S:ATT SEARCH ATTRIBUTE FORWARD«, t00=0x0052, t01=0x007a}
0x80b6…80be               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x00ae}
0x80be…80c6               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x00b6}
0x80c6…80ea               Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 ATTRIBUTE FOUND ??«, t00=0x0052, t01=0x00be}
0x80ea…8104               Head {h00=0x0016, h01=0x0050, text=» RF(Z) INS:30 NO!!«, t00=0x0052, t01=0x00e2}
0x8104…8116               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0052, t01=0x00fc}
0x8116…811e               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x010e}
0x811e…813a               Head {h00=0x0018, h01=0x0050, text=»INS:30 ADR A2,TCABAS«, t00=0x0052, t01=0x0116}
0x813a…8174               Head {h00=0x0036, h01=0x0050, text=» ADK A2,BVDU ADD BUFFER DISPLACEMENT IN WORK-BLOCK«, t00=0x0052, t01=0x0132}
0x8174…81a6               Head {h00=0x002e, h01=0x0050, text=» CF A14,S:NULL SEARCH FIRST NULL CHARACTER«, t00=0x0052, t01=0x016c}
0x81a6…81d8               Head {h00=0x002e, h01=0x0050, text=»INS:40 CWR A2,A6 ALL CHARACTERS SHIFTED ??«, t00=0x0053, t01=0x000e}
0x81d8…81f4               Head {h00=0x0018, h01=0x0050, text=» RF(E) INS:50 YES!! «, t00=0x0053, t01=0x0040}
0x81f4…8216               Head {h00=0x001e, h01=0x0050, text=» LC A3,-1,A2 GET CHARACTER«, t00=0x0053, t01=0x005c}
0x8216…823a               Head {h00=0x0020, h01=0x0050, text=» ORK A3,/80 SET MODIFIED BIT«, t00=0x0053, t01=0x007e}
0x823a…8268               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A2 SHIFT CHAR ONE POS TO RIGHT«, t00=0x0053, t01=0x00a2}
0x8268…827a               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0053, t01=0x00d0}
0x827a…82a0               Head {h00=0x0022, h01=0x0050, text=» RB INS:40 GET NEXT CHARACTER «, t00=0x0053, t01=0x00e2}
0x82a0…82a8               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0108}
0x82a8…82b0               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0110}
0x82b0…82dc               Head {h00=0x0028, h01=0x0050, text=»INS:50 ORKL A9,/80 SET MODIFIED BIT «, t00=0x0053, t01=0x0118}
0x82dc…830e               Head {h00=0x002e, h01=0x0050, text=» SCR A9,A6 SAVE INPUT CHARACTER IN BUFFER «, t00=0x0053, t01=0x0144}
0x830e…8340               Head {h00=0x002e, h01=0x0050, text=» IM PCURS,TCABAS INCREMENT CURSOR POSITION«, t00=0x0053, t01=0x0176}
0x8340…8354               Head {h00=0x0010, h01=0x0050, text=»INS:60 EQU *«, t00=0x0054, t01=0x0018}
0x8354…8382               Head {h00=0x002a, h01=0x0050, text=» CF A14,DISPL DISPLAY MODIFIED FIELDS «, t00=0x0054, t01=0x002c}
0x8382…83ae               Head {h00=0x0028, h01=0x0050, text=» LD A2,PCURS,TCABAS CURSOR POSITION «, t00=0x0054, t01=0x005a}
0x83ae…83c0               Head {h00=0x000e, h01=0x0050, text=» RB ANC252«, t00=0x0054, t01=0x0086}
0x83c0…83cc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0098}
0x83cc…83da               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x00a4}
0x83da…83e2               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x00b2}
0x83e2…8424               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0054, t01=0x00ba}
0x8424…842e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00fc}
0x842e…8466               Head {h00=0x0034, h01=0x0050, text=»*   SEARCH FIRST NULL CHARACTER AFTER CURSOR POS«, t00=0x0054, t01=0x0106}
0x8466…8470               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x013e}
0x8470…84ae               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0054, t01=0x0148}
0x84ae…84b6               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x0186}
0x84b6…84ca               Head {h00=0x0010, h01=0x0050, text=»S:NULL EQU *«, t00=0x0054, t01=0x018e}
0x84ca…84dc               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0055, t01=0x0012}
0x84dc…84e4               Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0024}
0x84e4…84fc               Head {h00=0x0014, h01=0x0050, text=»S:NU10 CWR A1,A2«, t00=0x0055, t01=0x002c}
0x84fc…8512               Head {h00=0x0012, h01=0x0050, text=» RF(E) S:NU30 «, t00=0x0055, t01=0x0044}
0x8512…8532               Head {h00=0x001c, h01=0x0050, text=» LCR A3,A1 GET CHARACTER«, t00=0x0055, t01=0x005a}
0x8532…855c               Head {h00=0x0026, h01=0x0050, text=» ANK A3,/7F MASK AWAY MODIFIED BIT«, t00=0x0055, t01=0x007a}
0x855c…8580               Head {h00=0x0020, h01=0x0050, text=» CWK A3,NULL NULL CHARACTER «, t00=0x0055, t01=0x00a4}
0x8580…859c               Head {h00=0x0018, h01=0x0050, text=» RF(E) S:NU20 YES!! «, t00=0x0055, t01=0x00c8}
0x859c…85ae               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0055, t01=0x00e4}
0x85ae…85dc               Head {h00=0x002a, h01=0x0050, text=» RB S:NU10 CHECK NEXT BUFFER CHARACTER«, t00=0x0055, t01=0x00f6}
0x85dc…85e4               Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0124}
0x85e4…8612               Head {h00=0x002a, h01=0x0050, text=»S:NU20 LDR A2,A1 ADDRESS OF FIRST NULL«, t00=0x0055, t01=0x012c}
0x8612…8628               Head {h00=0x0012, h01=0x0050, text=»S:NU30 RTN A14«, t00=0x0055, t01=0x015a}
0x8628…8636               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x0170}
0x8636…8640               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x017e}
0x8640…8682               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0055, t01=0x0188}
0x8682…868c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x003a}
0x868c…869c               Head {h00=0x000c, h01=0x0050, text=»* CANCEL«, t00=0x0056, t01=0x0044}
0x869c…86a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0054}
0x86a6…86e4               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0056, t01=0x005e}
0x86e4…870c               Head {h00=0x0024, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER «, t00=0x0056, t01=0x009c}
0x870c…8716               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00c4}
0x8716…8758               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0056, t01=0x00ce}
0x8758…8762               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0110}
0x8762…8776               Head {h00=0x0010, h01=0x0050, text=»CANCEL EQU *«, t00=0x0056, t01=0x011a}
0x8776…8788               Head {h00=0x000e, h01=0x0050, text=»PA2 EQU * «, t00=0x0056, t01=0x012e}
0x8788…87a6               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/2E CANCEL POS«, t00=0x0056, t01=0x0140}
0x87a6…87ba               Head {h00=0x0010, h01=0x0050, text=»CAN100 EQU *«, t00=0x0056, t01=0x015e}
0x87ba…87e2               Head {h00=0x0024, h01=0x0050, text=» LC A2,TASCII,A2 GET ASCII CODE «, t00=0x0056, t01=0x0172}
0x87e2…87f6               Head {h00=0x0010, h01=0x0050, text=»CAN200 EQU *«, t00=0x0057, t01=0x000a}
0x87f6…8828               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x0057, t01=0x001e}
0x8828…8854               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0057, t01=0x0050}
0x8854…8864               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0057, t01=0x007c}
0x8864…886e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x008c}
0x886e…8876               Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0096}
0x8876…8888               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0057, t01=0x009e}
0x8888…8890               Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x00b0}
0x8890…889a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00b8}
0x889a…88a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00c2}
0x88a4…88ee               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM ATTENTION KEY IS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x0057, t01=0x00cc}
0x88ee…892c               Head {h00=0x003a, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PA1.CANCEL OR PA3 «, t00=0x0057, t01=0x0116}
0x892c…8936               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0154}
0x8936…8940               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x015e}
0x8940…8952               Head {h00=0x000e, h01=0x0050, text=»PAEX EQU *«, t00=0x0057, t01=0x0168}
0x8952…8968               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PAEXA«, t00=0x0057, t01=0x017a}
0x8968…8984               Head {h00=0x0018, h01=0x0050, text=» ST A1,RDMORE,TCABAS«, t00=0x0057, t01=0x0190}
0x8984…8994               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x001c}
0x8994…89a8               Head {h00=0x0010, h01=0x0050, text=»PAEXA EQU * «, t00=0x0058, t01=0x002c}
0x89a8…89c2               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x0058, t01=0x0040}
0x89c2…89e6               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CHECK IF NUM.1-3«, t00=0x0058, t01=0x005a}
0x89e6…8a08               Head {h00=0x001e, h01=0x0050, text=» RF(L) PFERR ILLEGAL CHAR.«, t00=0x0058, t01=0x007e}
0x8a08…8a2c               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/2 CHECK IF NUM.1-3 «, t00=0x0058, t01=0x00a0}
0x8a2c…8a4e               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL CHAR.«, t00=0x0058, t01=0x00c4}
0x8a4e…8a60               Head {h00=0x000e, h01=0x0050, text=» RF(Z) PA3«, t00=0x0058, t01=0x00e6}
0x8a60…8a72               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0058, t01=0x00f8}
0x8a72…8a84               Head {h00=0x000e, h01=0x0050, text=» RB(Z) PA2«, t00=0x0058, t01=0x010a}
0x8a84…8a94               Head {h00=0x000c, h01=0x0050, text=» RF PA1 «, t00=0x0058, t01=0x011c}
0x8a94…8abe               Head {h00=0x0026, h01=0x0050, text=» RTN A14 RETURN TO MAIN READ LOOP «, t00=0x0058, t01=0x012c}
0x8abe…8ac6               Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0156}
0x8ac6…8ad2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x015e}
0x8ad2…8ae0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0058, t01=0x016a}
0x8ae0…8ae8               Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0178}
0x8ae8…8af2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0180}
0x8af2…8b1c               Head {h00=0x0026, h01=0x0050, text=»*    PA1    PROGRAM ATTENTION KEY «, t00=0x0058, t01=0x018a}
0x8b1c…8b26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0024}
0x8b26…8b30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x002e}
0x8b30…8b42               Head {h00=0x000e, h01=0x0050, text=»PA1 EQU * «, t00=0x0059, t01=0x0038}
0x8b42…8b5e               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2C PA1 POS «, t00=0x0059, t01=0x004a}
0x8b5e…8b70               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x0059, t01=0x0066}
0x8b70…8b7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0078}
0x8b7a…8b84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0082}
0x8b84…8bac               Head {h00=0x0024, h01=0x0050, text=»*    PA3   PROGRAM ATTENTION KEY«, t00=0x0059, t01=0x008c}
0x8bac…8bb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00b4}
0x8bb6…8bc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00be}
0x8bc0…8bd2               Head {h00=0x000e, h01=0x0050, text=»PA3 EQU * «, t00=0x0059, t01=0x00c8}
0x8bd2…8bee               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2B PA3 POS «, t00=0x0059, t01=0x00da}
0x8bee…8c00               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x0059, t01=0x00f6}
0x8c00…8c0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0108}
0x8c0a…8c2a               Head {h00=0x001c, h01=0x0050, text=»* PA4 - PA10 (ALFASKOP) «, t00=0x0059, t01=0x0112}
0x8c2a…8c34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0132}
0x8c34…8c48               Head {h00=0x0010, h01=0x0050, text=»PA410 EQU * «, t00=0x0059, t01=0x013c}
0x8c48…8c5c               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x0059, t01=0x0150}
0x8c5c…8c6e               Head {h00=0x000e, h01=0x0050, text=» RB CAN200«, t00=0x0059, t01=0x0164}
0x8c6e…8c7c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x0176}
0x8c7c…8c86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0184}
0x8c86…8cc6               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0059, t01=0x018e}
0x8cc6…8cd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x003e}
0x8cd0…8ce0               Head {h00=0x000c, h01=0x0050, text=»* ENTER «, t00=0x005a, t01=0x0048}
0x8ce0…8cea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0058}
0x8cea…8d26               Head {h00=0x0038, h01=0x0050, text=»* PROGRAM FUNCTION KEY WHICH CAUSES AN I/O OPERATION«, t00=0x005a, t01=0x0062}
0x8d26…8d66               Head {h00=0x003c, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER FOLLOWED BY AN SBA ORDER«, t00=0x005a, t01=0x009e}
0x8d66…8da2               Head {h00=0x0038, h01=0x0050, text=»* ATTRIBUTE ADDRESS AND TEXT FOR EACH MODIFIED FIELD«, t00=0x005a, t01=0x00de}
0x8da2…8dc0               Head {h00=0x001a, h01=0x0050, text=»* NULLS ARE SUPRESSED «, t00=0x005a, t01=0x011a}
0x8dc0…8dca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0138}
0x8dca…8e0c               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x005a, t01=0x0142}
0x8e0c…8e16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0184}
0x8e16…8e2a               Head {h00=0x0010, h01=0x0050, text=»ENTER EQU * «, t00=0x005a, t01=0x018e}
0x8e2a…8e48               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/3D ENTER POS «, t00=0x005b, t01=0x0012}
0x8e48…8e5c               Head {h00=0x0010, h01=0x0050, text=»ENT100 EQU *«, t00=0x005b, t01=0x0030}
0x8e5c…8e86               Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x005b, t01=0x0044}
0x8e86…8eb8               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x005b, t01=0x006e}
0x8eb8…8eea               Head {h00=0x002e, h01=0x0050, text=» CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT «, t00=0x005b, t01=0x00a0}
0x8eea…8efe               Head {h00=0x0010, h01=0x0050, text=»ENT200 EQU *«, t00=0x005b, t01=0x00d2}
0x8efe…8f0e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005b, t01=0x00e6}
0x8f0e…8f18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00f6}
0x8f18…8f20               Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x0100}
0x8f20…8f32               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x005b, t01=0x0108}
0x8f32…8f3a               Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x011a}
0x8f3a…8f44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0122}
0x8f44…8f4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x012c}
0x8f4e…8f98               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM FUNCTION KEY IOS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x005b, t01=0x0136}
0x8f98…8fcc               Head {h00=0x0030, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PF1-PF12«, t00=0x005b, t01=0x0180}
0x8fcc…8fd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0024}
0x8fd6…8fe0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x002e}
0x8fe0…8ff2               Head {h00=0x000e, h01=0x0050, text=»PFEX EQU *«, t00=0x005c, t01=0x0038}
0x8ff2…9008               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PFEXA«, t00=0x005c, t01=0x004a}
0x9008…901a               Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x005c, t01=0x0060}
0x901a…902e               Head {h00=0x0010, h01=0x0050, text=»PFEXA EQU * «, t00=0x005c, t01=0x0072}
0x902e…9048               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005c, t01=0x0086}
0x9048…9068               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL CHAR ?«, t00=0x005c, t01=0x00a0}
0x9068…9098               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING «, t00=0x005c, t01=0x00c0}
0x9098…90c2               Head {h00=0x0026, h01=0x0050, text=» RF(Z) PF0 FIRST NUM. 0 GO TO PF0 «, t00=0x005c, t01=0x00f0}
0x90c2…90e4               Head {h00=0x001e, h01=0x0050, text=» SUK A2,/1 FIRST NUM. 1 ? «, t00=0x005c, t01=0x011a}
0x90e4…9106               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL NUM. «, t00=0x005c, t01=0x013c}
0x9106…911c               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PF1A «, t00=0x005c, t01=0x015e}
0x911c…912e               Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x005c, t01=0x0174}
0x912e…9140               Head {h00=0x000e, h01=0x0050, text=»PF1A EQU *«, t00=0x005c, t01=0x0186}
0x9140…915a               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005d, t01=0x0008}
0x915a…917a               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL NUM.? «, t00=0x005d, t01=0x0022}
0x917a…91aa               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005d, t01=0x0042}
0x91aa…91c8               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/2 LEGAL NUM ?«, t00=0x005d, t01=0x0072}
0x91c8…91f8               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005d, t01=0x0090}
0x91f8…9218               Head {h00=0x001c, h01=0x0050, text=» ADK A2,/3C PF10-12 POS «, t00=0x005d, t01=0x00c0}
0x9218…922a               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x005d, t01=0x00e0}
0x922a…9232               Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x00f2}
0x9232…9244               Head {h00=0x000e, h01=0x0050, text=»PF0 EQU * «, t00=0x005d, t01=0x00fa}
0x9244…925a               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PF0A «, t00=0x005d, t01=0x010c}
0x925a…926e               Head {h00=0x0010, h01=0x0050, text=»PFNXT EQU * «, t00=0x005d, t01=0x0122}
0x926e…928a               Head {h00=0x0018, h01=0x0050, text=» ST A1,RDMORE,TCABAS«, t00=0x005d, t01=0x0136}
0x928a…929a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005d, t01=0x0152}
0x929a…92ac               Head {h00=0x000e, h01=0x0050, text=»PF0A EQU *«, t00=0x005d, t01=0x0162}
0x92ac…92c6               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005d, t01=0x0174}
0x92c6…92e6               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/31 LEGAL NUM ? «, t00=0x005d, t01=0x018e}
0x92e6…9316               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005e, t01=0x001e}
0x9316…9334               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/8 LEGAL NUM ?«, t00=0x005e, t01=0x004e}
0x9334…9364               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005e, t01=0x006c}
0x9364…9382               Head {h00=0x001a, h01=0x0050, text=» ADK A2,/39 PF1-9 POS «, t00=0x005e, t01=0x009c}
0x9382…9394               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x005e, t01=0x00ba}
0x9394…93a0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x00cc}
0x93a0…93b4               Head {h00=0x0010, h01=0x0050, text=»PFERR EQU * «, t00=0x005e, t01=0x00d8}
0x93b4…93e2               Head {h00=0x002a, h01=0x0050, text=» CF A14,ERROR GO TO ERR-HANDLING RUTIN«, t00=0x005e, t01=0x00ec}
0x93e2…940a               Head {h00=0x0024, h01=0x0050, text=» RTN A14 GO TO MAIN READ MODULE «, t00=0x005e, t01=0x011a}
0x940a…9412               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x0142}
0x9412…941a               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x014a}
0x941a…942a               Head {h00=0x000c, h01=0x0050, text=»PF EQU *«, t00=0x005e, t01=0x0152}
0x942a…943e               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/5C «, t00=0x005e, t01=0x0162}
0x943e…9450               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x005e, t01=0x0176}
0x9450…9464               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x005e, t01=0x0188}
0x9464…9472               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x000c}
0x9472…94b6               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005f, t01=0x001a}
0x94b6…94c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x005e}
0x94c0…94d0               Head {h00=0x000c, h01=0x0050, text=»* OFLINE«, t00=0x005f, t01=0x0068}
0x94d0…9510               Head {h00=0x003c, h01=0x0050, text=»*            THE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND «, t00=0x005f, t01=0x0078}
0x9510…954c               Head {h00=0x0038, h01=0x0050, text=»*           A BRANCH IS MADE BACK TO CREDIT PROGRAM «, t00=0x005f, t01=0x00b8}
0x954c…9556               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00f4}
0x9556…959c               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x005f, t01=0x00fe}
0x959c…95b0               Head {h00=0x0010, h01=0x0050, text=»OFLINE EQU *«, t00=0x005f, t01=0x0144}
0x95b0…95c6               Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x005f, t01=0x0158}
0x95c6…95da               Head {h00=0x0010, h01=0x0050, text=»OFLI05 EQU *«, t00=0x005f, t01=0x016e}
0x95da…95f0               Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x005f, t01=0x0182}
0x95f0…9604               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0060, t01=0x0008}
0x9604…961e               Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x0060, t01=0x001c}
0x961e…9630               Head {h00=0x000e, h01=0x0050, text=» XRK A7,1 «, t00=0x0060, t01=0x0036}
0x9630…964a               Head {h00=0x0016, h01=0x0050, text=» ST A7,MAIN,TCABAS«, t00=0x0060, t01=0x0048}
0x964a…967e               Head {h00=0x0030, h01=0x0050, text=» CF A14,DCABOR ABORT REQUEST NOT CURRENT MF «, t00=0x0060, t01=0x0062}
0x967e…968a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0096}
0x968a…969e               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0060, t01=0x00a2}
0x969e…96d8               Head {h00=0x0036, h01=0x0050, text=» LDK A1,0 DV ADDRESS ::= 0MESSAGES TO VDU IGNORED «, t00=0x0060, t01=0x00b6}
0x96d8…96f6               Head {h00=0x001a, h01=0x0050, text=» LDKL A8,ECBDC MF # 1 «, t00=0x0060, t01=0x00f0}
0x96f6…9720               Head {h00=0x0026, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETERS «, t00=0x0060, t01=0x010e}
0x9720…9734               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0060, t01=0x0138}
0x9734…9752               Head {h00=0x001a, h01=0x0050, text=» LDKL A8,ECBDC2 MF # 2«, t00=0x0060, t01=0x014c}
0x9752…977c               Head {h00=0x0026, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETERS «, t00=0x0060, t01=0x016a}
0x977c…9788 (97, 0, 398)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0004}
0x9788…979c               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0061, t01=0x0010}
0x979c…97b2               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1OF«, t00=0x0061, t01=0x0024}
0x97b2…97c8               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2OF«, t00=0x0061, t01=0x003a}
0x97c8…97de               Head {h00=0x0012, h01=0x0050, text=» CF A14,LSAVOF«, t00=0x0061, t01=0x0050}
0x97de…980a               Head {h00=0x0028, h01=0x0050, text=» CF A14,LIOLON TURN ON OFFLINE LAMP «, t00=0x0061, t01=0x0066}
0x980a…9834               Head {h00=0x0026, h01=0x0050, text=» IM OFFFLG,TCABAS SET OFFLINE FLAG«, t00=0x0061, t01=0x0092}
0x9834…985c               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 SKIP ONE STACK LEVEL«, t00=0x0061, t01=0x00bc}
0x985c…988a               Head {h00=0x002a, h01=0x0050, text=» LD A13,2,A14 RELOAD REGISTERS A12-A13«, t00=0x0061, t01=0x00e4}
0x988a…98a0               Head {h00=0x0012, h01=0x0050, text=» LD A12,4,A14 «, t00=0x0061, t01=0x0112}
0x98a0…98c8               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0061, t01=0x0128}
0x98c8…98f6               Head {h00=0x002a, h01=0x0050, text=» ABL I:RT1 RETURN TO "OFFLINE" PROGRAM«, t00=0x0061, t01=0x0150}
0x98f6…98fe               Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x017e}
0x98fe…990a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0186}
0x990a…991e (98, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0062, t01=0x0004}
0x991e…992c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0062, t01=0x0018}
0x992c…9970               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0062, t01=0x0026}
0x9970…997a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x006a}
0x997a…9994               Head {h00=0x0016, h01=0x0050, text=»* MAINFRAME CHANGE«, t00=0x0062, t01=0x0074}
0x9994…99e0               Head {h00=0x0048, h01=0x0050, text=»*   THE SWITCH 'MAIN' IS CHANGED, AND THE APPROPRIATE 'SYSTEM' LAMP «, t00=0x0062, t01=0x008e}
0x99e0…99fe               Head {h00=0x001a, h01=0x0050, text=»*       IS TTURNED ON «, t00=0x0062, t01=0x00da}
0x99fe…9a08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00f8}
0x9a08…9a56               Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0062, t01=0x0102}
0x9a56…9a60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0150}
0x9a60…9a74               Head {h00=0x0010, h01=0x0050, text=»MFCHGE EQU *«, t00=0x0062, t01=0x015a}
0x9a74…9a8a               Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0062, t01=0x016e}
0x9a8a…9a9e               Head {h00=0x0010, h01=0x0050, text=»MFCH05 EQU *«, t00=0x0062, t01=0x0184}
0x9a9e…9ab4               Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0063, t01=0x0008}
0x9ab4…9aca               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1OF«, t00=0x0063, t01=0x001e}
0x9aca…9ae0               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2OF«, t00=0x0063, t01=0x0034}
0x9ae0…9af6               Head {h00=0x0012, h01=0x0050, text=» CF A14,LSAVOF«, t00=0x0063, t01=0x004a}
0x9af6…9b10               Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x0063, t01=0x0060}
0x9b10…9b22               Head {h00=0x000e, h01=0x0050, text=» XRK A1,1 «, t00=0x0063, t01=0x007a}
0x9b22…9b38               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MFCH10«, t00=0x0063, t01=0x008c}
0x9b38…9b4e               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1ON«, t00=0x0063, t01=0x00a2}
0x9b4e…9b60               Head {h00=0x000e, h01=0x0050, text=» RF MFCH90«, t00=0x0063, t01=0x00b8}
0x9b60…9b74               Head {h00=0x0010, h01=0x0050, text=»MFCH10 EQU *«, t00=0x0063, t01=0x00ca}
0x9b74…9b8a               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2ON«, t00=0x0063, t01=0x00de}
0x9b8a…9b9e               Head {h00=0x0010, h01=0x0050, text=»MFCH90 EQU *«, t00=0x0063, t01=0x00f4}
0x9b9e…9bb8               Head {h00=0x0016, h01=0x0050, text=» ST A1,MAIN,TCABAS«, t00=0x0063, t01=0x0108}
0x9bb8…9bc8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0063, t01=0x0122}
0x9bc8…9bd4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x0132}
0x9bd4…9be2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0063, t01=0x013e}
0x9be2…9bec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x014c}
0x9bec…9c2c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0063, t01=0x0156}
0x9c2c…9c36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0008}
0x9c36…9c46               Head {h00=0x000c, h01=0x0050, text=»* CLEAR «, t00=0x0064, t01=0x0012}
0x9c46…9c50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0022}
0x9c50…9c8e               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0064, t01=0x002c}
0x9c8e…9cca               Head {h00=0x0038, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER. THE ENTIRE DISPLAY «, t00=0x0064, t01=0x006a}
0x9cca…9d08               Head {h00=0x003a, h01=0x0050, text=»* BUFFER IS CLEARED TO NULLS AND CURSOR IS LOCATED IN «, t00=0x0064, t01=0x00a6}
0x9d08…9d1a               Head {h00=0x000e, h01=0x0050, text=»* HOME POS«, t00=0x0064, t01=0x00e4}
0x9d1a…9d24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00f6}
0x9d24…9d64               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0064, t01=0x0100}
0x9d64…9d6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0140}
0x9d6e…9d82               Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x0064, t01=0x014a}
0x9d82…9da6               Head {h00=0x0020, h01=0x0050, text=» LDK A2,/2D POS FOR 'CLEAR' «, t00=0x0064, t01=0x015e}
0x9da6…9dbe               Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x0064, t01=0x0182}
0x9dbe…9df0               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x0065, t01=0x000a}
0x9df0…9e1c               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0065, t01=0x003c}
0x9e1c…9e46               Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x0065, t01=0x0068}
0x9e46…9e56               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0065, t01=0x0092}
0x9e56…9e64               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0065, t01=0x00a2}
0x9e64…9e6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00b0}
0x9e6e…9eb2               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0065, t01=0x00ba}
0x9eb2…9ebc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00fe}
0x9ebc…9ecc               Head {h00=0x000c, h01=0x0050, text=»* EREOF «, t00=0x0065, t01=0x0108}
0x9ecc…9ed6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0118}
0x9ed6…9ef6               Head {h00=0x001c, h01=0x0050, text=»* ERASE TO END OF FIELD «, t00=0x0065, t01=0x0122}
0x9ef6…9f00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0142}
0x9f00…9f44               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0065, t01=0x014c}
0x9f44…9f4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0190}
0x9f4e…9f62               Head {h00=0x0010, h01=0x0050, text=»EREOF EQU * «, t00=0x0066, t01=0x000a}
0x9f62…9f74               Head {h00=0x000e, h01=0x0050, text=» LDK A6,1 «, t00=0x0066, t01=0x001e}
0x9f74…9f9e               Head {h00=0x0026, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE«, t00=0x0066, t01=0x0030}
0x9f9e…9fbe               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/10 UNPROTECTED?«, t00=0x0066, t01=0x005a}
0x9fbe…9fd8               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE100 YES «, t00=0x0066, t01=0x007a}
0x9fd8…9fea               Head {h00=0x000e, h01=0x0050, text=» ABL ERROR«, t00=0x0066, t01=0x0094}
0x9fea…a00c               Head {h00=0x001e, h01=0x0050, text=»ERE100 LD A2,PCURS,TCABAS «, t00=0x0066, t01=0x00a6}
0xa00c…a014               Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x00c8}
0xa014…a040               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0066, t01=0x00d0}
0xa040…a048               Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x00fc}
0xa048…a07e               Head {h00=0x0032, h01=0x0050, text=» CW A2,CURATT,TCABAS STANDING ON ATTRIBUTE ?? «, t00=0x0066, t01=0x0104}
0xa07e…a0ac               Head {h00=0x002a, h01=0x0050, text=» ABL(E) ERROR YES!! TURN ON ERROR LAMP«, t00=0x0066, t01=0x013a}
0xa0ac…a0b4               Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x0168}
0xa0b4…a0e0               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0066, t01=0x0170}
0xa0e0…a0e8               Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x000c}
0xa0e8…a114               Head {h00=0x0028, h01=0x0050, text=»ERE150 CF A14,GBUFFC GET BUFF. CHAR «, t00=0x0067, t01=0x0014}
0xa114…a136               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR«, t00=0x0067, t01=0x0040}
0xa136…a14e               Head {h00=0x0014, h01=0x0050, text=» RF(G) ERE200 NO«, t00=0x0067, t01=0x0062}
0xa14e…a166               Head {h00=0x0014, h01=0x0050, text=»ERE160 LDR A1,A2«, t00=0x0067, t01=0x007a}
0xa166…a182               Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0067, t01=0x0092}
0xa182…a196               Head {h00=0x0010, h01=0x0050, text=»ERE170 EQU *«, t00=0x0067, t01=0x00ae}
0xa196…a1ac               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0067, t01=0x00c2}
0xa1ac…a1c2               Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0067, t01=0x00d8}
0xa1c2…a1d4               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0067, t01=0x00ee}
0xa1d4…a208               Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE AND REPLASE WITH NULLS «, t00=0x0067, t01=0x0100}
0xa208…a234               Head {h00=0x0028, h01=0x0050, text=» CF A14,DISPL DISPLAY ERASED SCREEN «, t00=0x0067, t01=0x0134}
0xa234…a23e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0160}
0xa23e…a26a               Head {h00=0x0028, h01=0x0050, text=»*   SET MDT BIT IF FORMATTED SCREEN «, t00=0x0067, t01=0x016a}
0xa26a…a274               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0008}
0xa274…a27c               Head {h00=0x0004, h01=0x0050, t00=0x0068, t01=0x0012}
0xa27c…a298               Head {h00=0x0018, h01=0x0050, text=» LD A2,CURATT,TCABAS«, t00=0x0068, t01=0x001a}
0xa298…a2b0               Head {h00=0x0014, h01=0x0050, text=» CWK A2,LBVDU+1 «, t00=0x0068, t01=0x0036}
0xa2b0…a2d8               Head {h00=0x0024, h01=0x0050, text=» RF(E) ERE180 UNFORMATTED SCREEN«, t00=0x0068, t01=0x004e}
0xa2d8…a2e0               Head {h00=0x0004, h01=0x0050, t00=0x0068, t01=0x0076}
0xa2e0…a2f4               Head {h00=0x0010, h01=0x0050, text=» ADK A2,BVDU«, t00=0x0068, t01=0x007e}
0xa2f4…a326               Head {h00=0x002e, h01=0x0050, text=» ADR A2,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x0068, t01=0x0092}
0xa326…a346               Head {h00=0x001c, h01=0x0050, text=» LCR A1,A2 GET ATTRIBUTE«, t00=0x0068, t01=0x00c4}
0xa346…a364               Head {h00=0x001a, h01=0x0050, text=» ORK A1,1 SET MDT BIT «, t00=0x0068, t01=0x00e4}
0xa364…a376               Head {h00=0x000e, h01=0x0050, text=» SCR A1,A2«, t00=0x0068, t01=0x0102}
0xa376…a38a               Head {h00=0x0010, h01=0x0050, text=»ERE180 EQU *«, t00=0x0068, t01=0x0114}
0xa38a…a39a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0068, t01=0x0128}
0xa39a…a3c6               Head {h00=0x0028, h01=0x0050, text=»ERE200 CWK A2,LBVDU-1 END OF BUFFER?«, t00=0x0068, t01=0x0138}
0xa3c6…a3e0               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE300 YES «, t00=0x0068, t01=0x0164}
0xa3e0…a3f2               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0068, t01=0x017e}
0xa3f2…a40a               Head {h00=0x0014, h01=0x0050, text=» RB ERE150 NEXT «, t00=0x0068, t01=0x0190}
0xa40a…a438               Head {h00=0x002a, h01=0x0050, text=»ERE300 SUK A6,1 WHOLW BUFF CONTROLED? «, t00=0x0069, t01=0x0018}
0xa438…a44e               Head {h00=0x0012, h01=0x0050, text=» RB(N) ERE160 «, t00=0x0069, t01=0x0046}
0xa44e…a46c               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND.«, t00=0x0069, t01=0x005c}
0xa46c…a47e               Head {h00=0x000e, h01=0x0050, text=» RB ERE150«, t00=0x0069, t01=0x007a}
0xa47e…a48c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x008c}
0xa48c…a496               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x009a}
0xa496…a4d6               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0069, t01=0x00a4}
0xa4d6…a4e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00e4}
0xa4e0…a4f0               Head {h00=0x000c, h01=0x0050, text=»* ERINPT«, t00=0x0069, t01=0x00ee}
0xa4f0…a4fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00fe}
0xa4fa…a538               Head {h00=0x003a, h01=0x0050, text=»* CLEARS ALL UNPROTECTED CHARACTER LOCATIONS TO NULLS «, t00=0x0069, t01=0x0108}
0xa538…a576               Head {h00=0x003a, h01=0x0050, text=»* AND REPOSITIONS THE CURSOR TO THE FIRST UNPROTECTED «, t00=0x0069, t01=0x0146}
0xa576…a59c               Head {h00=0x0022, h01=0x0050, text=»* CHAR LOCATION ON THE SCREEN «, t00=0x0069, t01=0x0184}
0xa59c…a5a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x001a}
0xa5a6…a5e6               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x006a, t01=0x0024}
0xa5e6…a5f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0064}
0xa5f0…a604               Head {h00=0x0010, h01=0x0050, text=»ERINPT EQU *«, t00=0x006a, t01=0x006e}
0xa604…a630               Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x006a, t01=0x0082}
0xa630…a646               Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x006a, t01=0x00ae}
0xa646…a662               Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x006a, t01=0x00c4}
0xa662…a678               Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x006a, t01=0x00e0}
0xa678…a6ba               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006a, t01=0x00f6}
0xa6ba…a6cc               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006a, t01=0x0138}
0xa6cc…a6f4               Head {h00=0x0024, h01=0x0050, text=» RF(Z) ERI:10 NO ATTRIBUTE FOUND«, t00=0x006a, t01=0x014a}
0xa6f4…a728               Head {h00=0x0030, h01=0x0050, text=» RF(N) ERI:5 ATTRIBUTE NOT IN LAST POSITION «, t00=0x006a, t01=0x0172}
0xa728…a756               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,-1 ATTRIBUTE IN LAST POSITION«, t00=0x006b, t01=0x0016}
0xa756…a76a               Head {h00=0x0010, h01=0x0050, text=»ERI:5 EQU * «, t00=0x006b, t01=0x0044}
0xa76a…a7ac               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006b, t01=0x0058}
0xa7ac…a7be               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x006b, t01=0x009a}
0xa7be…a7c6               Head {h00=0x0004, h01=0x0050, t00=0x006b, t01=0x00ac}
0xa7c6…a7da               Head {h00=0x0010, h01=0x0050, text=»ERI:10 EQU *«, t00=0x006b, t01=0x00b4}
0xa7da…a7f6               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x006b, t01=0x00c8}
0xa7f6…a806               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006b, t01=0x00e4}
0xa806…a814               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006b, t01=0x00f4}
0xa814…a81e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0102}
0xa81e…a862               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006b, t01=0x010c}
0xa862…a86c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0150}
0xa86c…a87c               Head {h00=0x000c, h01=0x0050, text=»* ERROR «, t00=0x006b, t01=0x015a}
0xa87c…a886               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x016a}
0xa886…a8b8               Head {h00=0x002e, h01=0x0050, text=»* THE MODULE TAKES CARE OF UNALLOWED KEYS «, t00=0x006b, t01=0x0174}
0xa8b8…a8c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0016}
0xa8c2…a906               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x006c, t01=0x0020}
0xa906…a910               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0064}
0xa910…a924               Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x006c, t01=0x006e}
0xa924…a950               Head {h00=0x0028, h01=0x0050, text=» CF A14,LERRON TURN ON 'ERROR' LAMP «, t00=0x006c, t01=0x0082}
0xa950…a96c               Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x006c, t01=0x00ae}
0xa96c…a9a4               Head {h00=0x0034, h01=0x0050, text=» ORK A5,4 BIT 13:=1,ERROR HANDLING.RESET ALLOWED«, t00=0x006c, t01=0x00ca}
0xa9a4…a9c0               Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x006c, t01=0x0102}
0xa9c0…a9c8               Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x011e}
0xa9c8…a9d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0126}
0xa9d2…a9f2               Head {h00=0x001c, h01=0x0050, text=»*   TURN ON SOUND ALARM «, t00=0x006c, t01=0x0130}
0xa9f2…a9fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0150}
0xa9fc…aa04               Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x015a}
0xaa04…aa1c               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x006c, t01=0x0162}
0xaa1c…aa42               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS VDU-ECB ADDRESS«, t00=0x006c, t01=0x017a}
0xaa42…aa68               Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBBA,A8 BUFFER ADDRESS«, t00=0x006d, t01=0x0010}
0xaa68…aa90               Head {h00=0x0024, h01=0x0050, text=» LDK A7,X'2B' CONTROL CHARACTER «, t00=0x006d, t01=0x0036}
0xaa90…aaa4               Head {h00=0x0010, h01=0x0050, text=» SC A7,1,A2 «, t00=0x006d, t01=0x005e}
0xaaa4…aac8               Head {h00=0x0020, h01=0x0050, text=» LDK A7,X'07' BELL CHARACTER«, t00=0x006d, t01=0x0072}
0xaac8…aadc               Head {h00=0x0010, h01=0x0050, text=» SC A7,2,A2 «, t00=0x006d, t01=0x0096}
0xaadc…aafe               Head {h00=0x001e, h01=0x0050, text=» LDK A7,3 REQUESTED LENGTH«, t00=0x006d, t01=0x00aa}
0xaafe…ab16               Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x006d, t01=0x00cc}
0xab16…ab38               Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' SOUND ALARM «, t00=0x006d, t01=0x00e4}
0xab38…ab44               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x006d, t01=0x0106}
0xab44…ab54               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x006d, t01=0x0112}
0xab54…ab5c               Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x0122}
0xab5c…ab6c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006d, t01=0x012a}
0xab6c…ab82               Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x006d, t01=0x013a}
0xab82…ab90               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x0150}
0xab90…abda               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x006d, t01=0x015e}
0xabda…abe4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0018}
0xabe4…ac10               Head {h00=0x0028, h01=0x0050, text=»*   KEY LOCK STATUS IS SET IN 'KEYS'«, t00=0x006e, t01=0x0022}
0xac10…ac40               Head {h00=0x002c, h01=0x0050, text=»* ON ENTRY  A2 = KEY LOCK VALUE /70-/77 «, t00=0x006e, t01=0x004e}
0xac40…ac4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x007e}
0xac4a…ac94               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x006e, t01=0x0088}
0xac94…ac9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00d2}
0xac9e…acb0               Head {h00=0x000e, h01=0x0050, text=»KEYL EQU *«, t00=0x006e, t01=0x00dc}
0xacb0…acda               Head {h00=0x0026, h01=0x0050, text=» SUK A2,/78 GET NEG KEY LOCK VALUE«, t00=0x006e, t01=0x00ee}
0xacda…ad00               Head {h00=0x0022, h01=0x0050, text=» LD A3,KEYS,TCABAS OLD STATUS «, t00=0x006e, t01=0x0118}
0xad00…ad14               Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x006e, t01=0x013e}
0xad14…ad28               Head {h00=0x0010, h01=0x0050, text=»KEYL10 EQU *«, t00=0x006e, t01=0x0152}
0xad28…ad3a               Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x006e, t01=0x0166}
0xad3a…ad5a               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 1 = OFF,0 = ON«, t00=0x006e, t01=0x0178}
0xad5a…ad70               Head {h00=0x0012, h01=0x0050, text=» RB(N) KEYL10 «, t00=0x006f, t01=0x0008}
0xad70…ad94               Head {h00=0x0020, h01=0x0050, text=» ANR A3,A4 CHECK OLD KEY POS«, t00=0x006f, t01=0x001e}
0xad94…adb2               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) KEYL20 WAS ON «, t00=0x006f, t01=0x0042}
0xadb2…adcc               Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 WAS OFF«, t00=0x006f, t01=0x0060}
0xadcc…adf6               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) KEYL99 NOW OFF, NO CHANGE «, t00=0x006f, t01=0x007a}
0xadf6…ae10               Head {h00=0x0016, h01=0x0050, text=» RF KEYL30 NOW ON «, t00=0x006f, t01=0x00a4}
0xae10…ae2c               Head {h00=0x0018, h01=0x0050, text=»KEYL20 EQU * WAS ON «, t00=0x006f, t01=0x00be}
0xae2c…ae3e               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x006f, t01=0x00da}
0xae3e…ae66               Head {h00=0x0024, h01=0x0050, text=» RF(Z) KEYL99 NOW ON, NO CHANGE «, t00=0x006f, t01=0x00ec}
0xae66…ae82               Head {h00=0x0018, h01=0x0050, text=»KEYL30 EQU *  CHANGE«, t00=0x006f, t01=0x0114}
0xae82…ae9c               Head {h00=0x0016, h01=0x0050, text=» LD A3,KEYS,TCABAS«, t00=0x006f, t01=0x0130}
0xae9c…aebc               Head {h00=0x001c, h01=0x0050, text=» XRR A3,A4 CHANGE STATUS«, t00=0x006f, t01=0x014a}
0xaebc…aee8               Head {h00=0x0028, h01=0x0050, text=» ST A3,KEYS,TCABAS STORE NEW STATUS «, t00=0x006f, t01=0x016a}
0xaee8…aef2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0008}
0xaef2…af12               Head {h00=0x001c, h01=0x0050, text=»* KEYLOCK STATUS CHANGED«, t00=0x0070, t01=0x0012}
0xaf12…af60               Head {h00=0x004a, h01=0x0050, text=»*   A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON «, t00=0x0070, t01=0x0032}
0xaf60…af8e               Head {h00=0x002a, h01=0x0050, text=»*   A4 = KEYLOCK CHANGED, LAYOUT AS A3«, t00=0x0070, t01=0x0080}
0xaf8e…afba               Head {h00=0x0028, h01=0x0050, text=»*   A2 = 1, IF CHANGED TO OFF ELSE 0«, t00=0x0070, t01=0x00ae}
0xafba…afc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00da}
0xafc4…aff2               Head {h00=0x002a, h01=0x0050, text=»* INSERT USER ROUTINE BELOW THIS LINE «, t00=0x0070, t01=0x00e4}
0xaff2…affc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0112}
0xaffc…b010               Head {h00=0x0010, h01=0x0050, text=»KEYL99 EQU *«, t00=0x0070, t01=0x011c}
0xb010…b020               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0070, t01=0x0130}
0xb020…b02c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x0140}
0xb02c…b03a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x014c}
0xb03a…b044               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x015a}
0xb044…b084               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0070, t01=0x0164}
0xb084…b08e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0014}
0xb08e…b0a2               Head {h00=0x0010, h01=0x0050, text=»* LAMPMODULE«, t00=0x0071, t01=0x001e}
0xb0a2…b0ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0032}
0xb0ac…b0b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x003c}
0xb0b6…b0f6               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0071, t01=0x0046}
0xb0f6…b100               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0086}
0xb100…b114               Head {h00=0x0010, h01=0x0050, text=»LON EQU /B7 «, t00=0x0071, t01=0x0090}
0xb114…b128               Head {h00=0x0010, h01=0x0050, text=»LOF EQU /B8 «, t00=0x0071, t01=0x00a4}
0xb128…b13e               Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0071, t01=0x00b8}
0xb13e…b152               Head {h00=0x0010, h01=0x0050, text=»LMF1 EQU /20«, t00=0x0071, t01=0x00ce}
0xb152…b166               Head {h00=0x0010, h01=0x0050, text=»LMF2 EQU /10«, t00=0x0071, t01=0x00e2}
0xb166…b178               Head {h00=0x000e, h01=0x0050, text=»LIOL EQU 8«, t00=0x0071, t01=0x00f6}
0xb178…b18a               Head {h00=0x000e, h01=0x0050, text=»LINH EQU 4«, t00=0x0071, t01=0x0108}
0xb18a…b19c               Head {h00=0x000e, h01=0x0050, text=»LERR EQU 2«, t00=0x0071, t01=0x011a}
0xb19c…b1ae               Head {h00=0x000e, h01=0x0050, text=»LSAV EQU 1«, t00=0x0071, t01=0x012c}
0xb1ae…b1ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x013e}
0xb1ba…b1d0               Head {h00=0x0012, h01=0x0050, text=» IFF KB6272=1 «, t00=0x0071, t01=0x014a}
0xb1d0…b1e6               Head {h00=0x0012, h01=0x0050, text=»LMF1 EQU 0  =2«, t00=0x0071, t01=0x0160}
0xb1e6…b1fc               Head {h00=0x0012, h01=0x0050, text=»LMF2 EQU 0  =2«, t00=0x0071, t01=0x0176}
0xb1fc…b212               Head {h00=0x0012, h01=0x0050, text=»LIOL EQU 1  =2«, t00=0x0071, t01=0x018c}
0xb212…b228               Head {h00=0x0012, h01=0x0050, text=»LINH EQU 2  =2«, t00=0x0072, t01=0x0012}
0xb228…b23e               Head {h00=0x0012, h01=0x0050, text=»LERR EQU 4  =2«, t00=0x0072, t01=0x0028}
0xb23e…b254               Head {h00=0x0012, h01=0x0050, text=»LSAV EQU 8  =2«, t00=0x0072, t01=0x003e}
0xb254…b260               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x0054}
0xb260…b27a               Head {h00=0x0016, h01=0x0050, text=»LMF1ON LDK A3,LMF1«, t00=0x0072, t01=0x0060}
0xb27a…b28c               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0072, t01=0x007a}
0xb28c…b2a6               Head {h00=0x0016, h01=0x0050, text=»LMF1OF LDK A3,LMF1«, t00=0x0072, t01=0x008c}
0xb2a6…b2b8               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0072, t01=0x00a6}
0xb2b8…b2d2               Head {h00=0x0016, h01=0x0050, text=»LMF2ON LDK A3,LMF2«, t00=0x0072, t01=0x00b8}
0xb2d2…b2e4               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0072, t01=0x00d2}
0xb2e4…b2fe               Head {h00=0x0016, h01=0x0050, text=»LMF2OF LDK A3,LMF2«, t00=0x0072, t01=0x00e4}
0xb2fe…b310               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0072, t01=0x00fe}
0xb310…b32a               Head {h00=0x0016, h01=0x0050, text=»LIOLON LDK A3,LIOL«, t00=0x0072, t01=0x0110}
0xb32a…b33c               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0072, t01=0x012a}
0xb33c…b356               Head {h00=0x0016, h01=0x0050, text=»LIOLOF LDK A3,LIOL«, t00=0x0072, t01=0x013c}
0xb356…b368               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0072, t01=0x0156}
0xb368…b382               Head {h00=0x0016, h01=0x0050, text=»LINHON LDK A3,LINH«, t00=0x0072, t01=0x0168}
0xb382…b394               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0072, t01=0x0182}
0xb394…b3ae (115, 0, 400) Head {h00=0x0016, h01=0x0050, text=»LINHOF LDK A3,LINH«, t00=0x0073, t01=0x0004}
0xb3ae…b3c0               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0073, t01=0x001e}
0xb3c0…b3da               Head {h00=0x0016, h01=0x0050, text=»LERRON LDK A3,LERR«, t00=0x0073, t01=0x0030}
0xb3da…b3ec               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0073, t01=0x004a}
0xb3ec…b406               Head {h00=0x0016, h01=0x0050, text=»LERROF LDK A3,LERR«, t00=0x0073, t01=0x005c}
0xb406…b418               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0073, t01=0x0076}
0xb418…b432               Head {h00=0x0016, h01=0x0050, text=»LSAVON LDK A3,LSAV«, t00=0x0073, t01=0x0088}
0xb432…b444               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0073, t01=0x00a2}
0xb444…b45e               Head {h00=0x0016, h01=0x0050, text=»LSAVOF LDK A3,LSAV«, t00=0x0073, t01=0x00b4}
0xb45e…b470               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0073, t01=0x00ce}
0xb470…b47a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00e0}
0xb47a…b492               Head {h00=0x0014, h01=0x0050, text=»LMPON LDK A7,LON«, t00=0x0073, t01=0x00ea}
0xb492…b4a4               Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0073, t01=0x0102}
0xb4a4…b4bc               Head {h00=0x0014, h01=0x0050, text=»LMPOF LDK A7,LOF«, t00=0x0073, t01=0x0114}
0xb4bc…b4ce               Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0073, t01=0x012c}
0xb4ce…b4dc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0073, t01=0x013e}
0xb4dc…b4e4               Head {h00=0x0004, h01=0x0050, t00=0x0073, t01=0x014c}
0xb4e4…b4ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0154}
0xb4ee…b52e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0073, t01=0x015e}
0xb52e…b538               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x000e}
0xb538…b548               Head {h00=0x000c, h01=0x0050, text=»* SDISP «, t00=0x0074, t01=0x0018}
0xb548…b552               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0028}
0xb552…b57a               Head {h00=0x0024, h01=0x0050, text=»* SIGNAL DISPLAY MONITOR REQUEST«, t00=0x0074, t01=0x0032}
0xb57a…b584               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x005a}
0xb584…b5c4               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0074, t01=0x0064}
0xb5c4…b5ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00a4}
0xb5ce…b5e2               Head {h00=0x0010, h01=0x0050, text=»SDISP EQU * «, t00=0x0074, t01=0x00ae}
0xb5e2…b5f8               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBSD«, t00=0x0074, t01=0x00c2}
0xb5f8…b60e               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0074, t01=0x00d8}
0xb60e…b626               Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBCW,A8 «, t00=0x0074, t01=0x00ee}
0xb626…b632               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0074, t01=0x0106}
0xb632…b642               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0074, t01=0x0112}
0xb642…b652               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0074, t01=0x0122}
0xb652…b660               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0074, t01=0x0132}
0xb660…b66a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0140}
0xb66a…b6aa               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0074, t01=0x014a}
0xb6aa…b6b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x018a}
0xb6b4…b6c8 (117, 0, 400) Head {h00=0x0010, h01=0x0050, text=»*     ATMASB«, t00=0x0075, t01=0x0004}
0xb6c8…b6d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0018}
0xb6d2…b710               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR BACKWARDS AND MASK IT «, t00=0x0075, t01=0x0022}
0xb710…b71a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0060}
0xb71a…b75a               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0075, t01=0x006a}
0xb75a…b764               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00aa}
0xb764…b78a               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x0075, t01=0x00b4}
0xb78a…b7b2               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x0075, t01=0x00da}
0xb7b2…b7e4               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     1=END OF BUFFER LEFT «, t00=0x0075, t01=0x0102}
0xb7e4…b810               Head {h00=0x0028, h01=0x0050, text=»*      2= ATTRIBUTE IN LAST POSITION«, t00=0x0075, t01=0x0134}
0xb810…b81a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0160}
0xb81a…b82e               Head {h00=0x0010, h01=0x0050, text=»ATMASB EQU *«, t00=0x0075, t01=0x016a}
0xb82e…b840               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0075, t01=0x017e}
0xb840…b854               Head {h00=0x0010, h01=0x0050, text=»ASB05 EQU * «, t00=0x0075, t01=0x0190}
0xb854…b87a               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x0076, t01=0x0014}
0xb87a…b89c               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR. «, t00=0x0076, t01=0x003a}
0xb89c…b8b4               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASB10 NO «, t00=0x0076, t01=0x005c}
0xb8b4…b8d6               Head {h00=0x001e, h01=0x0050, text=»ASB08 ST A3,ATTRIB,TCABAS «, t00=0x0076, t01=0x0074}
0xb8d6…b906               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x0076, t01=0x0096}
0xb906…b916               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0076, t01=0x00c6}
0xb916…b93a               Head {h00=0x0020, h01=0x0050, text=»ASB10 CWK A2,0 END OF BUFFER«, t00=0x0076, t01=0x00d6}
0xb93a…b952               Head {h00=0x0014, h01=0x0050, text=» RF(E) ASB20 YES«, t00=0x0076, t01=0x00fa}
0xb952…b964               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0076, t01=0x0112}
0xb964…b97a               Head {h00=0x0012, h01=0x0050, text=» RB ASB05 NEXT«, t00=0x0076, t01=0x0124}
0xb97a…b98e               Head {h00=0x0010, h01=0x0050, text=»ASB20 EQU * «, t00=0x0076, t01=0x013a}
0xb98e…b99c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x014e}
0xb99c…b9a4               Head {h00=0x0004, h01=0x0050, t00=0x0076, t01=0x015c}
0xb9a4…b9de               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0076, t01=0x0164}
0xb9de…ba06               Head {h00=0x0024, h01=0x0050, text=» LDK A1,2 ATTRIBUTE IN LAST POS.«, t00=0x0077, t01=0x000e}
0xba06…ba30               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,1919 LAST BUFFER POSITION«, t00=0x0077, t01=0x0036}
0xba30…ba54               Head {h00=0x0020, h01=0x0050, text=» CF A14,GBUFFC GET CHARACTER«, t00=0x0077, t01=0x0060}
0xba54…ba76               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE ??? «, t00=0x0077, t01=0x0084}
0xba76…ba92               Head {h00=0x0018, h01=0x0050, text=» RB(NG) ASB08 YES!!!«, t00=0x0077, t01=0x00a6}
0xba92…bab6               Head {h00=0x0020, h01=0x0050, text=» SUR A2,A2 FIRST SCREEN POS.«, t00=0x0077, t01=0x00c2}
0xbab6…baec               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0077, t01=0x00e6}
0xbaec…baf4               Head {h00=0x0004, h01=0x0050, t00=0x0077, t01=0x011c}
0xbaf4…bb16               Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 END BUFFER LEFT «, t00=0x0077, t01=0x0124}
0xbb16…bb30               Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x0077, t01=0x0146}
0xbb30…bb48               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,LBVDU+1«, t00=0x0077, t01=0x0160}
0xbb48…bb80               Head {h00=0x0034, h01=0x0050, text=» ST A7,CURATT,TCABAS POSSIBLY UNFORMATTED SCREEN«, t00=0x0077, t01=0x0178}
0xbb80…bb90               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0078, t01=0x0020}
0xbb90…bb9e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x0030}
0xbb9e…bba8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x003e}
0xbba8…bbe8               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0078, t01=0x0048}
0xbbe8…bbf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0088}
0xbbf2…bc06               Head {h00=0x0010, h01=0x0050, text=»*     ATMASF«, t00=0x0078, t01=0x0092}
0xbc06…bc10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00a6}
0xbc10…bc4e               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR. FORWARDS AND MASK IT «, t00=0x0078, t01=0x00b0}
0xbc4e…bc58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00ee}
0xbc58…bc9a               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0078, t01=0x00f8}
0xbc9a…bca4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x013a}
0xbca4…bcba               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x0078, t01=0x0144}
0xbcba…bce0               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x0078, t01=0x015a}
0xbce0…bd08               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x0078, t01=0x0180}
0xbd08…bd3a               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     2=END OF BUFFER RIGHT«, t00=0x0079, t01=0x0018}
0xbd3a…bd60               Head {h00=0x0022, h01=0x0050, text=»*   A3=ATTRIB IN LAST BUFF POS«, t00=0x0079, t01=0x004a}
0xbd60…bd6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0070}
0xbd6a…bd72               Head {h00=0x0004, h01=0x0050, t00=0x0079, t01=0x007a}
0xbd72…bd7a               Head {h00=0x0004, h01=0x0050, t00=0x0079, t01=0x0082}
0xbd7a…bd8e               Head {h00=0x0010, h01=0x0050, text=»S:ATT EQU * «, t00=0x0079, t01=0x008a}
0xbd8e…bdaa               Head {h00=0x0018, h01=0x0050, text=» LD A7,ATTRIB,TCABAS«, t00=0x0079, t01=0x009e}
0xbdaa…bdc6               Head {h00=0x0018, h01=0x0050, text=» LD A8,CURATT,TCABAS«, t00=0x0079, t01=0x00ba}
0xbdc6…bdf6               Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x0079, t01=0x00d6}
0xbdf6…be12               Head {h00=0x0018, h01=0x0050, text=» ST A7,ATTRIB,TCABAS«, t00=0x0079, t01=0x0106}
0xbe12…be2e               Head {h00=0x0018, h01=0x0050, text=» ST A8,CURATT,TCABAS«, t00=0x0079, t01=0x0122}
0xbe2e…be3e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0079, t01=0x013e}
0xbe3e…be46               Head {h00=0x0004, h01=0x0050, t00=0x0079, t01=0x014e}
0xbe46…be5a               Head {h00=0x0010, h01=0x0050, text=»ATMASF EQU *«, t00=0x0079, t01=0x0156}
0xbe5a…be6c               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0079, t01=0x016a}
0xbe6c…be80               Head {h00=0x0010, h01=0x0050, text=»ASF05 EQU * «, t00=0x0079, t01=0x017c}
0xbe80…bea6               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x0079, t01=0x0190}
0xbea6…bec6               Head {h00=0x001c, h01=0x0050, text=» CWK A3,/1F ATTRIB CHAR?«, t00=0x007a, t01=0x0026}
0xbec6…bede               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASF10 NO «, t00=0x007a, t01=0x0046}
0xbede…bf22               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007a, t01=0x005e}
0xbf22…bf52               Head {h00=0x002c, h01=0x0050, text=» CWK A2,LBVDU-1 EOB +ATTRIB IN LAST POS «, t00=0x007a, t01=0x00a2}
0xbf52…bf96               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007a, t01=0x00d2}
0xbf96…bfae               Head {h00=0x0014, h01=0x0050, text=» RF(NE) ASF08 NO«, t00=0x007a, t01=0x0116}
0xbfae…bfc0               Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x007a, t01=0x012e}
0xbfc0…bfe2               Head {h00=0x001e, h01=0x0050, text=»ASF08 ST A3,ATTRIB,TCABAS «, t00=0x007a, t01=0x0140}
0xbfe2…c012               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x007a, t01=0x0162}
0xc012…c022 (123, 0, 398) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007b, t01=0x0004}
0xc022…c04e               Head {h00=0x0028, h01=0x0050, text=»ASF10 CWK A2,LBVDU-1 END OF BUFFER? «, t00=0x007b, t01=0x0014}
0xc04e…c066               Head {h00=0x0014, h01=0x0050, text=» RF(L) ASF20 NO «, t00=0x007b, t01=0x0040}
0xc066…c078               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x007b, t01=0x0058}
0xc078…c088               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007b, t01=0x006a}
0xc088…c09e               Head {h00=0x0012, h01=0x0050, text=»ASF20 ADK A2,1«, t00=0x007b, t01=0x007a}
0xc09e…c0b0               Head {h00=0x000e, h01=0x0050, text=» RB ASF05 «, t00=0x007b, t01=0x0090}
0xc0b0…c0be               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007b, t01=0x00a2}
0xc0be…c0c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00b0}
0xc0c8…c102               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x007b, t01=0x00ba}
0xc102…c10c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00f4}
0xc10c…c11c               Head {h00=0x000c, h01=0x0050, text=»* GBUFFC«, t00=0x007b, t01=0x00fe}
0xc11c…c126               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x010e}
0xc126…c160               Head {h00=0x0036, h01=0x0050, text=»* GET VDU BUFFER CHAR WHICH IS INDICATED BY CURSOR«, t00=0x007b, t01=0x0118}
0xc160…c16a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0152}
0xc16a…c1a4               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x007b, t01=0x015c}
0xc1a4…c1ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0008}
0xc1ae…c1ce               Head {h00=0x001c, h01=0x0050, text=»* A2=CURSOR BINARY ADDR «, t00=0x007c, t01=0x0012}
0xc1ce…c1e4               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x007c, t01=0x0032}
0xc1e4…c1ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0048}
0xc1ee…c1f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0052}
0xc1f8…c20c               Head {h00=0x0010, h01=0x0050, text=»GBUFFC EQU *«, t00=0x007c, t01=0x005c}
0xc20c…c21e               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x007c, t01=0x0070}
0xc21e…c234               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x007c, t01=0x0082}
0xc234…c25a               Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS GET VDU BUFFER «, t00=0x007c, t01=0x0098}
0xc25a…c26c               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A2«, t00=0x007c, t01=0x00be}
0xc26c…c296               Head {h00=0x0026, h01=0x0050, text=» LCR A3,A4 GET CHARACTER IN BUFF. «, t00=0x007c, t01=0x00d0}
0xc296…c2a6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007c, t01=0x00fa}
0xc2a6…c2b4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007c, t01=0x010a}
0xc2b4…c2be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0118}
0xc2be…c302               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007c, t01=0x0122}
0xc302…c30c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0166}
0xc30c…c31c               Head {h00=0x000c, h01=0x0050, text=»* RESET «, t00=0x007c, t01=0x0170}
0xc31c…c326               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0180}
0xc326…c362               Head {h00=0x0038, h01=0x0050, text=»* RESET 'KEYBOARD INHIBIT' IN FOLLOWING SITUATIONS: «, t00=0x007c, t01=0x018a}
0xc362…c39e               Head {h00=0x0038, h01=0x0050, text=»* 1- A DEVICE WITH AN ATTACHED KEYBOARD IS EXECUTING«, t00=0x007d, t01=0x0036}
0xc39e…c3c6               Head {h00=0x0024, h01=0x0050, text=»*  A COMMAND. BIT 14=1 IN KBINH «, t00=0x007d, t01=0x0072}
0xc3c6…c3fc               Head {h00=0x0032, h01=0x0050, text=»* 2- A PA-KEY OPERATION IS IN PROCESS PRIOR TO«, t00=0x007d, t01=0x009a}
0xc3fc…c43c               Head {h00=0x003c, h01=0x0050, text=»*  INITIATION OF A COMMAND FOR A DEVICE WITH AN ATTACHED«, t00=0x007d, t01=0x00d0}
0xc43c…c462               Head {h00=0x0022, h01=0x0050, text=»*  KEYBOARD. BIT 14=1 IN KBINH«, t00=0x007d, t01=0x0110}
0xc462…c490               Head {h00=0x002a, h01=0x0050, text=»* 3- ERRORSITUATION. BIT 14=1 IN KBINH«, t00=0x007d, t01=0x0136}
0xc490…c49a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0164}
0xc49a…c4d8               Head {h00=0x003a, h01=0x0050, text=»* IF BIT 15=1 IN KBINH => NO RESETTING ALLOWED DURING «, t00=0x007d, t01=0x016e}
0xc4d8…c500               Head {h00=0x0024, h01=0x0050, text=»* UPDATE AND DISPLAY SITUATION. «, t00=0x007e, t01=0x001c}
0xc500…c50a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0044}
0xc50a…c54e               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x007e, t01=0x004e}
0xc54e…c558               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0092}
0xc558…c56c               Head {h00=0x0010, h01=0x0050, text=»RESET EQU * «, t00=0x007e, t01=0x009c}
0xc56c…c596               Head {h00=0x0026, h01=0x0050, text=» CM MODE,TCABAS RESET INSERT MODE «, t00=0x007e, t01=0x00b0}
0xc596…c5c4               Head {h00=0x002a, h01=0x0050, text=» CF A14,LIOLOF TURN OFF "INSERT" LAMP «, t00=0x007e, t01=0x00da}
0xc5c4…c5ee               Head {h00=0x0026, h01=0x0050, text=» CM KBINH,TCABAS RESSTORE KEYBOARD«, t00=0x007e, t01=0x0108}
0xc5ee…c61a               Head {h00=0x0028, h01=0x0050, text=» CF A14,LERROF TURN OFF 'ERROR' LAMP«, t00=0x007e, t01=0x0132}
0xc61a…c652               Head {h00=0x0034, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT' LAMP «, t00=0x007e, t01=0x015e}
0xc652…c662               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007f, t01=0x0008}
0xc662…c670               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007f, t01=0x0018}
0xc670…c678               Head {h00=0x0004, h01=0x0050, t00=0x007f, t01=0x0026}
0xc678…c680               Head {h00=0x0004, h01=0x0050, t00=0x007f, t01=0x002e}
0xc680…c6c8               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x007f, t01=0x0036}
0xc6c8…c6d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x007e}
0xc6d2…c70a               Head {h00=0x0034, h01=0x0050, text=»*   C O P Y  :   COPY CONTENTS IN VDU BUFFER ON «, t00=0x007f, t01=0x0088}
0xc70a…c732               Head {h00=0x0024, h01=0x0050, text=»*                HARDCOPY DEVICE«, t00=0x007f, t01=0x00c0}
0xc732…c73c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x00e8}
0xc73c…c780               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007f, t01=0x00f2}
0xc780…c788               Head {h00=0x0004, h01=0x0050, t00=0x007f, t01=0x0136}
0xc788…c79a               Head {h00=0x000e, h01=0x0050, text=»COPY EQU *«, t00=0x007f, t01=0x013e}
0xc79a…c7b6               Head {h00=0x0018, h01=0x0050, text=» LD A5,COPNO,TCABAS «, t00=0x007f, t01=0x0150}
0xc7b6…c7cc               Head {h00=0x0012, h01=0x0050, text=» ABL(Z) ERROR «, t00=0x007f, t01=0x016c}
0xc7cc…c7e8               Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x007f, t01=0x0182}
0xc7e8…c80a               Head {h00=0x001e, h01=0x0050, text=» ADR A3,TCABAS   ADDRESSS «, t00=0x0080, t01=0x000e}
0xc80a…c82c               Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x0080, t01=0x0030}
0xc82c…c85c               Head {h00=0x002c, h01=0x0050, text=» LDK A4,/8B ORDER = WRITE ADDRESSED WAIT«, t00=0x0080, t01=0x0052}
0xc85c…c86a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0080, t01=0x0082}
0xc86a…c874               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0090}
0xc874…c89c               Head {h00=0x0024, h01=0x0050, text=»* WRITE INTERTASK COMMUNICATION «, t00=0x0080, t01=0x009a}
0xc89c…c8a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00c2}
0xc8a6…c8c4               Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0080, t01=0x00cc}
0xc8c4…c8d8               Head {h00=0x0010, h01=0x0050, text=»* A4 = ORDER«, t00=0x0080, t01=0x00ea}
0xc8d8…c8f0               Head {h00=0x0014, h01=0x0050, text=»* A5 = "TO-TID" «, t00=0x0080, t01=0x00fe}
0xc8f0…c90a               Head {h00=0x0016, h01=0x0050, text=»* A6 = REQ LENGTH «, t00=0x0080, t01=0x0116}
0xc90a…c914               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0130}
0xc914…c928               Head {h00=0x0010, h01=0x0050, text=»ICWRTE EQU *«, t00=0x0080, t01=0x013a}
0xc928…c940               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x0080, t01=0x014e}
0xc940…c956               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0080, t01=0x0166}
0xc956…c96a               Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0080, t01=0x017c}
0xc96a…c998               Head {h00=0x002a, h01=0x0050, text=» CF A14,REQTIM NO TIME OUT SUPERVISION«, t00=0x0080, t01=0x0190}
0xc998…c9ba               Head {h00=0x001e, h01=0x0050, text=» ST A5,ECBCW,A8 TO TASK ID«, t00=0x0081, t01=0x002e}
0xc9ba…c9dc               Head {h00=0x001e, h01=0x0050, text=» ST A6,ECBRL,A8 REQ LENGTH«, t00=0x0081, t01=0x0050}
0xc9dc…c9f4               Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0081, t01=0x0072}
0xc9f4…ca0c               Head {h00=0x0014, h01=0x0050, text=» LDR A7,A4 ORDER«, t00=0x0081, t01=0x008a}
0xca0c…ca18               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0081, t01=0x00a2}
0xca18…ca28               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0081, t01=0x00ae}
0xca28…ca38               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x00be}
0xca38…ca44               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0081, t01=0x00ce}
0xca44…ca48               Head {h00=0x4004, h01=0x0000}
0xca48…ca4c               00 81 00 da                                                                                                                                                                                                                                       ┆    ┆
0xca4c…ca54 (130, 1, 8)   20 04 00 00 00 82 00 04                                                                                                                                                                                                                           ┆        ┆
0xca54…caa4 (131, 0, 400) 53 54 20 4f 4e 20 00 6a 01 70 00 06 00 50 2a 20 00 6b 00 0e 00 06 00 50 2a 20 00 6b 00 18 00 0e 00 50 50 4f 4c 4c 5c 45 51 55 5c 2a 00 6b 00 22 00 14 00 50 5c 4c 44 5c 41 38 2c 44 57 54 45 43 42 2c 41 37 00 6b 00 34 00 18 00 50 5c 53 54 5c   ┆ST ON  j p   P*  k     P*  k     PPOLL EQU * k "   P LD A8,DWTECB,A7 k 4   P ST ┆
0xcaa4…caf4               41 38 2c 44 57 54 53 41 56 2b 31 30 2c 41 36 20 00 6b 00 4c 00 18 00 50 5c 53 54 5c 41 38 2c 44 57 54 53 41 56 2b 31 30 2c 41 37 20 00 6b 00 68 00 10 00 50 5c 43 4d 5c 45 43 42 52 43 2c 41 38 00 6b 00 84 00 10 00 50 5c 43 4d 5c 45 43 42 45   ┆A8,DWTSAV+10,A6  k L   P ST A8,DWTSAV+10,A7  k h   P CM ECBRC,A8 k     P CM ECBE┆
0xcaf4…cb44               4c 2c 41 38 00 6b 00 98 00 0e 00 50 5c 41 4e 4b 5c 41 31 2c 32 20 00 6b 00 ac 00 12 00 50 5c 52 46 28 5a 29 5c 50 4f 4c 31 30 30 20 00 6b 00 be 00 22 00 50 5c 4c 44 4b 4c 5c 41 31 2c 50 4f 4c 48 4c 54 5c 52 43 3a 50 4f 4c 4c 20 48 41 4c 54   ┆L,A8 k     P ANK A1,2  k     P RF(Z) POL100  k   " P LDKL A1,POLHLT RC:POLL HALT┆
0xcb44…cb94               45 44 00 6b 00 d4 00 0e 00 50 5c 52 46 5c 50 4f 4c 32 32 35 00 6b 00 fa 00 10 00 50 50 4f 4c 31 30 30 5c 45 51 55 5c 2a 00 6b 01 0c 00 12 00 50 5c 4c 44 5c 41 31 2c 50 41 43 54 2c 41 36 00 6b 01 20 00 28 00 50 5c 52 46 28 5a 29 5c 50 4f 4c   ┆ED k     P RF POL225 k     PPOL100 EQU * k     P LD A1,PACT,A6 k   ( P RF(Z) POL┆
0xcb94…cbe4               31 33 30 5c 4e 4f 20 41 43 54 49 56 45 20 54 43 41 20 50 52 45 53 45 4e 54 20 00 6b 01 36 00 10 00 50 50 4f 4c 31 31 30 5c 45 51 55 5c 2a 00 6b 01 62 00 0e 00 50 5c 41 44 4b 5c 41 31 2c 34 20 00 6b 01 76 00 1c 00 50 5c 4c 44 52 2a 5c 41 33   ┆130 NO ACTIVE TCA PRESENT  k 6   PPOL110 EQU * k b   P ADK A1,4  k v   P LDR* A3┆
0xcbe4…cc34 (132, 0, 400) 2c 41 31 5c 47 45 54 20 4e 45 58 54 20 54 43 41 00 6b 01 88 00 1e 00 50 5c 52 42 28 5a 29 5c 50 4f 4c 31 31 30 5c 45 4d 50 54 59 20 50 4c 41 43 45 20 00 6c 00 18 00 22 00 50 5c 52 46 28 4e 4e 29 5c 50 4f 4c 31 35 30 5c 41 43 54 49 56 45 20   ┆,A1 GET NEXT TCA k     P RB(Z) POL110 EMPTY PLACE  l   " P RF(NN) POL150 ACTIVE ┆
0xcc34…cc84               54 43 20 46 4f 55 4e 44 00 6c 00 3a 00 0e 00 50 5c 41 44 4b 5c 41 33 2c 31 20 00 6c 00 60 00 20 00 50 5c 52 42 28 4e 5a 29 5c 50 4f 4c 31 31 30 5c 49 4e 41 43 54 49 56 45 20 54 43 41 20 00 6c 00 72 00 20 00 50 5c 4c 44 4b 5c 41 31 2c 50 4c   ┆TC FOUND l :   P ADK A3,1  l `   P RB(NZ) POL110 INACTIVE TCA  l r   P LDK A1,PL┆
0xcc84…ccd4               49 53 54 5c 45 4e 44 20 4f 46 20 50 4f 4c 4c 49 53 54 00 6c 00 96 00 0e 00 50 5c 41 44 52 5c 41 31 2c 41 36 00 6c 00 ba 00 10 00 50 50 4f 4c 31 32 30 5c 45 51 55 5c 2a 00 6c 00 cc 00 1e 00 50 5c 53 54 5c 41 31 2c 50 41 43 54 2c 41 36 5c 55   ┆IST END OF POLLIST l     P ADR A1,A6 l     PPOL120 EQU * l     P ST A1,PACT,A6 U┆
0xccd4…cd24               50 44 41 54 45 20 50 41 43 54 00 6c 00 e0 00 10 00 50 50 4f 4c 31 33 30 5c 45 51 55 5c 2a 00 6c 01 02 00 14 00 50 5c 4c 44 5c 41 31 2c 50 49 4e 41 43 54 2c 41 36 00 6c 01 16 00 28 00 50 5c 41 42 4c 28 5a 29 5c 42 4d 4d 31 30 5c 4e 4f 20 41   ┆PDATE PACT l     PPOL130 EQU * l     P LD A1,PINACT,A6 l   ( P ABL(Z) BMM10 NO A┆
0xcd24…cd74               43 54 49 56 45 20 54 43 20 50 52 45 53 45 4e 54 53 20 00 6c 01 2e 00 10 00 50 50 4f 4c 31 33 32 5c 45 51 55 5c 2a 00 6c 01 5a 00 26 00 50 5c 41 44 4b 5c 41 31 2c 34 5c 4e 45 58 54 20 50 4f 53 49 54 49 4f 4e 20 49 4e 20 50 4f 4c 4c 49 53 54   ┆CTIVE TC PRESENTS  l .   PPOL132 EQU * l Z & P ADK A1,4 NEXT POSITION IN POLLIST┆

Reduced view