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

⟦0592a564e⟧ 

    Length: 55600 (0xd930)
    Notes: pts_type(SC)
    Names: »STARTX.SC«

Derivation

└─⟦f445cacdf⟧ Bits:30009666 Philips computer tape "600111"
    └─⟦this⟧ »NJ-AMT/STARTX.SC«

PTS(SC)

	IDENT START   	2.1DK 5 79-10-20 870150540210 

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




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


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

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

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

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

	IFT	OFLIN=1


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

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


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

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

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

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


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


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


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

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


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

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

S:NULL	EQU	*
	LDR	A1,A6

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

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

	IFT	PAX=1

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

	XIF
	EJECT

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

	IFT	PFX=1

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

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


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

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

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

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

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

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

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

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

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

* 
*   TURN ON SOUND ALARM 
* 

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

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

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

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

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

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


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

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


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

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

HexDump

0x0000…0036 (0, 0, 400)   Head {h00=0x0032, h01=0x0050, text=» IDENT START    2.1DK 5 79-10-20 870150540210 «, t00=0x0000, t01=0x0004}
0x0036…003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0060               Head {h00=0x001e, h01=0x0050, text=»   =1, ODD BUFFER ADDRESS «, t00=0x0000, t01=0x0042}
0x0060…007c               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0064}
0x007c…0096               Head {h00=0x0016, h01=0x0050, text=»   =2, 6234 LAMPS «, t00=0x0000, t01=0x0080}
0x0096…00b2               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x009a}
0x00b2…00d0               Head {h00=0x001a, h01=0x0050, text=»   =3, UNDEFINED LABEL«, t00=0x0000, t01=0x00b6}
0x00d0…00ec               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x00d4}
0x00ec…011e               Head {h00=0x002e, h01=0x0050, text=»   =4, CURSOR STOPS AT LAST POS. EACH LINE«, t00=0x0000, t01=0x00f0}
0x011e…013a               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0122}
0x013a…015e               Head {h00=0x0020, h01=0x0050, text=»   =5, RESET KEY FOR KB6235 «, t00=0x0000, t01=0x013e}
0x015e…017a               Head {h00=0x0018, h01=0x0050, text=»   REL 2.1 79-05-23 «, t00=0x0000, t01=0x0162}
0x017a…01a4               Head {h00=0x0026, h01=0x0050, text=»   DK5 - LMPVDU=1, 6272 ON VDU DK5«, t00=0x0000, t01=0x017e}
0x01a4…01ce               Head {h00=0x0026, h01=0x0050, text=»   DK4 - FIELD SEPARATOR 6234 DK4 «, t00=0x0001, t01=0x0018}
0x01ce…01ea               Head {h00=0x0018, h01=0x0050, text=»   DK3 - PA 4-9 DK3 «, t00=0x0001, t01=0x0042}
0x01ea…0210               Head {h00=0x0022, h01=0x0050, text=»   DK2 - LAMPMODULE, 6272 DK2 «, t00=0x0001, t01=0x005e}
0x0210…022e               Head {h00=0x001a, h01=0x0050, text=»   DK1 - NUM COMMA DK1«, t00=0x0001, t01=0x0084}
0x022e…0274               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0001, t01=0x00a2}
0x0274…027e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e8}
0x027e…02ca               Head {h00=0x0048, h01=0x0050, text=»*   S T A R T  :  MODULE HANDLING KEYBOARD INPUT.KEYBOARD INITIATED «, t00=0x0001, t01=0x00f2}
0x02ca…0316               Head {h00=0x0048, h01=0x0050, text=»*                 MESSAGES ADDRESSED TO THE MAIN FRAME ARE COMPOSED «, t00=0x0001, t01=0x013e}
0x0316…035c               Head {h00=0x0042, h01=0x0050, text=»*                 AND SENT BY USING ROUTINES IN MODULE VDUPRT.«, t00=0x0001, t01=0x018a}
0x035c…0366               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0040}
0x0366…03b8               Head {h00=0x004e, h01=0x0050, text=»**************************************************************************«, t00=0x0002, t01=0x004a}
0x03b8…03c0               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x009c}
0x03c0…03c8               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00a4}
0x03c8…03d0               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00ac}
0x03d0…03d8               Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00b4}
0x03d8…03e6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00bc}
0x03e6…03f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ca}
0x03f0…03fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d4}
0x03fa…0414               Head {h00=0x0016, h01=0x0050, text=»* ENTRY PARAMETERS«, t00=0x0002, t01=0x00de}
0x0414…041e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f8}
0x041e…0428               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0102}
0x0428…0432               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010c}
0x0432…0456               Head {h00=0x0020, h01=0x0050, text=» ENTRY LINHON,LINHOF,ATMASB «, t00=0x0002, t01=0x0116}
0x0456…0472               Head {h00=0x0018, h01=0x0050, text=» ENTRY LSAVOF,LSAVON«, t00=0x0002, t01=0x013a}
0x0472…0486               Head {h00=0x0010, h01=0x0050, text=» ENTRY EMULA«, t00=0x0002, t01=0x0156}
0x0486…04b0               Head {h00=0x0026, h01=0x0050, text=» ENTRY LIOLON TURN ON OFFLINE LAMP«, t00=0x0002, t01=0x016a}
0x04b0…04dc (3, 0, 400)   Head {h00=0x0028, h01=0x0050, text=» ENTRY LIOLOF TURN OFF OFFLINE LAMP «, t00=0x0003, t01=0x0004}
0x04dc…0500               Head {h00=0x0020, h01=0x0050, text=» ENTRY VDUKB KB3270 (CREDIT)«, t00=0x0003, t01=0x0030}
0x0500…0516               Head {h00=0x0012, h01=0x0050, text=» ENTRY DCTASK «, t00=0x0003, t01=0x0054}
0x0516…052c               Head {h00=0x0012, h01=0x0050, text=» ENTRY DC1INQ «, t00=0x0003, t01=0x006a}
0x052c…0542               Head {h00=0x0012, h01=0x0050, text=» ENTRY DC2INQ «, t00=0x0003, t01=0x0080}
0x0542…056a               Head {h00=0x0024, h01=0x0050, text=» ENTRY REQTIM SET REQUEST TIMER «, t00=0x0003, t01=0x0096}
0x056a…0580               Head {h00=0x0012, h01=0x0050, text=» ENTRY ICWRTE «, t00=0x0003, t01=0x00be}
0x0580…058a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d4}
0x058a…0594               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00de}
0x0594…059e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e8}
0x059e…05c0               Head {h00=0x001e, h01=0x0050, text=»*     EXTERNAL REFERENSES «, t00=0x0003, t01=0x00f2}
0x05c0…05ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0114}
0x05ca…05d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x011e}
0x05d4…05de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0128}
0x05de…05f2               Head {h00=0x0010, h01=0x0050, text=» EXTRN DCINP«, t00=0x0003, t01=0x0132}
0x05f2…0608               Head {h00=0x0012, h01=0x0050, text=» EXTRN DCGETM «, t00=0x0003, t01=0x0146}
0x0608…061e               Head {h00=0x0012, h01=0x0050, text=» EXTRN ICREAD «, t00=0x0003, t01=0x015c}
0x061e…0634               Head {h00=0x0012, h01=0x0050, text=» EXTRN GTRBUF «, t00=0x0003, t01=0x0172}
0x0634…064a               Head {h00=0x0012, h01=0x0050, text=» EXTRN RLRBUF «, t00=0x0003, t01=0x0188}
0x064a…0666               Head {h00=0x0018, h01=0x0050, text=» EXTRN ERASE VDUPRT «, t00=0x0004, t01=0x000e}
0x0666…067a               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPF «, t00=0x0004, t01=0x002a}
0x067a…0690               Head {h00=0x0012, h01=0x0050, text=» EXTRN SETCUR «, t00=0x0004, t01=0x003e}
0x0690…06a4               Head {h00=0x0010, h01=0x0050, text=» EXTRN WCHAR«, t00=0x0004, t01=0x0054}
0x06a4…06b8               Head {h00=0x0010, h01=0x0050, text=» EXTRN TRPA «, t00=0x0004, t01=0x0068}
0x06b8…06ce               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUA «, t00=0x0004, t01=0x007c}
0x06ce…06e2               Head {h00=0x0010, h01=0x0050, text=» EXTRN DISPL«, t00=0x0004, t01=0x0092}
0x06e2…06f8               Head {h00=0x0012, h01=0x0050, text=» EXTRN ERASUP «, t00=0x0004, t01=0x00a6}
0x06f8…0702               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00bc}
0x0702…0736               Head {h00=0x0030, h01=0x0050, text=» EXTRN KEYCNV KEY CONVERSION IF NOT PTS 6272«, t00=0x0004, t01=0x00c6}
0x0736…074c               Head {h00=0x0012, h01=0x0050, text=» EXTRN TASCII «, t00=0x0004, t01=0x00fa}
0x074c…0756               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0110}
0x0756…0786               Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0004, t01=0x011a}
0x0786…07b0               Head {h00=0x0026, h01=0x0050, text=» EXTRN I:RT1 RETURN TO CREDIT CODE«, t00=0x0004, t01=0x014a}
0x07b0…07be               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0174}
0x07be…07c6               Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0182}
0x07c6…07ce               Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x018a}
0x07ce…0810 (5, 0, 400)   Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0005, t01=0x0004}
0x0810…081a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0046}
0x081a…083a               Head {h00=0x001c, h01=0x0050, text=»*   CONDITIONAL ASSEMBLY«, t00=0x0005, t01=0x0050}
0x083a…0844               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0070}
0x0844…086e               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0005, t01=0x007a}
0x086e…0876               Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00a4}
0x0876…0880               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ac}
0x0880…08ca               Head {h00=0x0046, h01=0x0050, text=»KB6272 EQU 1 IF PTS 6272 (6236) IS NOT USED YOU MUST USE 'KEYCNV' «, t00=0x0005, t01=0x00b6}
0x08ca…08fe               Head {h00=0x0030, h01=0x0050, text=»   USE THE KEY CONVERSION TABLE IN 'TB3270' «, t00=0x0005, t01=0x0100}
0x08fe…0932               Head {h00=0x0030, h01=0x0050, text=»KEYLST EQU 0 KEY LOCK STATUS SAVED IN 'KEYS'«, t00=0x0005, t01=0x0134}
0x0932…0946               Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 1 «, t00=0x0005, t01=0x0168}
0x0946…0978               Head {h00=0x002e, h01=0x0050, text=»DCLIN EQU 1 NUMBER OF MAIN FRAMES (1 OR 2)«, t00=0x0005, t01=0x017c}
0x0978…098a               Head {h00=0x000e, h01=0x0050, text=»PFX EQU 1 «, t00=0x0006, t01=0x001e}
0x098a…099c               Head {h00=0x000e, h01=0x0050, text=»PAX EQU 1 «, t00=0x0006, t01=0x0030}
0x099c…09c8               Head {h00=0x0028, h01=0x0050, text=»IN:DL EQU 1 INSERT&DELETE FUNCTIONS «, t00=0x0006, t01=0x0042}
0x09c8…0a04               Head {h00=0x0038, h01=0x0050, text=»COPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 «, t00=0x0006, t01=0x006e}
0x0a04…0a28               Head {h00=0x0020, h01=0x0050, text=»COPL EQU 1 COPY LOCK IF := 1«, t00=0x0006, t01=0x00aa}
0x0a28…0a52               Head {h00=0x0026, h01=0x0050, text=»LMPVDU EQU 0 =1, 6272 ON 6346 DK5 «, t00=0x0006, t01=0x00ce}
0x0a52…0a76               Head {h00=0x0020, h01=0x0050, text=»   =0, 6272 ON SELECTOR DK5 «, t00=0x0006, t01=0x00f8}
0x0a76…0a9e               Head {h00=0x0024, h01=0x0050, text=»PA49 EQU 1 =1, PA4-9 ALLOWED DK3«, t00=0x0006, t01=0x011c}
0x0a9e…0aac               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0144}
0x0aac…0ab6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0152}
0x0ab6…0ac0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x015c}
0x0ac0…0ad6               Head {h00=0x0012, h01=0x0050, text=»*     EQUATES «, t00=0x0006, t01=0x0166}
0x0ad6…0ae0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x017c}
0x0ae0…0afe               Head {h00=0x001a, h01=0x0050, text=»RSET EQU /B2 RESET KEY«, t00=0x0006, t01=0x0186}
0x0afe…0b24               Head {h00=0x0022, h01=0x0050, text=»* COMMON EQU FOR ECB HANDLING «, t00=0x0007, t01=0x0014}
0x0b24…0b2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x003a}
0x0b2e…0b36               Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0044}
0x0b36…0b4a               Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0007, t01=0x004c}
0x0b4a…0b5e               Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0007, t01=0x0060}
0x0b5e…0b72               Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0007, t01=0x0074}
0x0b72…0b86               Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0007, t01=0x0088}
0x0b86…0b9a               Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0007, t01=0x009c}
0x0b9a…0ba4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b0}
0x0ba4…0bae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ba}
0x0bae…0bc8               Head {h00=0x0016, h01=0x0050, text=»* CREDIT USED EQU «, t00=0x0007, t01=0x00c4}
0x0bc8…0bd2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00de}
0x0bd2…0bdc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e8}
0x0bdc…0bf8               Head {h00=0x0018, h01=0x0050, text=»* ECB REL. ADDRESSES«, t00=0x0007, t01=0x00f2}
0x0bf8…0c02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x010e}
0x0c02…0c0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0118}
0x0c0c…0c1e               Head {h00=0x000e, h01=0x0050, text=»DIS EQU 20«, t00=0x0007, t01=0x0122}
0x0c1e…0c28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0134}
0x0c28…0c42               Head {h00=0x0016, h01=0x0050, text=»ECBDC EQU -DIS-14 «, t00=0x0007, t01=0x013e}
0x0c42…0c56               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0007, t01=0x0158}
0x0c56…0c6c               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0007, t01=0x016c}
0x0c6c…0c88               Head {h00=0x0018, h01=0x0050, text=»ECBDC2 EQU ECBDC-DIS«, t00=0x0007, t01=0x0182}
0x0c88…0ca6               Head {h00=0x001a, h01=0x0050, text=»ECBICR EQU ECBDC2-DIS «, t00=0x0008, t01=0x000e}
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=» IFT 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=»ECBDC2 EQU ECBDC-DIS«, t00=0x0008, t01=0x0080}
0x0d16…0d34               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBDC2-DIS «, t00=0x0008, t01=0x009c}
0x0d34…0d40               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x00ba}
0x0d40…0d54               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x00c6}
0x0d54…0d6a               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0008, t01=0x00da}
0x0d6a…0d86               Head {h00=0x0018, h01=0x0050, text=»ECBICR EQU ECBDC-DIS«, t00=0x0008, t01=0x00f0}
0x0d86…0da4               Head {h00=0x001a, h01=0x0050, text=»ECBICW EQU ECBICR-DIS «, t00=0x0008, t01=0x010c}
0x0da4…0db0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x012a}
0x0db0…0dc4               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0008, t01=0x0136}
0x0dc4…0dda               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0008, t01=0x014a}
0x0dda…0df6               Head {h00=0x0018, h01=0x0050, text=»ECBICW EQU ECBDC-DIS«, t00=0x0008, t01=0x0160}
0x0df6…0e02               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x017c}
0x0e02…0e20               Head {h00=0x001a, h01=0x0050, text=»ECBVDU EQU ECBICW-DIS «, t00=0x0008, t01=0x0188}
0x0e20…0e3c               Head {h00=0x0018, h01=0x0050, text=»ECBKB EQU ECBVDU-DIS«, t00=0x0009, t01=0x0016}
0x0e3c…0e58               Head {h00=0x0018, h01=0x0050, text=»ECBSD EQU ECBKB-DIS «, t00=0x0009, t01=0x0032}
0x0e58…0e66               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x004e}
0x0e66…0e70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x005c}
0x0e70…0e7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0066}
0x0e7a…0ea0               Head {h00=0x0022, h01=0x0050, text=»* BASE ADDRESS FOR TCA AND ECB«, t00=0x0009, t01=0x0070}
0x0ea0…0eaa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0096}
0x0eaa…0ec0               Head {h00=0x0012, h01=0x0050, text=»TCABAS EQU A11«, t00=0x0009, t01=0x00a0}
0x0ec0…0eda               Head {h00=0x0016, h01=0x0050, text=»CREBAS EQU A13 ECB«, t00=0x0009, t01=0x00b6}
0x0eda…0ee4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d0}
0x0ee4…0eee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00da}
0x0eee…0f0a               Head {h00=0x0018, h01=0x0050, text=»* TCA REL. ADDRESSES«, t00=0x0009, t01=0x00e4}
0x0f0a…0f14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0100}
0x0f14…0f28               Head {h00=0x0010, h01=0x0050, text=»TCT01 EQU 0 «, t00=0x0009, t01=0x010a}
0x0f28…0f44               Head {h00=0x0018, h01=0x0050, text=»PRINTER EQU TCT01+2 «, t00=0x0009, t01=0x011e}
0x0f44…0f70               Head {h00=0x0028, h01=0x0050, text=»BVDU EQU PRINTER+2 VDU SCREEN BUFFER«, t00=0x0009, t01=0x013a}
0x0f70…0fa4               Head {h00=0x0030, h01=0x0050, text=»PCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY «, t00=0x0009, t01=0x0166}
0x0fa4…0fd2               Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x000a, t01=0x000a}
0x0fd2…0fee               Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x000a, t01=0x0038}
0x0fee…1018               Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x000a, t01=0x0054}
0x1018…104a               Head {h00=0x002e, h01=0x0050, text=»KBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR«, t00=0x000a, t01=0x007e}
0x104a…1072               Head {h00=0x0024, h01=0x0050, text=»LINCNT EQU KBINH+2 LINE COUNTER «, t00=0x000a, t01=0x00b0}
0x1072…10a6               Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH«, t00=0x000a, t01=0x00d8}
0x10a6…10dc               Head {h00=0x0032, h01=0x0050, text=»ICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM «, t00=0x000a, t01=0x010c}
0x10dc…110c               Head {h00=0x002c, h01=0x0050, text=»INTATT EQU ICWORK+2 INTENSITY ATTRIBUTE «, t00=0x000a, t01=0x0142}
0x110c…1134               Head {h00=0x0024, h01=0x0050, text=»OFFFLG EQU INTATT+2 OFFLINE FLAG«, t00=0x000a, t01=0x0172}
0x1134…1160               Head {h00=0x0028, h01=0x0050, text=»COPNO EQU OFFFLG+2 HARDCOPY TASK ID «, t00=0x000b, t01=0x000a}
0x1160…118e               Head {h00=0x002a, h01=0x0050, text=»CCC EQU COPNO+2 COPY COMMAND CHARACTER«, t00=0x000b, t01=0x0036}
0x118e…11b0               Head {h00=0x001e, h01=0x0050, text=»MAIN EQU CCC+2 MAIN FRAME «, t00=0x000b, t01=0x0064}
0x11b0…11da               Head {h00=0x0026, h01=0x0050, text=»MODE EQU MAIN+2 INSERT MODE SWITCH«, t00=0x000b, t01=0x0086}
0x11da…1202               Head {h00=0x0024, h01=0x0050, text=»KEYS EQU MODE+2 KEY LOCK STATUS «, t00=0x000b, t01=0x00b0}
0x1202…1234               Head {h00=0x002e, h01=0x0050, text=»ECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC«, t00=0x000b, t01=0x00d8}
0x1234…126a               Head {h00=0x0032, h01=0x0050, text=»ECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C «, t00=0x000b, t01=0x010a}
0x126a…12a2               Head {h00=0x0034, h01=0x0050, text=»RDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB«, t00=0x000b, t01=0x0140}
0x12a2…12d6               Head {h00=0x0030, h01=0x0050, text=»LAMSAV EQU RDMORE+2 SAVE AREA FOR LAMPS DK2 «, t00=0x000b, t01=0x0178}
0x12d6…12e4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x001c}
0x12e4…1308               Head {h00=0x0020, h01=0x0050, text=»NULL EQU /7F NULL CHARACTER «, t00=0x000c, t01=0x002a}
0x1308…131e               Head {h00=0x0012, h01=0x0050, text=»DUPCH EQU /7B «, t00=0x000c, t01=0x004e}
0x131e…1332               Head {h00=0x0010, h01=0x0050, text=»FMCH EQU /60«, t00=0x000c, t01=0x0064}
0x1332…1360               Head {h00=0x002a, h01=0x0050, text=»LBVDU EQU 1920 1920 CHAR DISPLAY 6344 «, t00=0x000c, t01=0x0078}
0x1360…1386               Head {h00=0x0022, h01=0x0050, text=»LPAGE EQU 48 LINES ON ONE PAGE«, t00=0x000c, t01=0x00a6}
0x1386…13b4               Head {h00=0x002a, h01=0x0050, text=»LLINE EQU 80 80 CHAR PER DISPLAY LINE «, t00=0x000c, t01=0x00cc}
0x13b4…13be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00fa}
0x13be…13e8               Head {h00=0x0026, h01=0x0050, text=»* CONFIG DATA 'CB1' REL ADDRESSES «, t00=0x000c, t01=0x0104}
0x13e8…13f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x012e}
0x13f2…1418               Head {h00=0x0022, h01=0x0050, text=»NBRKBV EQU 0 NUMBER OF KB/VDUS«, t00=0x000c, t01=0x0138}
0x1418…1442               Head {h00=0x0026, h01=0x0050, text=»NBRGTP EQU NBRKBV+2 NUMBER OF GTPS«, t00=0x000c, t01=0x015e}
0x1442…144c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0188}
0x144c…1482 (13, 0, 400)  Head {h00=0x0032, h01=0x0050, text=»MF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 «, t00=0x000d, t01=0x0004}
0x1482…14b8               Head {h00=0x0032, h01=0x0050, text=»MF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 «, t00=0x000d, t01=0x003a}
0x14b8…14cc               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x000d, t01=0x0070}
0x14cc…14e8               Head {h00=0x0018, h01=0x0050, text=»MF2KBV EQU MF1GTP+16«, t00=0x000d, t01=0x0084}
0x14e8…1504               Head {h00=0x0018, h01=0x0050, text=»MF2GTP EQU MF2KBV+16«, t00=0x000d, t01=0x00a0}
0x1504…1510               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00bc}
0x1510…151e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00c8}
0x151e…1528               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d6}
0x1528…155a               Head {h00=0x002e, h01=0x0050, text=»* KEY TABLE FIXED ENTRY FOR EACH FUNCTION «, t00=0x000d, t01=0x00e0}
0x155a…1564               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0112}
0x1564…1578               Head {h00=0x0010, h01=0x0050, text=»KEYTAB EQU *«, t00=0x000d, t01=0x011c}
0x1578…1590               Head {h00=0x0014, h01=0x0050, text=» DATA CHAR SPACE«, t00=0x000d, t01=0x0130}
0x1590…15a4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR !«, t00=0x000d, t01=0x0148}
0x15a4…15b8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR "«, t00=0x000d, t01=0x015c}
0x15b8…15cc               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR #«, t00=0x000d, t01=0x0170}
0x15cc…15e0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR $«, t00=0x000d, t01=0x0184}
0x15e0…15f4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR %«, t00=0x000e, t01=0x0008}
0x15f4…1620               Head {h00=0x0028, h01=0x0050, text=» DATA CHARFS &  FIELD SEPARATOR DK4 «, t00=0x000e, t01=0x001c}
0x1620…1634               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR '«, t00=0x000e, t01=0x0048}
0x1634…1648               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR («, t00=0x000e, t01=0x005c}
0x1648…165c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR )«, t00=0x000e, t01=0x0070}
0x165c…1670               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR *«, t00=0x000e, t01=0x0084}
0x1670…1684               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR +«, t00=0x000e, t01=0x0098}
0x1684…169a               Head {h00=0x0012, h01=0x0050, text=» DATA NUM , DK«, t00=0x000e, t01=0x00ac}
0x169a…16ae               Head {h00=0x0010, h01=0x0050, text=» DATA NUM - «, t00=0x000e, t01=0x00c2}
0x16ae…16c2               Head {h00=0x0010, h01=0x0050, text=» DATA NUM . «, t00=0x000e, t01=0x00d6}
0x16c2…16d6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR /«, t00=0x000e, t01=0x00ea}
0x16d6…16e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00fe}
0x16e0…16f2               Head {h00=0x000e, h01=0x0050, text=» DATA NUM «, t00=0x000e, t01=0x0108}
0x16f2…1706               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 1 «, t00=0x000e, t01=0x011a}
0x1706…171a               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 2 «, t00=0x000e, t01=0x012e}
0x171a…172e               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 3 «, t00=0x000e, t01=0x0142}
0x172e…1742               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 4 «, t00=0x000e, t01=0x0156}
0x1742…1756               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 5 «, t00=0x000e, t01=0x016a}
0x1756…176a               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 6 «, t00=0x000e, t01=0x017e}
0x176a…177e (15, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» DATA NUM 7 «, t00=0x000f, t01=0x0004}
0x177e…1792               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 8 «, t00=0x000f, t01=0x0018}
0x1792…17a6               Head {h00=0x0010, h01=0x0050, text=» DATA NUM 9 «, t00=0x000f, t01=0x002c}
0x17a6…17ba               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR :«, t00=0x000f, t01=0x0040}
0x17ba…17ce               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ;«, t00=0x000f, t01=0x0054}
0x17ce…17e2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR <«, t00=0x000f, t01=0x0068}
0x17e2…17f6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR =«, t00=0x000f, t01=0x007c}
0x17f6…180a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR >«, t00=0x000f, t01=0x0090}
0x180a…181e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ?«, t00=0x000f, t01=0x00a4}
0x181e…1828               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b8}
0x1828…183e               Head {h00=0x0012, h01=0x0050, text=» DATA CHAR E' «, t00=0x000f, t01=0x00c2}
0x183e…1852               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR A«, t00=0x000f, t01=0x00d8}
0x1852…1866               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR B«, t00=0x000f, t01=0x00ec}
0x1866…187a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR C«, t00=0x000f, t01=0x0100}
0x187a…188e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR D«, t00=0x000f, t01=0x0114}
0x188e…18a2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR E«, t00=0x000f, t01=0x0128}
0x18a2…18b6               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR F«, t00=0x000f, t01=0x013c}
0x18b6…18ca               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR G«, t00=0x000f, t01=0x0150}
0x18ca…18de               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR H«, t00=0x000f, t01=0x0164}
0x18de…18f2               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR I«, t00=0x000f, t01=0x0178}
0x18f2…1906               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR J«, t00=0x000f, t01=0x018c}
0x1906…191a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR K«, t00=0x0010, t01=0x0010}
0x191a…192e               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR L«, t00=0x0010, t01=0x0024}
0x192e…1942               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR M«, t00=0x0010, t01=0x0038}
0x1942…1956               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR N«, t00=0x0010, t01=0x004c}
0x1956…196a               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR O«, t00=0x0010, t01=0x0060}
0x196a…1974               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0074}
0x1974…1988               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR P«, t00=0x0010, t01=0x007e}
0x1988…199c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Q«, t00=0x0010, t01=0x0092}
0x199c…19b0               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR R«, t00=0x0010, t01=0x00a6}
0x19b0…19c4               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR S«, t00=0x0010, t01=0x00ba}
0x19c4…19d8               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR T«, t00=0x0010, t01=0x00ce}
0x19d8…19ec               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR U«, t00=0x0010, t01=0x00e2}
0x19ec…1a00               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR V«, t00=0x0010, t01=0x00f6}
0x1a00…1a14               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR W«, t00=0x0010, t01=0x010a}
0x1a14…1a28               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR X«, t00=0x0010, t01=0x011e}
0x1a28…1a3c               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Y«, t00=0x0010, t01=0x0132}
0x1a3c…1a50               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR Z«, t00=0x0010, t01=0x0146}
0x1a50…1a64               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR [«, t00=0x0010, t01=0x015a}
0x1a64…1a82               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR BACK SLASH «, t00=0x0010, t01=0x016e}
0x1a82…1a96               Head {h00=0x0010, h01=0x0050, text=» DATA CHAR ]«, t00=0x0010, t01=0x018c}
0x1a96…1ab4               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR CIRCOMFLEX «, t00=0x0011, t01=0x0010}
0x1ab4…1ad0               Head {h00=0x0018, h01=0x0050, text=» DATA CHAR UNDERLINE«, t00=0x0011, t01=0x002e}
0x1ad0…1ada               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x004a}
0x1ada…1b02               Head {h00=0x0024, h01=0x0050, text=» DATA RETURN /60 CANNOT BE USED «, t00=0x0011, t01=0x0054}
0x1b02…1b20               Head {h00=0x001a, h01=0x0050, text=» DATA CHAR LOWER CASE «, t00=0x0011, t01=0x007c}
0x1b20…1b32               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x009a}
0x1b32…1b44               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x00ac}
0x1b44…1b56               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x00be}
0x1b56…1b68               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x00d0}
0x1b68…1b7a               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x00e2}
0x1b7a…1b8c               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x00f4}
0x1b8c…1b9e               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0106}
0x1b9e…1bb0               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0118}
0x1bb0…1bc2               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x012a}
0x1bc2…1bd4               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x013c}
0x1bd4…1be6               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x014e}
0x1be6…1bf8               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0160}
0x1bf8…1c0a               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0172}
0x1c0a…1c1c               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0011, t01=0x0184}
0x1c1c…1c26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0008}
0x1c26…1c3c               Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0012, t01=0x0012}
0x1c3c…1c56               Head {h00=0x0016, h01=0x0050, text=» DATA KEYL KEYLOCK«, t00=0x0012, t01=0x0028}
0x1c56…1c68               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x0042}
0x1c68…1c7a               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x0054}
0x1c7a…1c8c               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x0066}
0x1c8c…1c9e               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x0078}
0x1c9e…1cb0               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x008a}
0x1cb0…1cc2               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x009c}
0x1cc2…1cd4               Head {h00=0x000e, h01=0x0050, text=» DATA KEYL«, t00=0x0012, t01=0x00ae}
0x1cd4…1ce0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00c0}
0x1ce0…1cf6               Head {h00=0x0012, h01=0x0050, text=» IFF KEYLST=1 «, t00=0x0012, t01=0x00cc}
0x1cf6…1d0a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x00e2}
0x1d0a…1d1e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x00f6}
0x1d1e…1d32               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x010a}
0x1d32…1d46               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x011e}
0x1d46…1d5a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0132}
0x1d5a…1d6e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x0146}
0x1d6e…1d82               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x015a}
0x1d82…1d96               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0012, t01=0x016e}
0x1d96…1da2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0182}
0x1da2…1dc2               Head {h00=0x001c, h01=0x0050, text=» DATA CHAR LOWER CASE X «, t00=0x0012, t01=0x018e}
0x1dc2…1dd4               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0013, t01=0x001e}
0x1dd4…1de6               Head {h00=0x000e, h01=0x0050, text=» DATA CHAR«, t00=0x0013, t01=0x0030}
0x1de6…1e12               Head {h00=0x0028, h01=0x0050, text=» DATA RETURN /7B-/7F CANNOT BE USED «, t00=0x0013, t01=0x0042}
0x1e12…1e26               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x006e}
0x1e26…1e3a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0082}
0x1e3a…1e4e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x0096}
0x1e4e…1e62               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x00aa}
0x1e62…1e6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00be}
0x1e6c…1e7e               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0013, t01=0x00c8}
0x1e7e…1e90               Head {h00=0x000e, h01=0x0050, text=» DATA PAEX«, t00=0x0013, t01=0x00da}
0x1e90…1e9c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00ec}
0x1e9c…1eae               Head {h00=0x000e, h01=0x0050, text=» IFF PAX=1«, t00=0x0013, t01=0x00f8}
0x1eae…1ec2               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0013, t01=0x010a}
0x1ec2…1ece               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x011e}
0x1ece…1ee0               Head {h00=0x000e, h01=0x0050, text=» DATA PA1 «, t00=0x0013, t01=0x012a}
0x1ee0…1ef2               Head {h00=0x000e, h01=0x0050, text=» DATA PA2 «, t00=0x0013, t01=0x013c}
0x1ef2…1f04               Head {h00=0x000e, h01=0x0050, text=» DATA PA3 «, t00=0x0013, t01=0x014e}
0x1f04…1f2e               Head {h00=0x0026, h01=0x0050, text=» DATA PA410 PA4 - PA10 (ALFASKOP) «, t00=0x0013, t01=0x0160}
0x1f2e…1f42               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0013, t01=0x018a}
0x1f42…1f56               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x000e}
0x1f56…1f6a               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x0022}
0x1f6a…1f7e               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x0036}
0x1f7e…1f92               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x004a}
0x1f92…1fa6               Head {h00=0x0010, h01=0x0050, text=» DATA PA410 «, t00=0x0014, t01=0x005e}
0x1fa6…1fba               Head {h00=0x0010, h01=0x0050, text=» DATA CLEAR «, t00=0x0014, t01=0x0072}
0x1fba…1fcc               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x0014, t01=0x0086}
0x1fcc…1fde               Head {h00=0x000e, h01=0x0050, text=» DATA PFEX«, t00=0x0014, t01=0x0098}
0x1fde…1fea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00aa}
0x1fea…1ffc               Head {h00=0x000e, h01=0x0050, text=» IFF PFX=1«, t00=0x0014, t01=0x00b6}
0x1ffc…2010               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0014, t01=0x00c8}
0x2010…201c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00dc}
0x201c…202e               Head {h00=0x000e, h01=0x0050, text=» DATA PF 1«, t00=0x0014, t01=0x00e8}
0x202e…2040               Head {h00=0x000e, h01=0x0050, text=» DATA PF 2«, t00=0x0014, t01=0x00fa}
0x2040…2052               Head {h00=0x000e, h01=0x0050, text=» DATA PF 3«, t00=0x0014, t01=0x010c}
0x2052…205c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x011e}
0x205c…206e               Head {h00=0x000e, h01=0x0050, text=» DATA PF 4«, t00=0x0014, t01=0x0128}
0x206e…2080               Head {h00=0x000e, h01=0x0050, text=» DATA PF 5«, t00=0x0014, t01=0x013a}
0x2080…2092               Head {h00=0x000e, h01=0x0050, text=» DATA PF 6«, t00=0x0014, t01=0x014c}
0x2092…20a4               Head {h00=0x000e, h01=0x0050, text=» DATA PF 7«, t00=0x0014, t01=0x015e}
0x20a4…20b6               Head {h00=0x000e, h01=0x0050, text=» DATA PF 8«, t00=0x0014, t01=0x0170}
0x20b6…20c8               Head {h00=0x000e, h01=0x0050, text=» DATA PF 9«, t00=0x0014, t01=0x0182}
0x20c8…20dc (21, 0, 398)  Head {h00=0x0010, h01=0x0050, text=» DATA PF 10 «, t00=0x0015, t01=0x0004}
0x20dc…20f0               Head {h00=0x0010, h01=0x0050, text=» DATA PF 11 «, t00=0x0015, t01=0x0018}
0x20f0…2104               Head {h00=0x0010, h01=0x0050, text=» DATA PF 12 «, t00=0x0015, t01=0x002c}
0x2104…2136               Head {h00=0x002e, h01=0x0050, text=» DATA RETURN /99-/A4 RESERVED FOR PF13-24 «, t00=0x0015, t01=0x0040}
0x2136…214a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0072}
0x214a…215e               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0086}
0x215e…2172               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x009a}
0x2172…2186               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00ae}
0x2186…219a               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00c2}
0x219a…21ae               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00d6}
0x21ae…21b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ea}
0x21b8…21cc               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x00f4}
0x21cc…21e0               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0108}
0x21e0…21f4               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x011c}
0x21f4…2208               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0130}
0x2208…221c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0015, t01=0x0144}
0x221c…2230               Head {h00=0x0010, h01=0x0050, text=» DATA ENTER «, t00=0x0015, t01=0x0158}
0x2230…2242               Head {h00=0x000e, h01=0x0050, text=» DATA CRUP«, t00=0x0015, t01=0x016c}
0x2242…2256               Head {h00=0x0010, h01=0x0050, text=» DATA CRLEFT«, t00=0x0015, t01=0x017e}
0x2256…226a (22, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» DATA CRRIGT«, t00=0x0016, t01=0x0004}
0x226a…227e               Head {h00=0x0010, h01=0x0050, text=» DATA CRDOWN«, t00=0x0016, t01=0x0018}
0x227e…2292               Head {h00=0x0010, h01=0x0050, text=» DATA BAKTAB«, t00=0x0016, t01=0x002c}
0x2292…22a4               Head {h00=0x000e, h01=0x0050, text=» DATA TAB «, t00=0x0016, t01=0x0040}
0x22a4…22b6               Head {h00=0x000e, h01=0x0050, text=» DATA CRNL«, t00=0x0016, t01=0x0052}
0x22b6…22ca               Head {h00=0x0010, h01=0x0050, text=» DATA RDHOME«, t00=0x0016, t01=0x0064}
0x22ca…22de               Head {h00=0x0010, h01=0x0050, text=» DATA ERINPT«, t00=0x0016, t01=0x0078}
0x22de…22f2               Head {h00=0x0010, h01=0x0050, text=» DATA EREOF «, t00=0x0016, t01=0x008c}
0x22f2…22fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a0}
0x22fc…2310               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x0016, t01=0x00aa}
0x2310…2324               Head {h00=0x0010, h01=0x0050, text=» DATA INSERT«, t00=0x0016, t01=0x00be}
0x2324…2338               Head {h00=0x0010, h01=0x0050, text=» DATA DELETE«, t00=0x0016, t01=0x00d2}
0x2338…2344               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00e6}
0x2344…2358               Head {h00=0x0010, h01=0x0050, text=» IFF IN:DL=1«, t00=0x0016, t01=0x00f2}
0x2358…236c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x0106}
0x236c…2380               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0016, t01=0x011a}
0x2380…238c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x012e}
0x238c…23a0               Head {h00=0x0010, h01=0x0050, text=» DATA RESET «, t00=0x0016, t01=0x013a}
0x23a0…23b2               Head {h00=0x000e, h01=0x0050, text=» DATA DUP «, t00=0x0016, t01=0x014e}
0x23b2…23c6               Head {h00=0x0010, h01=0x0050, text=» DATA FLDMRK«, t00=0x0016, t01=0x0160}
0x23c6…23d8               Head {h00=0x000e, h01=0x0050, text=» DATA COPY«, t00=0x0016, t01=0x0174}
0x23d8…23ec               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0016, t01=0x0186}
0x23ec…2400               Head {h00=0x0010, h01=0x0050, text=» DATA OFLINE«, t00=0x0017, t01=0x000a}
0x2400…240c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x001e}
0x240c…2420               Head {h00=0x0010, h01=0x0050, text=» IFF OFLIN=1«, t00=0x0017, t01=0x002a}
0x2420…2434               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x003e}
0x2434…2440               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0052}
0x2440…2454               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0017, t01=0x005e}
0x2454…2468               Head {h00=0x0010, h01=0x0050, text=» DATA MFCHGE«, t00=0x0017, t01=0x0072}
0x2468…2474               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0086}
0x2474…2488               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x0017, t01=0x0092}
0x2488…249c               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x00a6}
0x249c…24a8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00ba}
0x24a8…24bc               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x00c6}
0x24bc…24d0               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x00da}
0x24d0…24e4               Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:2«, t00=0x0017, t01=0x00ee}
0x24e4…24f8               Head {h00=0x0010, h01=0x0050, text=» DATA ZERO:3«, t00=0x0017, t01=0x0102}
0x24f8…250c               Head {h00=0x0010, h01=0x0050, text=» DATA NUMCOM«, t00=0x0017, t01=0x0116}
0x250c…2520               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x012a}
0x2520…2534               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x013e}
0x2534…2548               Head {h00=0x0010, h01=0x0050, text=» DATA RETURN«, t00=0x0017, t01=0x0152}
0x2548…2552               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0166}
0x2552…258c               Head {h00=0x0036, h01=0x0050, text=» DATA LCASPW LOWER CASE P - W (BECAUSE OF KEYLOCK)«, t00=0x0017, t01=0x0170}
0x258c…25a0               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x001a}
0x25a0…25b4               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x002e}
0x25b4…25c8               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x0042}
0x25c8…25dc               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x0056}
0x25dc…25f0               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x006a}
0x25f0…2604               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x007e}
0x2604…2618               Head {h00=0x0010, h01=0x0050, text=» DATA LCASPW«, t00=0x0018, t01=0x0092}
0x2618…2626               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00a6}
0x2626…266c               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0018, t01=0x00b4}
0x266c…2676               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00fa}
0x2676…269a               Head {h00=0x0020, h01=0x0050, text=»* START ADDRESS FOR DC TASKS«, t00=0x0018, t01=0x0104}
0x269a…26e0               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0018, t01=0x0128}
0x26e0…26e8               Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x016e}
0x26e8…26fc               Head {h00=0x0010, h01=0x0050, text=»DCTASK EQU *«, t00=0x0018, t01=0x0176}
0x26fc…2712               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0018, t01=0x018a}
0x2712…273c               Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A9 POLL & SELECT ADDRESS «, t00=0x0019, t01=0x0010}
0x273c…2752               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0019, t01=0x003a}
0x2752…2768               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0019, t01=0x0050}
0x2768…2780               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0019, t01=0x0066}
0x2780…27a8               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x0019, t01=0x007e}
0x27a8…27b4               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0019, t01=0x00a6}
0x27b4…27c4               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0019, t01=0x00b2}
0x27c4…27d8               Head {h00=0x0010, h01=0x0050, text=»DCT100 EQU *«, t00=0x0019, t01=0x00c2}
0x27d8…280a               Head {h00=0x002e, h01=0x0050, text=» LDK A7,/80 TEST IF ANY MESSAGE WITH WAIT «, t00=0x0019, t01=0x00d6}
0x280a…2816               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0019, t01=0x0108}
0x2816…2826               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0019, t01=0x0114}
0x2826…2850               Head {h00=0x0026, h01=0x0050, text=» CF A14,GTRBUF GET RECEIVE BUFFER «, t00=0x0019, t01=0x0124}
0x2850…2866               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0019, t01=0x014e}
0x2866…287c               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0019, t01=0x0164}
0x287c…2892               Head {h00=0x0012, h01=0x0050, text=» CF A14,DCGETM«, t00=0x0019, t01=0x017a}
0x2892…28aa               Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBBA,A8 «, t00=0x0019, t01=0x0190}
0x28aa…28d0               Head {h00=0x0022, h01=0x0050, text=» CF A14,RLRBUF RELEASE BUFFER «, t00=0x001a, t01=0x0018}
0x28d0…28e2               Head {h00=0x000e, h01=0x0050, text=» RB DCT100«, t00=0x001a, t01=0x003e}
0x28e2…28f0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0050}
0x28f0…28fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x005e}
0x28fa…2904               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0068}
0x2904…2930               Head {h00=0x0028, h01=0x0050, text=»* SUBROUTINE ACTIVATED BY ALL TASKS «, t00=0x001a, t01=0x0072}
0x2930…293a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x009e}
0x293a…2944               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00a8}
0x2944…2958               Head {h00=0x0010, h01=0x0050, text=»EMULA EQU * «, t00=0x001a, t01=0x00b2}
0x2958…297e               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS GET ECB ADDRESS«, t00=0x001a, t01=0x00c6}
0x297e…29a6               Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBCW,A8 STORE IN ECBDCT «, t00=0x001a, t01=0x00ec}
0x29a6…29ce               Head {h00=0x0024, h01=0x0050, text=» LDK A7,/B7 TRANSFER PARAMETERS «, t00=0x001a, t01=0x0114}
0x29ce…29da               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001a, t01=0x013c}
0x29da…29ea               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001a, t01=0x0148}
0x29ea…29fa               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x0158}
0x29fa…2a08               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0168}
0x2a08…2a12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0176}
0x2a12…2a50               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x001a, t01=0x0180}
0x2a50…2a5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x002e}
0x2a5a…2a6e               Head {h00=0x0010, h01=0x0050, text=»*     VDUKB «, t00=0x001b, t01=0x0038}
0x2a6e…2a78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x004c}
0x2a78…2a9e               Head {h00=0x0022, h01=0x0050, text=»* MAIN MODULE FOR KEYBOARD VDU«, t00=0x001b, t01=0x0056}
0x2a9e…2aa8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x007c}
0x2aa8…2ae8               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x001b, t01=0x0086}
0x2ae8…2afc               Head {h00=0x0010, h01=0x0050, text=»VDUKB EQU * «, t00=0x001b, t01=0x00c6}
0x2afc…2b12               Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x001b, t01=0x00da}
0x2b12…2b3c               Head {h00=0x0026, h01=0x0050, text=» LDR TCABAS,A9 LOAD ASSEM TCA BASE«, t00=0x001b, t01=0x00f0}
0x2b3c…2b44               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x011a}
0x2b44…2b58               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x001b, t01=0x0122}
0x2b58…2b60               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0136}
0x2b60…2b68               Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x013e}
0x2b68…2ba0               Head {h00=0x0034, h01=0x0050, text=» STR A12,A14 SAVE REGISTERS A12-A13 ON A14 STACK«, t00=0x001b, t01=0x0146}
0x2ba0…2bb6               Head {h00=0x0012, h01=0x0050, text=» ST A13,-2,A14«, t00=0x001b, t01=0x017e}
0x2bb6…2bde (28, 0, 398)  Head {h00=0x0024, h01=0x0050, text=» SUKL A14,4 UPDATE STACK POINTER«, t00=0x001c, t01=0x0004}
0x2bde…2bf8               Head {h00=0x0016, h01=0x0050, text=» CM OFFFLG,TCABAS «, t00=0x001c, t01=0x002c}
0x2bf8…2c28               Head {h00=0x002c, h01=0x0050, text=» CM LAMSAV,TCABAS CLEAR LAMP STATUS DK2 «, t00=0x001c, t01=0x0046}
0x2c28…2c56               Head {h00=0x002a, h01=0x0050, text=» CF A14,LIOLOF TURN OFF OFF LINE LAMP «, t00=0x001c, t01=0x0076}
0x2c56…2c62               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00a4}
0x2c62…2c6a               Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x00b0}
0x2c6a…2c78               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x00b8}
0x2c78…2cbe               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x001c, t01=0x00c6}
0x2cbe…2cc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x010c}
0x2cc8…2cf8               Head {h00=0x002c, h01=0x0050, text=»*   TRANSFER PARAMETER FOR MAIN FRAME #1«, t00=0x001c, t01=0x0116}
0x2cf8…2d02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0146}
0x2d02…2d48               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001c, t01=0x0150}
0x2d48…2d50               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0008}
0x2d50…2d74               Head {h00=0x0020, h01=0x0050, text=» LDR* A4,TCABAS REL TASK NO «, t00=0x001d, t01=0x0010}
0x2d74…2d9a               Head {h00=0x0022, h01=0x0050, text=» AD A4,6,CREBAS 'CB1' ADDRESS «, t00=0x001d, t01=0x0034}
0x2d9a…2dc4               Head {h00=0x0026, h01=0x0050, text=» LC A1,MF1KBV-1,A4 GET DV-ADDRESS «, t00=0x001d, t01=0x005a}
0x2dc4…2dd8               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001d, t01=0x0084}
0x2dd8…2dee               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x001d, t01=0x0098}
0x2dee…2e04               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x001d, t01=0x00ae}
0x2e04…2e0c               Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x00c4}
0x2e0c…2e20               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001d, t01=0x00cc}
0x2e20…2e66               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001d, t01=0x00e0}
0x2e66…2e70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0126}
0x2e70…2ea0               Head {h00=0x002c, h01=0x0050, text=»*   TRANSFER PARAMETER FOR MAIN-FRAME #2«, t00=0x001d, t01=0x0130}
0x2ea0…2eaa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0160}
0x2eaa…2ef0               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001d, t01=0x016a}
0x2ef0…2ef8               Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0020}
0x2ef8…2f22               Head {h00=0x0026, h01=0x0050, text=» LC A1,MF2KBV-1,A4 GET DV ADDRESS «, t00=0x001e, t01=0x0028}
0x2f22…2f36               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001e, t01=0x0052}
0x2f36…2f4e               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x001e, t01=0x0066}
0x2f4e…2f64               Head {h00=0x0012, h01=0x0050, text=» CF A14,EMULA «, t00=0x001e, t01=0x007e}
0x2f64…2f70               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0094}
0x2f70…2f7e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00a0}
0x2f7e…2f92               Head {h00=0x0010, h01=0x0050, text=»VDU080 EQU *«, t00=0x001e, t01=0x00ae}
0x2f92…2fb4               Head {h00=0x001e, h01=0x0050, text=» CF A14,ERASE ERASE SCREEN«, t00=0x001e, t01=0x00c2}
0x2fb4…2fbc               Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x00e4}
0x2fbc…2fce               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001e, t01=0x00ec}
0x2fce…2fe6               Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x001e, t01=0x00fe}
0x2fe6…3020               Head {h00=0x0036, h01=0x0050, text=» ST A1,CURATT,TCABAS INITIATE WITH UNFORM. SCREEN «, t00=0x001e, t01=0x0116}
0x3020…3036               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1ON«, t00=0x001e, t01=0x0150}
0x3036…3066               Head {h00=0x002c, h01=0x0050, text=» CM MAIN,TCABAS INDICATE MAIN-FRAME # 1 «, t00=0x001e, t01=0x0166}
0x3066…3074               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0008}
0x3074…307e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0016}
0x307e…309e               Head {h00=0x001c, h01=0x0050, text=»* RELATIVE POS IN ECBBLK«, t00=0x001f, t01=0x0020}
0x309e…30ae               Head {h00=0x000c, h01=0x0050, text=»KB EQU 2«, t00=0x001f, t01=0x0040}
0x30ae…30c0               Head {h00=0x000e, h01=0x0050, text=»DC1 EQU 4 «, t00=0x001f, t01=0x0050}
0x30c0…30d4               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001f, t01=0x0062}
0x30d4…30ea               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x001f, t01=0x0076}
0x30ea…30fc               Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x001f, t01=0x008c}
0x30fc…310e               Head {h00=0x000e, h01=0x0050, text=»ICR EQU 8 «, t00=0x001f, t01=0x009e}
0x310e…3122               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 4 «, t00=0x001f, t01=0x00b0}
0x3122…312e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00c4}
0x312e…3142               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x001f, t01=0x00d0}
0x3142…3158               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x001f, t01=0x00e4}
0x3158…316a               Head {h00=0x000e, h01=0x0050, text=»DC2 EQU 6 «, t00=0x001f, t01=0x00fa}
0x316a…317e               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 3 «, t00=0x001f, t01=0x010c}
0x317e…318a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0120}
0x318a…319e               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x001f, t01=0x012c}
0x319e…31b4               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x001f, t01=0x0140}
0x31b4…31c6               Head {h00=0x000e, h01=0x0050, text=»ICR EQU 6 «, t00=0x001f, t01=0x0156}
0x31c6…31da               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 3 «, t00=0x001f, t01=0x0168}
0x31da…31e6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x017c}
0x31e6…31fa               Head {h00=0x0010, h01=0x0050, text=» IFF DCLIN=2«, t00=0x001f, t01=0x0188}
0x31fa…3210               Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0020, t01=0x000c}
0x3210…3224               Head {h00=0x0010, h01=0x0050, text=»ECBBS EQU 2 «, t00=0x0020, t01=0x0022}
0x3224…3230               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0036}
0x3230…323a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0042}
0x323a…3250               Head {h00=0x0012, h01=0x0050, text=» LDK A1,ECBBS «, t00=0x0020, t01=0x004c}
0x3250…326c               Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBBLK,TCABAS«, t00=0x0020, t01=0x0062}
0x326c…3280               Head {h00=0x0010, h01=0x0050, text=»VDU100 EQU *«, t00=0x0020, t01=0x007e}
0x3280…32a0               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC1,TCABAS«, t00=0x0020, t01=0x0092}
0x32a0…32be               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU110 PENDING«, t00=0x0020, t01=0x00b2}
0x32be…32f2               Head {h00=0x0030, h01=0x0050, text=» CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT «, t00=0x0020, t01=0x00d0}
0x32f2…3306               Head {h00=0x0010, h01=0x0050, text=»VDU110 EQU *«, t00=0x0020, t01=0x0104}
0x3306…331a               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0020, t01=0x0118}
0x331a…333a               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+DC2,TCABAS«, t00=0x0020, t01=0x012c}
0x333a…3358               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU120 PENDING«, t00=0x0020, t01=0x014c}
0x3358…3392               Head {h00=0x0036, h01=0x0050, text=» CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT«, t00=0x0020, t01=0x016a}
0x3392…339e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0014}
0x339e…33b2               Head {h00=0x0010, h01=0x0050, text=»VDU120 EQU *«, t00=0x0021, t01=0x0020}
0x33b2…33c8               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0021, t01=0x0034}
0x33c8…33e8               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+ICR,TCABAS«, t00=0x0021, t01=0x004a}
0x33e8…3406               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU125 PENDING«, t00=0x0021, t01=0x006a}
0x3406…3424               Head {h00=0x001a, h01=0x0050, text=» LDKL A3,ICWORK BUFFER«, t00=0x0021, t01=0x0088}
0x3424…3444               Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS   ADDRESS«, t00=0x0021, t01=0x00a6}
0x3444…3460               Head {h00=0x0018, h01=0x0050, text=» LDK A6,2 REQ LENGTH«, t00=0x0021, t01=0x00c6}
0x3460…3476               Head {h00=0x0012, h01=0x0050, text=» CF A14,ICREAD«, t00=0x0021, t01=0x00e2}
0x3476…3496               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+ICR,TCABAS«, t00=0x0021, t01=0x00f8}
0x3496…34a2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0118}
0x34a2…34b6               Head {h00=0x0010, h01=0x0050, text=»VDU125 EQU *«, t00=0x0021, t01=0x0124}
0x34b6…34d6               Head {h00=0x001c, h01=0x0050, text=» LD A1,ECBBLK+KB,TCABAS «, t00=0x0021, t01=0x0138}
0x34d6…34f4               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VDU150 PENDING«, t00=0x0021, t01=0x0158}
0x34f4…3520               Head {h00=0x0028, h01=0x0050, text=» CF A14,RDKBNW READ KEYBOARD NO WAIT«, t00=0x0021, t01=0x0176}
0x3520…3534               Head {h00=0x0010, h01=0x0050, text=»VDU150 EQU *«, t00=0x0022, t01=0x0012}
0x3534…354c               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0022, t01=0x0026}
0x354c…3562               Head {h00=0x0012, h01=0x0050, text=» ADR A7,TCABAS«, t00=0x0022, t01=0x003e}
0x3562…356e               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0022, t01=0x0054}
0x356e…358c               Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x0022, t01=0x0060}
0x358c…35ac               Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+KB,TCABAS «, t00=0x0022, t01=0x007e}
0x35ac…35d4               Head {h00=0x0024, h01=0x0050, text=» RF(E) KBINP INPUT FROM KEYBOARD«, t00=0x0022, t01=0x009e}
0x35d4…35ea               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0022, t01=0x00c6}
0x35ea…360a               Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+ICR,TCABAS«, t00=0x0022, t01=0x00dc}
0x360a…3636               Head {h00=0x0028, h01=0x0050, text=» RF(E) BUFCOP SEND BUFFER TO PRINTER«, t00=0x0022, t01=0x00fc}
0x3636…3642               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0128}
0x3642…3680               Head {h00=0x003a, h01=0x0050, text=» ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ«, t00=0x0022, t01=0x0134}
0x3680…36a4               Head {h00=0x0020, h01=0x0050, text=» CF A14,DCINP INPUT FROM DC «, t00=0x0022, t01=0x0172}
0x36a4…36b6               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0023, t01=0x0008}
0x36b6…36c4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x001a}
0x36c4…36ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0028}
0x36ce…36f2               Head {h00=0x0020, h01=0x0050, text=»* READ KEYBOARD WITH NO WAIT«, t00=0x0023, t01=0x0032}
0x36f2…36fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0056}
0x36fc…3710               Head {h00=0x0010, h01=0x0050, text=»RDKBNW EQU *«, t00=0x0023, t01=0x0060}
0x3710…3726               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBKB«, t00=0x0023, t01=0x0074}
0x3726…373c               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0023, t01=0x008a}
0x373c…374e               Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0023, t01=0x00a0}
0x374e…3774               Head {h00=0x0022, h01=0x0050, text=» ST A7,ECBRL,A8 REQ LENGTH = 1«, t00=0x0023, t01=0x00b2}
0x3774…37a2               Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 INDICATE NOT POWER OFF«, t00=0x0023, t01=0x00d8}
0x37a2…37c2               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+KB,TCABAS «, t00=0x0023, t01=0x0106}
0x37c2…37d4               Head {h00=0x000e, h01=0x0050, text=» RF DC1I30«, t00=0x0023, t01=0x0126}
0x37d4…37de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0138}
0x37de…37fe               Head {h00=0x001c, h01=0x0050, text=»* TEST IF ANY MESSAGE DC«, t00=0x0023, t01=0x0142}
0x37fe…3808               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0162}
0x3808…381c               Head {h00=0x0010, h01=0x0050, text=»DC1INQ EQU *«, t00=0x0023, t01=0x016c}
0x381c…3832               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x0023, t01=0x0180}
0x3832…3848               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0024, t01=0x0008}
0x3848…3868               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+DC1,TCABAS«, t00=0x0024, t01=0x001e}
0x3868…387c               Head {h00=0x0010, h01=0x0050, text=»DC1I20 EQU *«, t00=0x0024, t01=0x003e}
0x387c…388e               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0024, t01=0x0052}
0x388e…38a4               Head {h00=0x0012, h01=0x0050, text=» CF A14,REQTIM«, t00=0x0024, t01=0x0064}
0x38a4…38b6               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0024, t01=0x007a}
0x38b6…38ca               Head {h00=0x0010, h01=0x0050, text=»DC1I30 EQU *«, t00=0x0024, t01=0x008c}
0x38ca…38d6               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0024, t01=0x00a0}
0x38d6…38e6               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0024, t01=0x00ac}
0x38e6…38f6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x00bc}
0x38f6…390a               Head {h00=0x0010, h01=0x0050, text=»DC2INQ EQU *«, t00=0x0024, t01=0x00cc}
0x390a…391e               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0024, t01=0x00e0}
0x391e…3936               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x0024, t01=0x00f4}
0x3936…394c               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0024, t01=0x010c}
0x394c…396c               Head {h00=0x001c, h01=0x0050, text=» ST A8,ECBBLK+DC2,TCABAS«, t00=0x0024, t01=0x0122}
0x396c…397e               Head {h00=0x000e, h01=0x0050, text=» RB DC1I20«, t00=0x0024, t01=0x0142}
0x397e…398a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0154}
0x398a…39a0               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0024, t01=0x0160}
0x39a0…39ae               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0176}
0x39ae…39b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0184}
0x39b8…39de               Head {h00=0x0022, h01=0x0050, text=»* SEND BUFFER TO PRINTER TASK «, t00=0x0024, t01=0x018e}
0x39de…39e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0024}
0x39e8…39fc               Head {h00=0x0010, h01=0x0050, text=»BUFCOP EQU *«, t00=0x0025, t01=0x002e}
0x39fc…3a1a               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+ICR,TCABAS «, t00=0x0025, t01=0x0042}
0x3a1a…3a36               Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x0025, t01=0x0060}
0x3a36…3a56               Head {h00=0x001c, h01=0x0050, text=» ADR A3,TCABAS   ADDRESS«, t00=0x0025, t01=0x007c}
0x3a56…3a6a               Head {h00=0x0010, h01=0x0050, text=» IFT COPL=1 «, t00=0x0025, t01=0x009c}
0x3a6a…3a74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b0}
0x3a74…3a90               Head {h00=0x0018, h01=0x0050, text=»* CHECK IF COPY LOCK«, t00=0x0025, t01=0x00ba}
0x3a90…3a9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00d6}
0x3a9a…3aac               Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0025, t01=0x00e0}
0x3aac…3ac0               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/18 «, t00=0x0025, t01=0x00f2}
0x3ac0…3ad4               Head {h00=0x0010, h01=0x0050, text=» XRK A2,/10 «, t00=0x0025, t01=0x0106}
0x3ad4…3af4               Head {h00=0x001c, h01=0x0050, text=» RB(Z) VDU100 DON'T COPY«, t00=0x0025, t01=0x011a}
0x3af4…3b00               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x013a}
0x3b00…3b16               Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0025, t01=0x0146}
0x3b16…3b4a               Head {h00=0x0030, h01=0x0050, text=» LDK A4,/8B ORDER: WRITE ADDRESSED WITH WAIT«, t00=0x0025, t01=0x015c}
0x3b4a…3b6e               Head {h00=0x0020, h01=0x0050, text=» LD A5,ICWORK,TCABAS TASK ID«, t00=0x0025, t01=0x0190}
0x3b6e…3b90               Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x0026, t01=0x0024}
0x3b90…3ba6               Head {h00=0x0012, h01=0x0050, text=» CF A14,ICWRTE«, t00=0x0026, t01=0x0046}
0x3ba6…3bc2               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0026, t01=0x005c}
0x3bc2…3bee               Head {h00=0x0028, h01=0x0050, text=» ANK A1,/E NOT INHIBITED ANY LONGER «, t00=0x0026, t01=0x0078}
0x3bee…3c0a               Head {h00=0x0018, h01=0x0050, text=» ST A1,KBINH,TCABAS «, t00=0x0026, t01=0x00a4}
0x3c0a…3c1c               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0026, t01=0x00c0}
0x3c1c…3c28               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00d2}
0x3c28…3c36               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00de}
0x3c36…3c50               Head {h00=0x0016, h01=0x0050, text=»** KEYBOARD INPUT «, t00=0x0026, t01=0x00ec}
0x3c50…3c5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0106}
0x3c5a…3c6e               Head {h00=0x0010, h01=0x0050, text=»KBINP EQU * «, t00=0x0026, t01=0x0110}
0x3c6e…3c8a               Head {h00=0x0018, h01=0x0050, text=» CM ECBBLK+KB,TCABAS«, t00=0x0026, t01=0x0124}
0x3c8a…3ca2               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A8 «, t00=0x0026, t01=0x0140}
0x3ca2…3cc2               Head {h00=0x001c, h01=0x0050, text=» RF(Z) KBIN05 POWER OFF «, t00=0x0026, t01=0x0158}
0x3cc2…3cda               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRC,A8 «, t00=0x0026, t01=0x0178}
0x3cda…3cf0               Head {h00=0x0012, h01=0x0050, text=» RF(0) KBIN10 «, t00=0x0026, t01=0x0190}
0x3cf0…3d04               Head {h00=0x0010, h01=0x0050, text=»KBIN05 EQU *«, t00=0x0027, t01=0x0016}
0x3d04…3d2c               Head {h00=0x0024, h01=0x0050, text=» LDK A7,4 RESET KEYBOARD BUFFER «, t00=0x0027, t01=0x002a}
0x3d2c…3d38               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0027, t01=0x0052}
0x3d38…3d48               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0027, t01=0x005e}
0x3d48…3d5a               Head {h00=0x000e, h01=0x0050, text=» RB VDU100«, t00=0x0027, t01=0x006e}
0x3d5a…3d6e               Head {h00=0x0010, h01=0x0050, text=»KBIN10 EQU *«, t00=0x0027, t01=0x0080}
0x3d6e…3d8a               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0027, t01=0x0094}
0x3d8a…3dba               Head {h00=0x002c, h01=0x0050, text=» ANK A1,1 RESETTING BY 'RESET' ALLOWED ?«, t00=0x0027, t01=0x00b0}
0x3dba…3dd4               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) KBIN05 NO «, t00=0x0027, t01=0x00e0}
0x3dd4…3e00               Head {h00=0x0028, h01=0x0050, text=» LC* A2,ECBBA,A8 GET INPUT CHARACTER«, t00=0x0027, t01=0x00fa}
0x3e00…3e1a               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  =5 «, t00=0x0027, t01=0x0126}
0x3e1a…3e44               Head {h00=0x0026, h01=0x0050, text=» CF A14,KEYCNV CONVERT KEY CODE =5«, t00=0x0027, t01=0x0140}
0x3e44…3e56               Head {h00=0x000e, h01=0x0050, text=» XIF   =5 «, t00=0x0027, t01=0x016a}
0x3e56…3e72               Head {h00=0x0018, h01=0x0050, text=» LD A1,KBINH,TCABAS «, t00=0x0027, t01=0x017c}
0x3e72…3e98               Head {h00=0x0022, h01=0x0050, text=» ANK A1,6 MUST BE RESET KEY ? «, t00=0x0028, t01=0x0008}
0x3e98…3eb0               Head {h00=0x0014, h01=0x0050, text=» RF(Z) KBIN20 NO«, t00=0x0028, t01=0x002e}
0x3eb0…3ed0               Head {h00=0x001c, h01=0x0050, text=» CWK A2,RSET RESET KEY ?«, t00=0x0028, t01=0x0046}
0x3ed0…3eea               Head {h00=0x0016, h01=0x0050, text=» RB(NE) KBIN05 NO «, t00=0x0028, t01=0x0066}
0x3eea…3efe               Head {h00=0x0010, h01=0x0050, text=»KBIN20 EQU *«, t00=0x0028, t01=0x0080}
0x3efe…3f26               Head {h00=0x0024, h01=0x0050, text=» LDR A5,A2 COPY INPUT CHARACTER «, t00=0x0028, t01=0x0094}
0x3f26…3f40               Head {h00=0x0016, h01=0x0050, text=» SUK A5,/20 INDEX «, t00=0x0028, t01=0x00bc}
0x3f40…3f62               Head {h00=0x001e, h01=0x0050, text=» RB(N) VDU100 ILLEGAL CHAR«, t00=0x0028, t01=0x00d6}
0x3f62…3f76               Head {h00=0x0010, h01=0x0050, text=» CWK A5,/A7 «, t00=0x0028, t01=0x00f8}
0x3f76…3f98               Head {h00=0x001e, h01=0x0050, text=» RB(G) VDU100 ILLEGAL CHAR«, t00=0x0028, t01=0x010c}
0x3f98…3fd0               Head {h00=0x0034, h01=0x0050, text=» CF A14,DCABOR ABORT DC-READ TO ENABLE DC-WRITE «, t00=0x0028, t01=0x012e}
0x3fd0…3fe2               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0028, t01=0x0166}
0x3fe2…401c               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) VDU100 DC COMPLETED, TAKE CARE OF MESSAGE«, t00=0x0028, t01=0x0178}
0x401c…403c               Head {h00=0x001c, h01=0x0050, text=» ADR A5,A5 TO KEY TABLE «, t00=0x0029, t01=0x0022}
0x403c…4046               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0042}
0x4046…405e               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x0029, t01=0x004c}
0x405e…4074               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0029, t01=0x0064}
0x4074…4090               Head {h00=0x0018, h01=0x0050, text=» LD A1,RDMORE,TCABAS«, t00=0x0029, t01=0x007a}
0x4090…40a6               Head {h00=0x0012, h01=0x0050, text=» RF(Z) KBIN30 «, t00=0x0029, t01=0x0096}
0x40a6…40b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00ac}
0x40b0…40c4               Head {h00=0x0010, h01=0x0050, text=» CFR A14,A1 «, t00=0x0029, t01=0x00b6}
0x40c4…40d8               Head {h00=0x0010, h01=0x0050, text=» ABL VDU100 «, t00=0x0029, t01=0x00ca}
0x40d8…40e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00de}
0x40e2…40f6               Head {h00=0x0010, h01=0x0050, text=»KBIN30 EQU *«, t00=0x0029, t01=0x00e8}
0x40f6…4134               Head {h00=0x003a, h01=0x0050, text=» CFI A14,KEYTAB,A5 BRANCH TO RESPECTIVE INPUT HANDLER «, t00=0x0029, t01=0x00fc}
0x4134…4148               Head {h00=0x0010, h01=0x0050, text=» ABL VDU100 «, t00=0x0029, t01=0x013a}
0x4148…4156               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x014e}
0x4156…4160               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x015c}
0x4160…418a               Head {h00=0x0026, h01=0x0050, text=»* ABORT DC-REQUEST TO ENABLE WRITE«, t00=0x0029, t01=0x0166}
0x418a…4194               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0190}
0x4194…41a8               Head {h00=0x0010, h01=0x0050, text=»DCABOR EQU *«, t00=0x002a, t01=0x000a}
0x41a8…41ba               Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x002a, t01=0x001e}
0x41ba…41d0               Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECBDC«, t00=0x002a, t01=0x0030}
0x41d0…41e4               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x002a, t01=0x0046}
0x41e4…41fe               Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x002a, t01=0x005a}
0x41fe…4214               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DCAB05«, t00=0x002a, t01=0x0074}
0x4214…4220               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x008a}
0x4220…423e               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC1,TCABAS «, t00=0x002a, t01=0x0096}
0x423e…4252               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x002a, t01=0x00b4}
0x4252…4264               Head {h00=0x000e, h01=0x0050, text=» RF DCAB10«, t00=0x002a, t01=0x00c8}
0x4264…4278               Head {h00=0x0010, h01=0x0050, text=»DCAB05 EQU *«, t00=0x002a, t01=0x00da}
0x4278…4296               Head {h00=0x001a, h01=0x0050, text=» CM ECBBLK+DC2,TCABAS «, t00=0x002a, t01=0x00ee}
0x4296…42ae               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBDC2 «, t00=0x002a, t01=0x010c}
0x42ae…42c2               Head {h00=0x0010, h01=0x0050, text=»DCAB10 EQU *«, t00=0x002a, t01=0x0124}
0x42c2…42ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0138}
0x42ce…42e4               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x002a, t01=0x0144}
0x42e4…42f0               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x015a}
0x42f0…4300               Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x002a, t01=0x0166}
0x4300…4310               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x0176}
0x4310…431e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0186}
0x431e…4328 (43, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0004}
0x4328…4344               Head {h00=0x0018, h01=0x0050, text=»* SET REQUEST TIMER «, t00=0x002b, t01=0x000e}
0x4344…4362               Head {h00=0x001a, h01=0x0050, text=»* A1 = TIME OUT VALUE «, t00=0x002b, t01=0x002a}
0x4362…437c               Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x002b, t01=0x0048}
0x437c…4386               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0062}
0x4386…439a               Head {h00=0x0010, h01=0x0050, text=»REQTIM EQU *«, t00=0x002b, t01=0x006c}
0x439a…43b2               Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x002b, t01=0x0080}
0x43b2…43c6               Head {h00=0x0010, h01=0x0050, text=» LDK A7,/B9 «, t00=0x002b, t01=0x0098}
0x43c6…43d2               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002b, t01=0x00ac}
0x43d2…43e2               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x002b, t01=0x00b8}
0x43e2…43f2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002b, t01=0x00c8}
0x43f2…4400               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x00d8}
0x4400…4408               Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x00e6}
0x4408…4412               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ee}
0x4412…441c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00f8}
0x441c…445e               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002b, t01=0x0102}
0x445e…4468               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0144}
0x4468…4478               Head {h00=0x000c, h01=0x0050, text=»* RETURN«, t00=0x002b, t01=0x014e}
0x4478…4482               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x015e}
0x4482…44c8               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002b, t01=0x0168}
0x44c8…44d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x001e}
0x44d2…44e8               Head {h00=0x0012, h01=0x0050, text=»RETURN RTN A14«, t00=0x002c, t01=0x0028}
0x44e8…44f6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x003e}
0x44f6…4500               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x004c}
0x4500…4540               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002c, t01=0x0056}
0x4540…454a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0096}
0x454a…455e               Head {h00=0x0010, h01=0x0050, text=»*     CRLEFT«, t00=0x002c, t01=0x00a0}
0x455e…4568               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00b4}
0x4568…45a2               Head {h00=0x0036, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS TO LEFT«, t00=0x002c, t01=0x00be}
0x45a2…45ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00f8}
0x45ac…45ec               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002c, t01=0x0102}
0x45ec…45f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0142}
0x45f6…460a               Head {h00=0x0010, h01=0x0050, text=»CRLEFT EQU *«, t00=0x002c, t01=0x014c}
0x460a…4638               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002c, t01=0x0160}
0x4638…464a               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x002c, t01=0x018e}
0x464a…4672               Head {h00=0x0024, h01=0x0050, text=» RF(NN) CRL050 NOT LEFTMOST POS «, t00=0x002d, t01=0x0010}
0x4672…468a               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x002d, t01=0x0038}
0x468a…46a2               Head {h00=0x0014, h01=0x0050, text=»CRL050 RF CRH100«, t00=0x002d, t01=0x0050}
0x46a2…46ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0068}
0x46ac…46ec               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002d, t01=0x0072}
0x46ec…46f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00b2}
0x46f6…470a               Head {h00=0x0010, h01=0x0050, text=»*     CRRIGT«, t00=0x002d, t01=0x00bc}
0x470a…4714               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00d0}
0x4714…4754               Head {h00=0x003c, h01=0x0050, text=»*     THIS MODULE MOVES THE CURSOR ONE POS. TO THE RIGHT«, t00=0x002d, t01=0x00da}
0x4754…475e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x011a}
0x475e…479e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002d, t01=0x0124}
0x479e…47a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0164}
0x47a8…47be               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x002d, t01=0x016e}
0x47be…47c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0184}
0x47c8…47dc               Head {h00=0x0010, h01=0x0050, text=»CRRIGT EQU *«, t00=0x002d, t01=0x018e}
0x47dc…480a               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x002e, t01=0x0012}
0x480a…481c               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x002e, t01=0x0040}
0x481c…4840               Head {h00=0x0020, h01=0x0050, text=» CWK A2,LBVDU END OF BUFFER?«, t00=0x002e, t01=0x0052}
0x4840…4858               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRR050 NO«, t00=0x002e, t01=0x0076}
0x4858…486a               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x002e, t01=0x008e}
0x486a…4882               Head {h00=0x0014, h01=0x0050, text=»CRR050 RF CRH100«, t00=0x002e, t01=0x00a0}
0x4882…4890               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00b8}
0x4890…489a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00c6}
0x489a…48de               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x002e, t01=0x00d0}
0x48de…48e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0114}
0x48e8…48f8               Head {h00=0x000c, h01=0x0050, text=»* CRDOWN«, t00=0x002e, t01=0x011e}
0x48f8…4902               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x012e}
0x4902…4942               Head {h00=0x003c, h01=0x0050, text=»* THE MODULE MOVES THE CURSOR TO NEXT ROW. SAME COLUMN. «, t00=0x002e, t01=0x0138}
0x4942…494c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0178}
0x494c…4990               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002e, t01=0x0182}
0x4990…499a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0036}
0x499a…49ae               Head {h00=0x0010, h01=0x0050, text=»CRDOWN EQU *«, t00=0x002f, t01=0x0040}
0x49ae…49d8               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x002f, t01=0x0054}
0x49d8…49ee               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LLINE«, t00=0x002f, t01=0x007e}
0x49ee…4a0e               Head {h00=0x001c, h01=0x0050, text=» CWK A2,LBVDU LAST LINE?«, t00=0x002f, t01=0x0094}
0x4a0e…4a26               Head {h00=0x0014, h01=0x0050, text=» RF(L) CRD050 NO«, t00=0x002f, t01=0x00b4}
0x4a26…4a3c               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LBVDU«, t00=0x002f, t01=0x00cc}
0x4a3c…4a54               Head {h00=0x0014, h01=0x0050, text=»CRD050 RF CRH100«, t00=0x002f, t01=0x00e2}
0x4a54…4a5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00fa}
0x4a5e…4aa4               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x002f, t01=0x0104}
0x4aa4…4aae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x014a}
0x4aae…4abc               Head {h00=0x000a, h01=0x0050, text=»* CRUP«, t00=0x002f, t01=0x0154}
0x4abc…4ac6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0162}
0x4ac6…4af2               Head {h00=0x0028, h01=0x0050, text=»* MOVE CURSOR ONE LINE UP. SAME COL.«, t00=0x002f, t01=0x016c}
0x4af2…4afc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0008}
0x4afc…4b42               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0030, t01=0x0012}
0x4b42…4b4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0058}
0x4b4c…4b5e               Head {h00=0x000e, h01=0x0050, text=»CRUP EQU *«, t00=0x0030, t01=0x0062}
0x4b5e…4b8c               Head {h00=0x002a, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x0030, t01=0x0074}
0x4b8c…4ba2               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,LLINE«, t00=0x0030, t01=0x00a2}
0x4ba2…4bc4               Head {h00=0x001e, h01=0x0050, text=» RF(NN) CRU050 UPMOST LINE«, t00=0x0030, t01=0x00b8}
0x4bc4…4bda               Head {h00=0x0012, h01=0x0050, text=» ADKL A2,LBVDU«, t00=0x0030, t01=0x00da}
0x4bda…4bf2               Head {h00=0x0014, h01=0x0050, text=»CRU050 RF CRH100«, t00=0x0030, t01=0x00f0}
0x4bf2…4c00               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0108}
0x4c00…4c0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0116}
0x4c0a…4c48               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0030, t01=0x0120}
0x4c48…4c52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x015e}
0x4c52…4c62               Head {h00=0x000c, h01=0x0050, text=»* CRHOME«, t00=0x0030, t01=0x0168}
0x4c62…4c6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0178}
0x4c6c…4c90               Head {h00=0x0020, h01=0x0050, text=»* HOME POSITIONING OF CURSOR«, t00=0x0030, t01=0x0182}
0x4c90…4c9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0016}
0x4c9a…4cd8               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0031, t01=0x0020}
0x4cd8…4ce2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x005e}
0x4ce2…4cf6               Head {h00=0x0010, h01=0x0050, text=»CRHOME EQU *«, t00=0x0031, t01=0x0068}
0x4cf6…4d08               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0031, t01=0x007c}
0x4d08…4d1c               Head {h00=0x0010, h01=0x0050, text=»CRH100 EQU *«, t00=0x0031, t01=0x008e}
0x4d1c…4d4a               Head {h00=0x002a, h01=0x0050, text=» ST A2,PCURS,TCABAS GET CURSOR BINARY «, t00=0x0031, t01=0x00a2}
0x4d4a…4d6e               Head {h00=0x0020, h01=0x0050, text=» CF A14,ATMASB UPDATE ATTRIB«, t00=0x0031, t01=0x00d0}
0x4d6e…4d94               Head {h00=0x0022, h01=0x0050, text=» CF A14,SETCUR DISPLAY CURSOR «, t00=0x0031, t01=0x00f4}
0x4d94…4da4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x011a}
0x4da4…4db2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x012a}
0x4db2…4dbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0138}
0x4dbc…4dfa               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0031, t01=0x0142}
0x4dfa…4e04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0180}
0x4e04…4e12               Head {h00=0x000a, h01=0x0050, text=»* CRNL«, t00=0x0031, t01=0x018a}
0x4e12…4e1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0008}
0x4e1c…4e52               Head {h00=0x0032, h01=0x0050, text=»* CURSOR IN FIRST UNPROTECTED POS ON NEW LINE «, t00=0x0032, t01=0x0012}
0x4e52…4e5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0048}
0x4e5c…4e9a               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0032, t01=0x0052}
0x4e9a…4ea4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0090}
0x4ea4…4eb6               Head {h00=0x000e, h01=0x0050, text=»CRNL EQU *«, t00=0x0032, t01=0x009a}
0x4eb6…4ee0               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0032, t01=0x00ac}
0x4ee0…4f00               Head {h00=0x001c, h01=0x0050, text=» ADKL A2,LLINE NEXT LINE«, t00=0x0032, t01=0x00d6}
0x4f00…4f16               Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x0032, t01=0x00f6}
0x4f16…4f2c               Head {h00=0x0012, h01=0x0050, text=» RF(L) CRN050 «, t00=0x0032, t01=0x010c}
0x4f2c…4f4a               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND «, t00=0x0032, t01=0x0122}
0x4f4a…4f54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0140}
0x4f54…4f72               Head {h00=0x001a, h01=0x0050, text=»* COMPUTE LEFTMOST POS«, t00=0x0032, t01=0x014a}
0x4f72…4f7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0168}
0x4f7c…4f94               Head {h00=0x0014, h01=0x0050, text=»CRN050 LDK A1,0 «, t00=0x0032, t01=0x0172}
0x4f94…4fb0               Head {h00=0x0018, h01=0x0050, text=»CRN100 SUKL A2,LLINE«, t00=0x0032, t01=0x018a}
0x4fb0…4fc6               Head {h00=0x0012, h01=0x0050, text=» RF(N) CRN120 «, t00=0x0033, t01=0x0016}
0x4fc6…4fdc               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,LLINE«, t00=0x0033, t01=0x002c}
0x4fdc…4fee               Head {h00=0x000e, h01=0x0050, text=» RB CRN100«, t00=0x0033, t01=0x0042}
0x4fee…5024               Head {h00=0x0032, h01=0x0050, text=»CRN120 ST A1,PCURS,TCABAS STORE CURSOR ADDRESS«, t00=0x0033, t01=0x0054}
0x5024…5032               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x008a}
0x5032…503a               Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0098}
0x503a…5084               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0033, t01=0x00a0}
0x5084…5096               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0033, t01=0x00ea}
0x5096…50c8               Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x0033, t01=0x00fc}
0x50c8…50da               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0033, t01=0x012e}
0x50da…5102               Head {h00=0x0024, h01=0x0050, text=» RF(Z) CRN130 NO ATTRIBUTE FOUND«, t00=0x0033, t01=0x0140}
0x5102…5116               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x0033, t01=0x0168}
0x5116…513a               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TAB PROTECTED FIELD «, t00=0x0033, t01=0x017c}
0x513a…516c               Head {h00=0x002e, h01=0x0050, text=» CW A2,PCURS,TCABAS CURSOR ON ATTRIBUTE ??«, t00=0x0034, t01=0x0010}
0x516c…5188               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN150 NO!! «, t00=0x0034, t01=0x0042}
0x5188…51b4               Head {h00=0x0028, h01=0x0050, text=» CWK A2,1919 LAST SCREEN POSITION?? «, t00=0x0034, t01=0x005e}
0x51b4…51d0               Head {h00=0x0018, h01=0x0050, text=» RF(NE) CRN140 NO!! «, t00=0x0034, t01=0x008a}
0x51d0…51ea               Head {h00=0x0016, h01=0x0050, text=»CRN130 LDKL A2,-1 «, t00=0x0034, t01=0x00a6}
0x51ea…5202               Head {h00=0x0014, h01=0x0050, text=»CRN140 ADK A2,1 «, t00=0x0034, t01=0x00c0}
0x5202…521e               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x0034, t01=0x00d8}
0x521e…524a               Head {h00=0x0028, h01=0x0050, text=»CRN150 CF A14,SETCUR POSITION CURSOR«, t00=0x0034, t01=0x00f4}
0x524a…525a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0034, t01=0x0120}
0x525a…52a6               Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0034, t01=0x0130}
0x52a6…52b4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x017c}
0x52b4…52be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x018a}
0x52be…52fa (53, 0, 400)  Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0035, t01=0x0004}
0x52fa…5304               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0040}
0x5304…5312               Head {h00=0x000a, h01=0x0050, text=»* TAB «, t00=0x0035, t01=0x004a}
0x5312…531c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0058}
0x531c…5352               Head {h00=0x0032, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHAR. LOCATION «, t00=0x0035, t01=0x0062}
0x5352…537e               Head {h00=0x0028, h01=0x0050, text=»* OF THE NEXT UNPROTECTED DATA FIELD«, t00=0x0035, t01=0x0098}
0x537e…5388               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00c4}
0x5388…53c4               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0035, t01=0x00ce}
0x53c4…53ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x010a}
0x53ce…5404               Head {h00=0x0032, h01=0x0050, text=»* A1=END OF BUFFER PAREM.    0=EOB NOT REACHED«, t00=0x0035, t01=0x0114}
0x5404…5416               Head {h00=0x000e, h01=0x0050, text=»*   2=EOB «, t00=0x0035, t01=0x014a}
0x5416…5436               Head {h00=0x001c, h01=0x0050, text=»*   3=ATTRIB. IN EOB POS«, t00=0x0035, t01=0x015c}
0x5436…5458               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x0035, t01=0x017c}
0x5458…546e               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTGR«, t00=0x0036, t01=0x000e}
0x546e…5478               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0024}
0x5478…548a               Head {h00=0x000e, h01=0x0050, text=»TAB EQU * «, t00=0x0036, t01=0x002e}
0x548a…549c               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x0036, t01=0x0040}
0x549c…54c6               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0036, t01=0x0052}
0x54c6…54f4               Head {h00=0x002a, h01=0x0050, text=»TAB100 CF A14,ATMASF SEARCH ATTRIBUTE «, t00=0x0036, t01=0x007c}
0x54f4…5514               Head {h00=0x001c, h01=0x0050, text=» CWK A1,0 END OF BUFFER?«, t00=0x0036, t01=0x00aa}
0x5514…552e               Head {h00=0x0016, h01=0x0050, text=» RF(G) TAB300 YES «, t00=0x0036, t01=0x00ca}
0x552e…5540               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0036, t01=0x00e4}
0x5540…5566               Head {h00=0x0022, h01=0x0050, text=»TAB150 ANK A3,/10 UNPROTECTED?«, t00=0x0036, t01=0x00f6}
0x5566…5580               Head {h00=0x0016, h01=0x0050, text=» RF(E) TAB200 YES «, t00=0x0036, t01=0x011c}
0x5580…55a0               Head {h00=0x001c, h01=0x0050, text=» RB TAB100 NEXT ATTRIB. «, t00=0x0036, t01=0x0136}
0x55a0…55c2               Head {h00=0x001e, h01=0x0050, text=»TAB200 ST A2,PCURS,TCABAS «, t00=0x0036, t01=0x0156}
0x55c2…55ec               Head {h00=0x0026, h01=0x0050, text=» CF A14,SETCUR DISPLAY NEW CURSOR «, t00=0x0036, t01=0x0178}
0x55ec…55fc               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0037, t01=0x0012}
0x55fc…5614               Head {h00=0x0014, h01=0x0050, text=»TAB300 LDK A2,0 «, t00=0x0037, t01=0x0022}
0x5614…5644               Head {h00=0x002c, h01=0x0050, text=» CWK A1,3 ATTRIBUTE IN LAST POSITION ?? «, t00=0x0037, t01=0x003a}
0x5644…5652               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x006a}
0x5652…5692               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0037, t01=0x0078}
0x5692…56ae               Head {h00=0x0018, h01=0x0050, text=» RF(NE) TAB350 NO!! «, t00=0x0037, t01=0x00b8}
0x56ae…56da               Head {h00=0x0028, h01=0x0050, text=» ANK A5,1 WHOLE BUFFER CONTROLLED ??«, t00=0x0037, t01=0x00d4}
0x56da…56f6               Head {h00=0x0018, h01=0x0050, text=» RB(Z) TAB200 YES!! «, t00=0x0037, t01=0x0100}
0x56f6…570a               Head {h00=0x0010, h01=0x0050, text=» SUR A5,A5  «, t00=0x0037, t01=0x011c}
0x570a…572c               Head {h00=0x001e, h01=0x0050, text=» RB TAB150 CHECK ATTRIBUTE«, t00=0x0037, t01=0x0130}
0x572c…5740               Head {h00=0x0010, h01=0x0050, text=»TAB350 EQU *«, t00=0x0037, t01=0x0152}
0x5740…5780               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0037, t01=0x0166}
0x5780…57a8               Head {h00=0x0024, h01=0x0050, text=» ANK A5,1 WHOLE BUFF. CONTROLED?«, t00=0x0038, t01=0x0016}
0x57a8…57c0               Head {h00=0x0014, h01=0x0050, text=» RF(G) TAB400 NO«, t00=0x0038, t01=0x003e}
0x57c0…57f4               Head {h00=0x0030, h01=0x0050, text=» RB TAB200 ALL PROT. OR NON-FORMATTED BUFF. «, t00=0x0038, t01=0x0056}
0x57f4…580c               Head {h00=0x0014, h01=0x0050, text=»TAB400 LDK A5,0 «, t00=0x0038, t01=0x008a}
0x580c…581e               Head {h00=0x000e, h01=0x0050, text=» RB TAB100«, t00=0x0038, t01=0x00a2}
0x581e…582c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x00b4}
0x582c…5836               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00c2}
0x5836…587a               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0038, t01=0x00cc}
0x587a…5884               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0110}
0x5884…5892               Head {h00=0x000a, h01=0x0050, text=»* DUP «, t00=0x0038, t01=0x011a}
0x5892…589c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0128}
0x589c…58b4               Head {h00=0x0014, h01=0x0050, text=»* DUPLICATE KEY «, t00=0x0038, t01=0x0132}
0x58b4…58f2               Head {h00=0x003a, h01=0x0050, text=»* OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x0038, t01=0x014a}
0x58f2…5930               Head {h00=0x003a, h01=0x0050, text=»* TO BE ENTERED INTO THE DISPLAY BUFFER AND A STANDARD«, t00=0x0038, t01=0x0188}
0x5930…595c               Head {h00=0x0028, h01=0x0050, text=»* TAB KEY OPERATION TO BE PERFORMED «, t00=0x0039, t01=0x0036}
0x595c…5966               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0062}
0x5966…59aa               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0039, t01=0x006c}
0x59aa…59b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00b0}
0x59b4…59c6               Head {h00=0x000e, h01=0x0050, text=»DUP EQU * «, t00=0x0039, t01=0x00ba}
0x59c6…59f0               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0039, t01=0x00cc}
0x59f0…5a2a               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE«, t00=0x0039, t01=0x00f6}
0x5a2a…5a40               Head {h00=0x0012, h01=0x0050, text=» LDK A2,DUPCH «, t00=0x0039, t01=0x0130}
0x5a40…5a74               Head {h00=0x0030, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFF. ADDR.«, t00=0x0039, t01=0x0146}
0x5a74…5a86               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x0039, t01=0x017a}
0x5a86…5a9a               Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x0039, t01=0x018c}
0x5a9a…5aae               Head {h00=0x0010, h01=0x0050, text=» CF A14,TAB «, t00=0x003a, t01=0x0010}
0x5aae…5abe               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003a, t01=0x0024}
0x5abe…5acc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0034}
0x5acc…5ad6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0042}
0x5ad6…5b1a               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003a, t01=0x004c}
0x5b1a…5b24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0090}
0x5b24…5b3e               Head {h00=0x0016, h01=0x0050, text=»*       FIELD MARK«, t00=0x003a, t01=0x009a}
0x5b3e…5b48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00b4}
0x5b48…5b8c               Head {h00=0x0040, h01=0x0050, text=»*       OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE«, t00=0x003a, t01=0x00be}
0x5b8c…5bcc               Head {h00=0x003c, h01=0x0050, text=»*       TO BE ENTERED IN THE DISPLAY BUFFER IN ADDITION «, t00=0x003a, t01=0x0102}
0x5bcc…5bfc               Head {h00=0x002c, h01=0x0050, text=»*       TO THE DC CHARACTER TRANSMITTED «, t00=0x003a, t01=0x0142}
0x5bfc…5c06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0172}
0x5c06…5c48               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003a, t01=0x017c}
0x5c48…5c52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x002e}
0x5c52…5c66               Head {h00=0x0010, h01=0x0050, text=»FLDMRK EQU *«, t00=0x003b, t01=0x0038}
0x5c66…5c8e               Head {h00=0x0024, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE??«, t00=0x003b, t01=0x004c}
0x5c8e…5cc8               Head {h00=0x0036, h01=0x0050, text=» ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE«, t00=0x003b, t01=0x0074}
0x5cc8…5cdc               Head {h00=0x0010, h01=0x0050, text=» LDK A2,FMCH«, t00=0x003b, t01=0x00ae}
0x5cdc…5d12               Head {h00=0x0032, h01=0x0050, text=» LD A3,ECBKB+ECBBA,CREBAS GET KB BUFFER ADDR. «, t00=0x003b, t01=0x00c2}
0x5d12…5d24               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x003b, t01=0x00f8}
0x5d24…5d38               Head {h00=0x0010, h01=0x0050, text=» CF A14,NUM «, t00=0x003b, t01=0x010a}
0x5d38…5d48               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x011e}
0x5d48…5d56               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x012e}
0x5d56…5d60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x013c}
0x5d60…5da2               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003b, t01=0x0146}
0x5da2…5dac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0188}
0x5dac…5dc2 (60, 0, 400)  Head {h00=0x0012, h01=0x0050, text=»*       RDHOME«, t00=0x003c, t01=0x0004}
0x5dc2…5dcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x001a}
0x5dcc…5dea               Head {h00=0x001a, h01=0x0050, text=»*       READY HOME KEY«, t00=0x003c, t01=0x0024}
0x5dea…5e26               Head {h00=0x0038, h01=0x0050, text=»*       OPERATION OF THIS KEY CAUSES THE CURSOR TOBE«, t00=0x003c, t01=0x0042}
0x5e26…5e64               Head {h00=0x003a, h01=0x0050, text=»*        POSITIONED AT THE FIRST UNPROTECTED CHARACTER«, t00=0x003c, t01=0x007e}
0x5e64…5e82               Head {h00=0x001a, h01=0x0050, text=»*       ON THE SCREEN «, t00=0x003c, t01=0x00bc}
0x5e82…5e8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00da}
0x5e8c…5ecc               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003c, t01=0x00e4}
0x5ecc…5ed6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0124}
0x5ed6…5ef2               Head {h00=0x0018, h01=0x0050, text=»RDHOME LDKL A4,BVDU «, t00=0x003c, t01=0x012e}
0x5ef2…5f1c               Head {h00=0x0026, h01=0x0050, text=» ADR A4,TCABAS VDU BUFFER ADDRESS «, t00=0x003c, t01=0x014a}
0x5f1c…5f4c               Head {h00=0x002c, h01=0x0050, text=» LC A2,1919,A4 GET LAST SCREEN CHARACTER«, t00=0x003c, t01=0x0174}
0x5f4c…5f60               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003d, t01=0x0014}
0x5f60…5f74               Head {h00=0x0010, h01=0x0050, text=» CWK A2,/20 «, t00=0x003d, t01=0x0028}
0x5f74…5f8a               Head {h00=0x0012, h01=0x0050, text=» RF(NL) RDH10 «, t00=0x003d, t01=0x003c}
0x5f8a…5f9e               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x003d, t01=0x0052}
0x5f9e…5fc6               Head {h00=0x0024, h01=0x0050, text=» ABL(Z) CRHOME UNPROTECTED FIELD«, t00=0x003d, t01=0x0066}
0x5fc6…5fe4               Head {h00=0x001a, h01=0x0050, text=»RDH10 CM PCURS,TCABAS «, t00=0x003d, t01=0x008e}
0x5fe4…6014               Head {h00=0x002c, h01=0x0050, text=» CF A14,TAB SEARCH 1ST UNPROTECTED FIELD«, t00=0x003d, t01=0x00ac}
0x6014…6024               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003d, t01=0x00dc}
0x6024…6032               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x00ec}
0x6032…603c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00fa}
0x603c…607a               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003d, t01=0x0104}
0x607a…6084               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0142}
0x6084…6094               Head {h00=0x000c, h01=0x0050, text=»* BAKTAB«, t00=0x003d, t01=0x014c}
0x6094…609e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x015c}
0x609e…60d8               Head {h00=0x0036, h01=0x0050, text=»* MOVE THE CURSOR TO THE FIRST CHARACTER LOCATION «, t00=0x003d, t01=0x0166}
0x60d8…610e               Head {h00=0x0032, h01=0x0050, text=»* OF THE NEXT PRECIDING UNPROTECTED DATA FIELD«, t00=0x003e, t01=0x0010}
0x610e…6118               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0046}
0x6118…6154               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x003e, t01=0x0050}
0x6154…615e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x008c}
0x615e…6180               Head {h00=0x001e, h01=0x0050, text=»* A2=CURSOR BINARY ADDRESS«, t00=0x003e, t01=0x0096}
0x6180…6196               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x003e, t01=0x00b8}
0x6196…61aa               Head {h00=0x0010, h01=0x0050, text=»BAKTAB EQU *«, t00=0x003e, t01=0x00ce}
0x61aa…61bc               Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x003e, t01=0x00e2}
0x61bc…61e6               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x003e, t01=0x00f4}
0x61e6…620c               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x003e, t01=0x011e}
0x620c…622e               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR? «, t00=0x003e, t01=0x0144}
0x622e…6248               Head {h00=0x0016, h01=0x0050, text=» RF(NG) BAK100 YES«, t00=0x003e, t01=0x0166}
0x6248…626e               Head {h00=0x0022, h01=0x0050, text=» CWK A2,0 UPPER LEFTMOST POS? «, t00=0x003e, t01=0x0180}
0x626e…6288               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x003f, t01=0x0016}
0x6288…629a               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003f, t01=0x0030}
0x629a…62c6               Head {h00=0x0028, h01=0x0050, text=»BAK100 CWK A2,0 UPPER LEFTMOST POS? «, t00=0x003f, t01=0x0042}
0x62c6…62e0               Head {h00=0x0016, h01=0x0050, text=» RF(E) BAK400 YES «, t00=0x003f, t01=0x006e}
0x62e0…62f8               Head {h00=0x0014, h01=0x0050, text=»BAK200 SUK A2,1 «, t00=0x003f, t01=0x0088}
0x62f8…6320               Head {h00=0x0024, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE «, t00=0x003f, t01=0x00a0}
0x6320…6364               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003f, t01=0x00c8}
0x6364…6376               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003f, t01=0x010c}
0x6376…6398               Head {h00=0x001e, h01=0x0050, text=» RF(Z) BAK400 NO ATTRIBUTE«, t00=0x003f, t01=0x011e}
0x6398…63d0               Head {h00=0x0034, h01=0x0050, text=» RF(N) BAK250 ATTRIBUTE FOUND. NOT IN LAST POS. «, t00=0x003f, t01=0x0140}
0x63d0…6404               Head {h00=0x0030, h01=0x0050, text=» SUR A2,A2 ATTRIBUTE FOUND IN LAST POSITION «, t00=0x003f, t01=0x0178}
0x6404…6416               Head {h00=0x000e, h01=0x0050, text=» RF BAK300«, t00=0x0040, t01=0x001c}
0x6416…642a               Head {h00=0x0010, h01=0x0050, text=»BAK250 EQU *«, t00=0x0040, t01=0x002e}
0x642a…646c               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0040, t01=0x0042}
0x646c…648a               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x0040, t01=0x0084}
0x648a…64a4               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK100 YES«, t00=0x0040, t01=0x00a2}
0x64a4…64b6               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0040, t01=0x00bc}
0x64b6…64d8               Head {h00=0x001e, h01=0x0050, text=»BAK300 ST A2,PCURS,TCABAS «, t00=0x0040, t01=0x00ce}
0x64d8…64fa               Head {h00=0x001e, h01=0x0050, text=» CF A14,SETCUR SET CURSOR «, t00=0x0040, t01=0x00f0}
0x64fa…650a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0040, t01=0x0112}
0x650a…6538               Head {h00=0x002a, h01=0x0050, text=»BAK400 SUK A5,1 WHOLE BUFF CONTROLLED?«, t00=0x0040, t01=0x0122}
0x6538…6552               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) BAK300 YES«, t00=0x0040, t01=0x0150}
0x6552…657e               Head {h00=0x0028, h01=0x0050, text=» LDKL A2,LBVDU-1 END BUFFER ADDRESS «, t00=0x0040, t01=0x016a}
0x657e…65a4               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFF CHAR. «, t00=0x0041, t01=0x0008}
0x65a4…65c8               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x0041, t01=0x002e}
0x65c8…65e0               Head {h00=0x0014, h01=0x0050, text=» RB(G) BAK200 NO«, t00=0x0041, t01=0x0052}
0x65e0…65fe               Head {h00=0x001a, h01=0x0050, text=» ANK A3,/10 PROTECTED?«, t00=0x0041, t01=0x006a}
0x65fe…6618               Head {h00=0x0016, h01=0x0050, text=» RB(NE) BAK200 YES«, t00=0x0041, t01=0x0088}
0x6618…664a               Head {h00=0x002e, h01=0x0050, text=» ST A3,ATTRIB,TCABAS UPDATE NEW ATTRIBUTE «, t00=0x0041, t01=0x00a2}
0x664a…6666               Head {h00=0x0018, h01=0x0050, text=» ST A2,CURATT,TCABAS«, t00=0x0041, t01=0x00d4}
0x6666…66ae               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0041, t01=0x00f0}
0x66ae…66c0               Head {h00=0x000e, h01=0x0050, text=» RB BAK200«, t00=0x0041, t01=0x0138}
0x66c0…6708               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0041, t01=0x014a}
0x6708…6716 (66, 0, 398)  Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x0004}
0x6716…6720               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0012}
0x6720…6762               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0042, t01=0x001c}
0x6762…676c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x005e}
0x676c…677a               Head {h00=0x000a, h01=0x0050, text=»* CHAR«, t00=0x0042, t01=0x0068}
0x677a…6784               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0076}
0x6784…67c2               Head {h00=0x003a, h01=0x0050, text=»* ALPHABETIC AND SPECIAL CHAR UPDATING AND DISPLAYING «, t00=0x0042, t01=0x0080}
0x67c2…67cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00be}
0x67cc…680e               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0042, t01=0x00c8}
0x680e…6818               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x010a}
0x6818…682c               Head {h00=0x0010, h01=0x0050, text=»LCASPW EQU *«, t00=0x0042, t01=0x0114}
0x682c…685c               Head {h00=0x002c, h01=0x0050, text=» SUK A2,/50 CONVERT TO LOWER CASE P - W «, t00=0x0042, t01=0x0128}
0x685c…687e               Head {h00=0x001e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS«, t00=0x0042, t01=0x0158}
0x687e…6888               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x017a}
0x6888…689a               Head {h00=0x000e, h01=0x0050, text=»CHAR EQU *«, t00=0x0042, t01=0x0184}
0x689a…68c4               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0043, t01=0x0008}
0x68c4…68f6               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x0043, t01=0x0032}
0x68f6…691a               Head {h00=0x0020, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIB?«, t00=0x0043, t01=0x0064}
0x691a…6934               Head {h00=0x0016, h01=0x0050, text=» RF(E) CHA300 YES «, t00=0x0043, t01=0x0088}
0x6934…696a               Head {h00=0x0032, h01=0x0050, text=»CHA100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0043, t01=0x00a2}
0x696a…697c               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0043, t01=0x00d8}
0x697c…69a2               Head {h00=0x0022, h01=0x0050, text=» ANK A4,/10 PROTECTRED FIELD? «, t00=0x0043, t01=0x00ea}
0x69a2…69bc               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CHA300 YES«, t00=0x0043, t01=0x0110}
0x69bc…69d4               Head {h00=0x0014, h01=0x0050, text=»CHA200 LDR A4,A3«, t00=0x0043, t01=0x012a}
0x69d4…69f6               Head {h00=0x001e, h01=0x0050, text=» ANK A4,/8 NUMERIC FIELD? «, t00=0x0043, t01=0x0142}
0x69f6…6a0e               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x0043, t01=0x0164}
0x6a0e…6a3e               Head {h00=0x002c, h01=0x0050, text=»CHA300 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x0043, t01=0x017c}
0x6a3e…6a48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x001c}
0x6a48…6a5a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0044, t01=0x0026}
0x6a5a…6a80               Head {h00=0x0022, h01=0x0050, text=»* UPDATING OF FIELD SEPARATOR «, t00=0x0044, t01=0x0038}
0x6a80…6a90               Head {h00=0x000c, h01=0x0050, text=»*    DK4«, t00=0x0044, t01=0x005e}
0x6a90…6a9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x006e}
0x6a9a…6ab4               Head {h00=0x0016, h01=0x0050, text=»CHARFS EQU *  DK4 «, t00=0x0044, t01=0x0078}
0x6ab4…6ace               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  DK4«, t00=0x0044, t01=0x0092}
0x6ace…6af6               Head {h00=0x0024, h01=0x0050, text=» LDK A2,/26 LOAD CHARACTER & DK4«, t00=0x0044, t01=0x00ac}
0x6af6…6b38               Head {h00=0x003e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS RESTORE CHARACTER IN BUFFER DK4«, t00=0x0044, t01=0x00d4}
0x6b38…6b4a               Head {h00=0x000e, h01=0x0050, text=» XIF   DK4«, t00=0x0044, t01=0x0116}
0x6b4a…6b6c               Head {h00=0x001e, h01=0x0050, text=» RB CHAR  DISPLAY CHAR DK4«, t00=0x0044, t01=0x0128}
0x6b6c…6b76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x014a}
0x6b76…6b84               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x0154}
0x6b84…6bcc               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0044, t01=0x0162}
0x6bcc…6bd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x001a}
0x6bd6…6c00               Head {h00=0x0026, h01=0x0050, text=»*   Z E R O : 3    TRIPLE ZERO KEY«, t00=0x0045, t01=0x0024}
0x6c00…6c2c               Head {h00=0x0028, h01=0x0050, text=»*   Z E R O : 2     DOUBLE ZERO KEY «, t00=0x0045, t01=0x004e}
0x6c2c…6c36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x007a}
0x6c36…6c70               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0045, t01=0x0084}
0x6c70…6c78               Head {h00=0x0004, h01=0x0050, t00=0x0045, t01=0x00be}
0x6c78…6c8c               Head {h00=0x0010, h01=0x0050, text=»ZERO:3 EQU *«, t00=0x0045, t01=0x00c6}
0x6c8c…6cb0               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0045, t01=0x00da}
0x6cb0…6cec               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0045, t01=0x00fe}
0x6cec…6d12               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0045, t01=0x013a}
0x6d12…6d1a               Head {h00=0x0004, h01=0x0050, t00=0x0045, t01=0x0160}
0x6d1a…6d2e               Head {h00=0x0010, h01=0x0050, text=»ZERO:2 EQU *«, t00=0x0045, t01=0x0168}
0x6d2e…6d52               Head {h00=0x0020, h01=0x0050, text=» LDK A1,X'30' CHARACTER ZERO«, t00=0x0045, t01=0x017c}
0x6d52…6d8e               Head {h00=0x0038, h01=0x0050, text=» SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER«, t00=0x0046, t01=0x0010}
0x6d8e…6db4               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0046, t01=0x004c}
0x6db4…6dda               Head {h00=0x0022, h01=0x0050, text=» CF A14,NUM DISPLAY CHARACTER «, t00=0x0046, t01=0x0072}
0x6dda…6df2               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0046, t01=0x0098}
0x6df2…6dfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00b0}
0x6dfc…6e3e               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0046, t01=0x00ba}
0x6e3e…6e48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00fc}
0x6e48…6e56               Head {h00=0x000a, h01=0x0050, text=»* NUM «, t00=0x0046, t01=0x0106}
0x6e56…6e60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0114}
0x6e60…6e86               Head {h00=0x0022, h01=0x0050, text=»* DISPLAY AND UPDATE NUMERICS «, t00=0x0046, t01=0x011e}
0x6e86…6e90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0144}
0x6e90…6ed2               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0046, t01=0x014e}
0x6ed2…6edc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0190}
0x6edc…6ef0               Head {h00=0x0010, h01=0x0050, text=»NUMCOM EQU *«, t00=0x0047, t01=0x000a}
0x6ef0…6f04               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2C «, t00=0x0047, t01=0x001e}
0x6f04…6f26               Head {h00=0x001e, h01=0x0050, text=» SC* A2,ECBKB+ECBBA,CREBAS«, t00=0x0047, t01=0x0032}
0x6f26…6f30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0054}
0x6f30…6f42               Head {h00=0x000e, h01=0x0050, text=»NUM EQU * «, t00=0x0047, t01=0x005e}
0x6f42…6f6c               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x0047, t01=0x0070}
0x6f6c…6f9e               Head {h00=0x002e, h01=0x0050, text=» LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS«, t00=0x0047, t01=0x009a}
0x6f9e…6fc6               Head {h00=0x0024, h01=0x0050, text=» CWR A2,A3 CURSOR ON ATTRIBUTE? «, t00=0x0047, t01=0x00cc}
0x6fc6…6fe0               Head {h00=0x0016, h01=0x0050, text=» RF(E) NUM200 YES «, t00=0x0047, t01=0x00f4}
0x6fe0…7016               Head {h00=0x0032, h01=0x0050, text=»NUM100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x0047, t01=0x010e}
0x7016…7028               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0047, t01=0x0144}
0x7028…704c               Head {h00=0x0020, h01=0x0050, text=» ANK A4,/10 PROTECTED FIELD?«, t00=0x0047, t01=0x0156}
0x704c…7064               Head {h00=0x0014, h01=0x0050, text=» RF(E) ANCOMM NO«, t00=0x0047, t01=0x017a}
0x7064…7094 (72, 0, 400)  Head {h00=0x002c, h01=0x0050, text=»NUM200 ABL ERROR NOT ALLOWED DISPLAY POS«, t00=0x0048, t01=0x0004}
0x7094…70a2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0034}
0x70a2…70ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0042}
0x70ac…70ee               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0048, t01=0x004c}
0x70ee…70f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x008e}
0x70f8…7108               Head {h00=0x000c, h01=0x0050, text=»* ANCOMM«, t00=0x0048, t01=0x0098}
0x7108…7112               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00a8}
0x7112…7152               Head {h00=0x003c, h01=0x0050, text=»* COMMON SUBMODULE FOR ALPHANUMERIC CHAR. DISPLAYING AND«, t00=0x0048, t01=0x00b2}
0x7152…7164               Head {h00=0x000e, h01=0x0050, text=»* UPDATING«, t00=0x0048, t01=0x00f2}
0x7164…716e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0104}
0x716e…71b0               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0048, t01=0x010e}
0x71b0…71ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0150}
0x71ba…71ce               Head {h00=0x0010, h01=0x0050, text=»ANCOMM EQU *«, t00=0x0048, t01=0x015a}
0x71ce…71f4               Head {h00=0x0022, h01=0x0050, text=» LC* A4,ECBKB+ECBBA,CREBAS  =1«, t00=0x0048, t01=0x016e}
0x71f4…7208 (73, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»ANC005 EQU *«, t00=0x0049, t01=0x0004}
0x7208…721e               Head {h00=0x0012, h01=0x0050, text=» LDKL A6,BVDU «, t00=0x0049, t01=0x0018}
0x721e…7234               Head {h00=0x0012, h01=0x0050, text=» ADR A6,TCABAS«, t00=0x0049, t01=0x002e}
0x7234…7246               Head {h00=0x000e, h01=0x0050, text=» ADR A6,A2«, t00=0x0049, t01=0x0044}
0x7246…724e               Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x0056}
0x724e…7278               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x0049, t01=0x005e}
0x7278…7294               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ANC010 YES!!«, t00=0x0049, t01=0x0088}
0x7294…72b6               Head {h00=0x001e, h01=0x0050, text=» SCR A4,A6 UPDATE VDU BUFF«, t00=0x0049, t01=0x00a4}
0x72b6…72e4               Head {h00=0x002a, h01=0x0050, text=»ANC010 LDR A7,A6 SAVE CURSOR POSITION «, t00=0x0049, t01=0x00c6}
0x72e4…7300               Head {h00=0x0018, h01=0x0050, text=» LD A5,CURATT,TCABAS«, t00=0x0049, t01=0x00f4}
0x7300…732c               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0049, t01=0x0110}
0x732c…7346               Head {h00=0x0016, h01=0x0050, text=» RF(E) ANC100 YES «, t00=0x0049, t01=0x013c}
0x7346…736a               Head {h00=0x0020, h01=0x0050, text=» SUR A6,A2 BVDU START ADDR. «, t00=0x0049, t01=0x0156}
0x736a…7388               Head {h00=0x001a, h01=0x0050, text=» ADR A6,A5 ATTRIB. POS«, t00=0x0049, t01=0x017a}
0x7388…73b8               Head {h00=0x002c, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR «, t00=0x004a, t01=0x0008}
0x73b8…73d4               Head {h00=0x0018, h01=0x0050, text=» ORK A3,1 MDT-BIT ON«, t00=0x004a, t01=0x0038}
0x73d4…73e6               Head {h00=0x000e, h01=0x0050, text=» SCR A3,A6«, t00=0x004a, t01=0x0054}
0x73e6…73fa               Head {h00=0x0010, h01=0x0050, text=»ANC100 EQU *«, t00=0x004a, t01=0x0066}
0x73fa…7412               Head {h00=0x0014, h01=0x0050, text=» IFT IN:DL=1  =3«, t00=0x004a, t01=0x007a}
0x7412…743c               Head {h00=0x0026, h01=0x0050, text=» LD A1,MODE,TCABAS INSERT MODE ?? «, t00=0x004a, t01=0x0092}
0x743c…7456               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC120 NO!!«, t00=0x004a, t01=0x00bc}
0x7456…748a               Head {h00=0x0030, h01=0x0050, text=» LCR A1,A7 GET CHARACTER AT CURSOR POSITION «, t00=0x004a, t01=0x00d6}
0x748a…749e               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/7F «, t00=0x004a, t01=0x010a}
0x749e…74ba               Head {h00=0x0018, h01=0x0050, text=» CWK A1,NULL NULL?? «, t00=0x004a, t01=0x011e}
0x74ba…74d6               Head {h00=0x0018, h01=0x0050, text=» RF(NE) INS:10 NO!! «, t00=0x004a, t01=0x013a}
0x74d6…74fe               Head {h00=0x0024, h01=0x0050, text=» SCR A4,A7 STORE INPUT CHARACTER«, t00=0x004a, t01=0x0156}
0x74fe…7510               Head {h00=0x000e, h01=0x0050, text=» XIF   =3 «, t00=0x004a, t01=0x017e}
0x7510…7524               Head {h00=0x0010, h01=0x0050, text=»ANC120 EQU *«, t00=0x004a, t01=0x0190}
0x7524…752c               Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x0014}
0x752c…7562               Head {h00=0x0032, h01=0x0050, text=» LDK A5,/2B CURSOR NOT MOVED BEFORE DISPLAYING«, t00=0x004b, t01=0x001c}
0x7562…7586               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBVDU+ECBBA,CREBAS  «, t00=0x004b, t01=0x0052}
0x7586…759e               Head {h00=0x0014, h01=0x0050, text=» SC A5,1,A1  =1 «, t00=0x004b, t01=0x0076}
0x759e…75b2               Head {h00=0x0010, h01=0x0050, text=» LDK A5,/1E «, t00=0x004b, t01=0x008e}
0x75b2…75cc               Head {h00=0x0016, h01=0x0050, text=» ADK A1,2 NEXT POS«, t00=0x004b, t01=0x00a2}
0x75cc…75f8               Head {h00=0x0028, h01=0x0050, text=» SCR A5,A1 LOW INT, STORE IN BUFFER «, t00=0x004b, t01=0x00bc}
0x75f8…760a               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A3«, t00=0x004b, t01=0x00e8}
0x760a…7632               Head {h00=0x0024, h01=0x0050, text=» ANK A3,/4 STANDARD DISPLAYING? «, t00=0x004b, t01=0x00fa}
0x7632…764c               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC200 YES «, t00=0x004b, t01=0x0122}
0x764c…7676               Head {h00=0x0026, h01=0x0050, text=» ANK A6,/2 INTENSIFIED DISPLAYING?«, t00=0x004b, t01=0x013c}
0x7676…7690               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ANC150 YES «, t00=0x004b, t01=0x0166}
0x7690…76ae               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 LOAD SPACE«, t00=0x004b, t01=0x0180}
0x76ae…76d0               Head {h00=0x001e, h01=0x0050, text=» RF ANC250 NON DISPLAYING «, t00=0x004c, t01=0x000e}
0x76d0…76fc               Head {h00=0x0028, h01=0x0050, text=»ANC150 LDK A5,/1F SET HIGH INTENSITY«, t00=0x004c, t01=0x0030}
0x76fc…771e               Head {h00=0x001e, h01=0x0050, text=» SCR A5,A1 STORE IN BUFFER«, t00=0x004c, t01=0x005c}
0x771e…774a               Head {h00=0x0028, h01=0x0050, text=»ANC200 LDR A2,A4 UPDATE A2 WITH CHAR«, t00=0x004c, t01=0x007e}
0x774a…777e               Head {h00=0x0030, h01=0x0050, text=»ANC250 CF A14,WCHAR DISPLAY CHAR AND CURSOR «, t00=0x004c, t01=0x00aa}
0x777e…77a8               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS GET CURSOR POS«, t00=0x004c, t01=0x00de}
0x77a8…77ba               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x004c, t01=0x0108}
0x77ba…77ce               Head {h00=0x0010, h01=0x0050, text=»ANC252 EQU *«, t00=0x004c, t01=0x011a}
0x77ce…77e4               Head {h00=0x0012, h01=0x0050, text=» CWK A2,LBVDU «, t00=0x004c, t01=0x012e}
0x77e4…77fa               Head {h00=0x0012, h01=0x0050, text=» RF(NE) ANC255«, t00=0x004c, t01=0x0144}
0x77fa…780c               Head {h00=0x000e, h01=0x0050, text=» LDKL A2,0«, t00=0x004c, t01=0x015a}
0x780c…7820               Head {h00=0x0010, h01=0x0050, text=»ANC255 EQU *«, t00=0x004c, t01=0x016c}
0x7820…783c               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x004c, t01=0x0180}
0x783c…7862               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x004d, t01=0x000c}
0x7862…7886               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR? «, t00=0x004d, t01=0x0032}
0x7886…789e               Head {h00=0x0014, h01=0x0050, text=» RF(G) ANC300 NO«, t00=0x004d, t01=0x0056}
0x789e…78a6               Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x006e}
0x78a6…78d2               Head {h00=0x0028, h01=0x0050, text=» CF A14,TAB SKIP TO NEXT UNPROTECTED«, t00=0x004d, t01=0x0076}
0x78d2…78e6               Head {h00=0x0010, h01=0x0050, text=»ANC300 EQU *«, t00=0x004d, t01=0x00a2}
0x78e6…790a               Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBCW,A8 CONTROL WORD«, t00=0x004d, t01=0x00b6}
0x790a…792e               Head {h00=0x0020, h01=0x0050, text=» ANK A1,X'FF' LINE POSITION «, t00=0x004d, t01=0x00da}
0x792e…795a               Head {h00=0x0028, h01=0x0050, text=» SUK A1,80 LAST POSITION ON LINE ?? «, t00=0x004d, t01=0x00fe}
0x795a…7976               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ANC350 NO!!!«, t00=0x004d, t01=0x012a}
0x7976…79b4               Head {h00=0x003a, h01=0x0050, text=» CF A14,SETCUR POSITION CURSOR TO 1:ST POS. NEXT LINE «, t00=0x004d, t01=0x0146}
0x79b4…79c8               Head {h00=0x0010, h01=0x0050, text=»ANC350 EQU *«, t00=0x004d, t01=0x0184}
0x79c8…79d8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004e, t01=0x0008}
0x79d8…79ec               Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x004e, t01=0x0018}
0x79ec…79fa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x002c}
0x79fa…7a02               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x003a}
0x7a02…7a3e               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x004e, t01=0x0042}
0x7a3e…7a48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x007e}
0x7a48…7a88               Head {h00=0x003c, h01=0x0050, text=»*   DELETE CHARACTER AT CURSOR POSITION. SHIFT CARACTERS«, t00=0x004e, t01=0x0088}
0x7a88…7aba               Head {h00=0x002e, h01=0x0050, text=»*   AT SAME LINE ONE POSITION TO THE LEFT «, t00=0x004e, t01=0x00c8}
0x7aba…7ac4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00fa}
0x7ac4…7b08               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x004e, t01=0x0104}
0x7b08…7b10               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x0148}
0x7b10…7b24               Head {h00=0x0010, h01=0x0050, text=»DELETE EQU *«, t00=0x004e, t01=0x0150}
0x7b24…7b38               Head {h00=0x0010, h01=0x0050, text=» LDKL A6,-1 «, t00=0x004e, t01=0x0164}
0x7b38…7b62               Head {h00=0x0026, h01=0x0050, text=» LD A2,PCURS,TCABAS CURSOR ADDRESS«, t00=0x004e, t01=0x0178}
0x7b62…7b8e               Head {h00=0x0028, h01=0x0050, text=»DEL:10 ADK A6,80 END OF LINE POINTER«, t00=0x004f, t01=0x0012}
0x7b8e…7bc0               Head {h00=0x002e, h01=0x0050, text=» CWR A6,A2 LAST POSITION ON CURRENT LINE??«, t00=0x004f, t01=0x003e}
0x7bc0…7be8               Head {h00=0x0024, h01=0x0050, text=» RB(L) DEL:10 NO!! TRY NEXT LINE«, t00=0x004f, t01=0x0070}
0x7be8…7bf0               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x0098}
0x7bf0…7c1e               Head {h00=0x002a, h01=0x0050, text=» CF A14,S:ATT SEARCH ATTRIBUTE FORWARD«, t00=0x004f, t01=0x00a0}
0x7c1e…7c42               Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 ATTRIBUTE FOUND ??«, t00=0x004f, t01=0x00ce}
0x7c42…7c5c               Head {h00=0x0016, h01=0x0050, text=» RF(Z) DEL:20 NO!!«, t00=0x004f, t01=0x00f2}
0x7c5c…7c8e               Head {h00=0x002e, h01=0x0050, text=» CWR A2,A6 ATTRIBUTE AFTER END OF LINE ?? «, t00=0x004f, t01=0x010c}
0x7c8e…7caa               Head {h00=0x0018, h01=0x0050, text=» RF(G) DEL:20 YES!! «, t00=0x004f, t01=0x013e}
0x7caa…7cca               Head {h00=0x001c, h01=0x0050, text=» SUK A2,1 SKIP ATTRIBUTE«, t00=0x004f, t01=0x015a}
0x7cca…7cdc               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A2«, t00=0x004f, t01=0x017a}
0x7cdc…7cf4               Head {h00=0x0014, h01=0x0050, text=»DEL:20 LDR A2,A6«, t00=0x004f, t01=0x018c}
0x7cf4…7cfc               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x0014}
0x7cfc…7d04               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x001c}
0x7d04…7d18               Head {h00=0x0010, h01=0x0050, text=» LDK A1,BVDU«, t00=0x0050, t01=0x0024}
0x7d18…7d46               Head {h00=0x002a, h01=0x0050, text=» ADR A1,TCABAS ABSOLUTE BUFFER ADDRESS«, t00=0x0050, t01=0x0038}
0x7d46…7d6a               Head {h00=0x0020, h01=0x0050, text=» ADR A2,A1 END OF FIELD/LINE«, t00=0x0050, t01=0x0066}
0x7d6a…7d96               Head {h00=0x0028, h01=0x0050, text=» AD A1,PCURS,TCABAS CURSOR POSITION «, t00=0x0050, t01=0x008a}
0x7d96…7d9e               Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x00b6}
0x7d9e…7dd0               Head {h00=0x002e, h01=0x0050, text=»DEL:30 CWR A2,A1 ALL CHARACTERS SHIFTED ??«, t00=0x0050, t01=0x00be}
0x7dd0…7dec               Head {h00=0x0018, h01=0x0050, text=» RF(E) DEL:40 YES!! «, t00=0x0050, t01=0x00f0}
0x7dec…7e0e               Head {h00=0x001e, h01=0x0050, text=» LC A3,1,A1 GET CHARACTER «, t00=0x0050, t01=0x010c}
0x7e0e…7e32               Head {h00=0x0020, h01=0x0050, text=» ORK A3,/80 SET MODIFIED BIT«, t00=0x0050, t01=0x012e}
0x7e32…7e60               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A1 SHIFT CHARACTER 1 POS. LEFT«, t00=0x0050, t01=0x0152}
0x7e60…7e72               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0050, t01=0x0180}
0x7e72…7e98 (81, 0, 400)  Head {h00=0x0022, h01=0x0050, text=» RB DEL:30 GET NEXT CHARACTER «, t00=0x0051, t01=0x0004}
0x7e98…7ea0               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x002a}
0x7ea0…7ea8               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x0032}
0x7ea8…7ed6               Head {h00=0x002a, h01=0x0050, text=»DEL:40 LDK A3,NULL+/80 NULL CHARACTER «, t00=0x0051, t01=0x003a}
0x7ed6…7f04               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A2 STORE AT END OF FIELD/LINE «, t00=0x0051, t01=0x0068}
0x7f04…7f2a               Head {h00=0x0022, h01=0x0050, text=» LD A3,ATTRIB,TCABAS ATTRIBUTE«, t00=0x0051, t01=0x0096}
0x7f2a…7f52               Head {h00=0x0024, h01=0x0050, text=» ORK A3,1 SET MODIFIED FIELD BIT«, t00=0x0051, t01=0x00bc}
0x7f52…7f5a               Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x00e4}
0x7f5a…7f90               Head {h00=0x0032, h01=0x0050, text=» LD A1,CURATT,TCABAS CURRENT ATTRIBUTE ADDRESS«, t00=0x0051, t01=0x00ec}
0x7f90…7fbe               Head {h00=0x002a, h01=0x0050, text=» CWK A1,LBVDU+1 UNFORMATTED SCREEN ???«, t00=0x0051, t01=0x0122}
0x7fbe…7fda               Head {h00=0x0018, h01=0x0050, text=» RF(E) INS:60 YES!!!«, t00=0x0051, t01=0x0150}
0x7fda…7ff0               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,BVDU «, t00=0x0051, t01=0x016c}
0x7ff0…8022               Head {h00=0x002e, h01=0x0050, text=» ADR A1,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x0051, t01=0x0182}
0x8022…8048               Head {h00=0x0022, h01=0x0050, text=» SCR A3,A1 SAVE NEW ATTRIBUTE «, t00=0x0052, t01=0x0024}
0x8048…8072               Head {h00=0x0026, h01=0x0050, text=» RF INS:60 DISPLAY MODIFIED FIELD «, t00=0x0052, t01=0x004a}
0x8072…8080               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x0074}
0x8080…8088               Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x0082}
0x8088…80ce               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0052, t01=0x008a}
0x80ce…80d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00d0}
0x80d8…811c               Head {h00=0x0040, h01=0x0050, text=»*   INSERT CHARACTER AT CURSOR POSITION. SHIFT CHARACTERS IN«, t00=0x0052, t01=0x00da}
0x811c…815c               Head {h00=0x003c, h01=0x0050, text=»*   SAME FIELD , EXCEPT NULLS, ONE POSITION TO THE RIGHT«, t00=0x0052, t01=0x011e}
0x815c…8166               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x015e}
0x8166…81a2               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0052, t01=0x0168}
0x81a2…81aa               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0014}
0x81aa…81be               Head {h00=0x0010, h01=0x0050, text=»INSERT EQU *«, t00=0x0053, t01=0x001c}
0x81be…81e6               Head {h00=0x0024, h01=0x0050, text=» IM MODE,TCABAS SET INSERT MODE «, t00=0x0053, t01=0x0030}
0x81e6…8218               Head {h00=0x002e, h01=0x0050, text=» CF A14,LIOLON TURN ON "INSERT MODE" LAMP «, t00=0x0053, t01=0x0058}
0x8218…8228               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0053, t01=0x008a}
0x8228…8230               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x009a}
0x8230…8238               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x00a2}
0x8238…8252               Head {h00=0x0016, h01=0x0050, text=»INS:10 LDR A6,A7  «, t00=0x0053, t01=0x00aa}
0x8252…8266               Head {h00=0x0010, h01=0x0050, text=» LDR A9,A4  «, t00=0x0053, t01=0x00c4}
0x8266…8292               Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN??«, t00=0x0053, t01=0x00d8}
0x8292…82ae               Head {h00=0x0018, h01=0x0050, text=» RF(NE) INS:20 NO!! «, t00=0x0053, t01=0x0104}
0x82ae…82c6               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,LBVDU-1«, t00=0x0053, t01=0x0120}
0x82c6…82d8               Head {h00=0x000e, h01=0x0050, text=» RF INS:30«, t00=0x0053, t01=0x0138}
0x82d8…82e0               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x014a}
0x82e0…82e8               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0152}
0x82e8…831c               Head {h00=0x0030, h01=0x0050, text=»INS:20 CF A14,S:ATT SEARCH ATTRIBUTE FORWARD«, t00=0x0053, t01=0x015a}
0x831c…8324               Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x018e}
0x8324…832c               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x0008}
0x832c…8350               Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 ATTRIBUTE FOUND ??«, t00=0x0054, t01=0x0010}
0x8350…836a               Head {h00=0x0016, h01=0x0050, text=» RF(Z) INS:30 NO!!«, t00=0x0054, t01=0x0034}
0x836a…837c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0054, t01=0x004e}
0x837c…8384               Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x0060}
0x8384…83a0               Head {h00=0x0018, h01=0x0050, text=»INS:30 ADR A2,TCABAS«, t00=0x0054, t01=0x0068}
0x83a0…83da               Head {h00=0x0036, h01=0x0050, text=» ADK A2,BVDU ADD BUFFER DISPLACEMENT IN WORK-BLOCK«, t00=0x0054, t01=0x0084}
0x83da…840c               Head {h00=0x002e, h01=0x0050, text=» CF A14,S:NULL SEARCH FIRST NULL CHARACTER«, t00=0x0054, t01=0x00be}
0x840c…843e               Head {h00=0x002e, h01=0x0050, text=»INS:40 CWR A2,A6 ALL CHARACTERS SHIFTED ??«, t00=0x0054, t01=0x00f0}
0x843e…845a               Head {h00=0x0018, h01=0x0050, text=» RF(E) INS:50 YES!! «, t00=0x0054, t01=0x0122}
0x845a…847c               Head {h00=0x001e, h01=0x0050, text=» LC A3,-1,A2 GET CHARACTER«, t00=0x0054, t01=0x013e}
0x847c…84a0               Head {h00=0x0020, h01=0x0050, text=» ORK A3,/80 SET MODIFIED BIT«, t00=0x0054, t01=0x0160}
0x84a0…84ce               Head {h00=0x002a, h01=0x0050, text=» SCR A3,A2 SHIFT CHAR ONE POS TO RIGHT«, t00=0x0054, t01=0x0184}
0x84ce…84e0               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0055, t01=0x0022}
0x84e0…8506               Head {h00=0x0022, h01=0x0050, text=» RB INS:40 GET NEXT CHARACTER «, t00=0x0055, t01=0x0034}
0x8506…850e               Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x005a}
0x850e…8516               Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0062}
0x8516…8542               Head {h00=0x0028, h01=0x0050, text=»INS:50 ORKL A9,/80 SET MODIFIED BIT «, t00=0x0055, t01=0x006a}
0x8542…8574               Head {h00=0x002e, h01=0x0050, text=» SCR A9,A6 SAVE INPUT CHARACTER IN BUFFER «, t00=0x0055, t01=0x0096}
0x8574…85a6               Head {h00=0x002e, h01=0x0050, text=» IM PCURS,TCABAS INCREMENT CURSOR POSITION«, t00=0x0055, t01=0x00c8}
0x85a6…85ba               Head {h00=0x0010, h01=0x0050, text=»INS:60 EQU *«, t00=0x0055, t01=0x00fa}
0x85ba…85e8               Head {h00=0x002a, h01=0x0050, text=» CF A14,DISPL DISPLAY MODIFIED FIELDS «, t00=0x0055, t01=0x010e}
0x85e8…8614               Head {h00=0x0028, h01=0x0050, text=» LD A2,PCURS,TCABAS CURSOR POSITION «, t00=0x0055, t01=0x013c}
0x8614…8626               Head {h00=0x000e, h01=0x0050, text=» RB ANC252«, t00=0x0055, t01=0x0168}
0x8626…8632               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x017a}
0x8632…8640               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x0186}
0x8640…8648 (86, 0, 400)  Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0004}
0x8648…868a               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0056, t01=0x000c}
0x868a…8694               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x004e}
0x8694…86cc               Head {h00=0x0034, h01=0x0050, text=»*   SEARCH FIRST NULL CHARACTER AFTER CURSOR POS«, t00=0x0056, t01=0x0058}
0x86cc…86d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0090}
0x86d6…8714               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0056, t01=0x009a}
0x8714…871c               Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x00d8}
0x871c…8730               Head {h00=0x0010, h01=0x0050, text=»S:NULL EQU *«, t00=0x0056, t01=0x00e0}
0x8730…8742               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0056, t01=0x00f4}
0x8742…874a               Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0106}
0x874a…8762               Head {h00=0x0014, h01=0x0050, text=»S:NU10 CWR A1,A2«, t00=0x0056, t01=0x010e}
0x8762…8778               Head {h00=0x0012, h01=0x0050, text=» RF(E) S:NU30 «, t00=0x0056, t01=0x0126}
0x8778…8798               Head {h00=0x001c, h01=0x0050, text=» LCR A3,A1 GET CHARACTER«, t00=0x0056, t01=0x013c}
0x8798…87c2               Head {h00=0x0026, h01=0x0050, text=» ANK A3,/7F MASK AWAY MODIFIED BIT«, t00=0x0056, t01=0x015c}
0x87c2…87e6               Head {h00=0x0020, h01=0x0050, text=» CWK A3,NULL NULL CHARACTER «, t00=0x0056, t01=0x0186}
0x87e6…8802               Head {h00=0x0018, h01=0x0050, text=» RF(E) S:NU20 YES!! «, t00=0x0057, t01=0x001a}
0x8802…8814               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0057, t01=0x0036}
0x8814…8842               Head {h00=0x002a, h01=0x0050, text=» RB S:NU10 CHECK NEXT BUFFER CHARACTER«, t00=0x0057, t01=0x0048}
0x8842…884a               Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0076}
0x884a…8878               Head {h00=0x002a, h01=0x0050, text=»S:NU20 LDR A2,A1 ADDRESS OF FIRST NULL«, t00=0x0057, t01=0x007e}
0x8878…888e               Head {h00=0x0012, h01=0x0050, text=»S:NU30 RTN A14«, t00=0x0057, t01=0x00ac}
0x888e…889c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x00c2}
0x889c…88a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00d0}
0x88a6…88e8               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0057, t01=0x00da}
0x88e8…88f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x011c}
0x88f2…8902               Head {h00=0x000c, h01=0x0050, text=»* CANCEL«, t00=0x0057, t01=0x0126}
0x8902…890c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0136}
0x890c…894a               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0057, t01=0x0140}
0x894a…8972               Head {h00=0x0024, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER «, t00=0x0057, t01=0x017e}
0x8972…897c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0016}
0x897c…89be               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0058, t01=0x0020}
0x89be…89c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0062}
0x89c8…89dc               Head {h00=0x0010, h01=0x0050, text=»CANCEL EQU *«, t00=0x0058, t01=0x006c}
0x89dc…89ee               Head {h00=0x000e, h01=0x0050, text=»PA2 EQU * «, t00=0x0058, t01=0x0080}
0x89ee…8a0c               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/2E CANCEL POS«, t00=0x0058, t01=0x0092}
0x8a0c…8a20               Head {h00=0x0010, h01=0x0050, text=»CAN100 EQU *«, t00=0x0058, t01=0x00b0}
0x8a20…8a48               Head {h00=0x0024, h01=0x0050, text=» LC A2,TASCII,A2 GET ASCII CODE «, t00=0x0058, t01=0x00c4}
0x8a48…8a5c               Head {h00=0x0010, h01=0x0050, text=»CAN200 EQU *«, t00=0x0058, t01=0x00ec}
0x8a5c…8a8e               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x0058, t01=0x0100}
0x8a8e…8aba               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0058, t01=0x0132}
0x8aba…8aca               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x015e}
0x8aca…8ad4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x016e}
0x8ad4…8adc               Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0178}
0x8adc…8aee               Head {h00=0x000e, h01=0x0050, text=» IFT PAX=1«, t00=0x0058, t01=0x0180}
0x8aee…8af6 (89, 0, 400)  Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x0004}
0x8af6…8b00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x000c}
0x8b00…8b0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0016}
0x8b0a…8b54               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM ATTENTION KEY IS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x0059, t01=0x0020}
0x8b54…8b92               Head {h00=0x003a, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PA1.CANCEL OR PA3 «, t00=0x0059, t01=0x006a}
0x8b92…8b9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00a8}
0x8b9c…8ba6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00b2}
0x8ba6…8bb8               Head {h00=0x000e, h01=0x0050, text=»PAEX EQU *«, t00=0x0059, t01=0x00bc}
0x8bb8…8bce               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PAEXA«, t00=0x0059, t01=0x00ce}
0x8bce…8bea               Head {h00=0x0018, h01=0x0050, text=» ST A1,RDMORE,TCABAS«, t00=0x0059, t01=0x00e4}
0x8bea…8bfa               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0059, t01=0x0100}
0x8bfa…8c0e               Head {h00=0x0010, h01=0x0050, text=»PAEXA EQU * «, t00=0x0059, t01=0x0110}
0x8c0e…8c28               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x0059, t01=0x0124}
0x8c28…8c4c               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/31 CHECK IF NUM.1-3«, t00=0x0059, t01=0x013e}
0x8c4c…8c6e               Head {h00=0x001e, h01=0x0050, text=» RF(L) PFERR ILLEGAL CHAR.«, t00=0x0059, t01=0x0162}
0x8c6e…8c92               Head {h00=0x0020, h01=0x0050, text=» SUK A2,/2 CHECK IF NUM.1-3 «, t00=0x0059, t01=0x0184}
0x8c92…8caa               Head {h00=0x0014, h01=0x0050, text=» IFF PA49=1  DK3«, t00=0x005a, t01=0x0018}
0x8caa…8ccc               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL CHAR.«, t00=0x005a, t01=0x0030}
0x8ccc…8cde               Head {h00=0x000e, h01=0x0050, text=» XIF   DK3«, t00=0x005a, t01=0x0052}
0x8cde…8cf6               Head {h00=0x0014, h01=0x0050, text=» IFT PA49=1  DK3«, t00=0x005a, t01=0x0064}
0x8cf6…8d16               Head {h00=0x001c, h01=0x0050, text=» RF(G) PAEXB PA 4-9? DK3«, t00=0x005a, t01=0x007c}
0x8d16…8d28               Head {h00=0x000e, h01=0x0050, text=» XIF   DK3«, t00=0x005a, t01=0x009c}
0x8d28…8d3a               Head {h00=0x000e, h01=0x0050, text=» RF(Z) PA3«, t00=0x005a, t01=0x00ae}
0x8d3a…8d4c               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x005a, t01=0x00c0}
0x8d4c…8d5e               Head {h00=0x000e, h01=0x0050, text=» RB(Z) PA2«, t00=0x005a, t01=0x00d2}
0x8d5e…8d6e               Head {h00=0x000c, h01=0x0050, text=» RF PA1 «, t00=0x005a, t01=0x00e4}
0x8d6e…8d98               Head {h00=0x0026, h01=0x0050, text=» RTN A14 RETURN TO MAIN READ LOOP «, t00=0x005a, t01=0x00f4}
0x8d98…8da0               Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x011e}
0x8da0…8dac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0126}
0x8dac…8dba               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x0132}
0x8dba…8dc2               Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0140}
0x8dc2…8dcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0148}
0x8dcc…8df6               Head {h00=0x0026, h01=0x0050, text=»*    PA1    PROGRAM ATTENTION KEY «, t00=0x005a, t01=0x0152}
0x8df6…8e00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x017c}
0x8e00…8e0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0186}
0x8e0a…8e1c               Head {h00=0x000e, h01=0x0050, text=»PA1 EQU * «, t00=0x005a, t01=0x0190}
0x8e1c…8e38               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2C PA1 POS «, t00=0x005b, t01=0x0012}
0x8e38…8e4a               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x005b, t01=0x002e}
0x8e4a…8e54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0040}
0x8e54…8e5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x004a}
0x8e5e…8e86               Head {h00=0x0024, h01=0x0050, text=»*    PA3   PROGRAM ATTENTION KEY«, t00=0x005b, t01=0x0054}
0x8e86…8e90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x007c}
0x8e90…8e9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0086}
0x8e9a…8eac               Head {h00=0x000e, h01=0x0050, text=»PA3 EQU * «, t00=0x005b, t01=0x0090}
0x8eac…8ec8               Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2B PA3 POS «, t00=0x005b, t01=0x00a2}
0x8ec8…8eda               Head {h00=0x000e, h01=0x0050, text=» RB CAN100«, t00=0x005b, t01=0x00be}
0x8eda…8ee4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00d0}
0x8ee4…8f04               Head {h00=0x001c, h01=0x0050, text=»* PA4 - PA10 (ALFASKOP) «, t00=0x005b, t01=0x00da}
0x8f04…8f1c               Head {h00=0x0014, h01=0x0050, text=» IFT PA49=1  DK3«, t00=0x005b, t01=0x00fa}
0x8f1c…8f34               Head {h00=0x0014, h01=0x0050, text=»PAEXB EQU *  DK3«, t00=0x005b, t01=0x0112}
0x8f34…8f4c               Head {h00=0x0014, h01=0x0050, text=» SUK A2,/6  DK3 «, t00=0x005b, t01=0x012a}
0x8f4c…8f66               Head {h00=0x0016, h01=0x0050, text=» RF(G) PFERR  DK3 «, t00=0x005b, t01=0x0142}
0x8f66…8f88               Head {h00=0x001e, h01=0x0050, text=» ADK A2,/69 SET PA4-9 DK3 «, t00=0x005b, t01=0x015c}
0x8f88…8fa0               Head {h00=0x0014, h01=0x0050, text=» RB CAN200  DK3 «, t00=0x005b, t01=0x017e}
0x8fa0…8fb2               Head {h00=0x000e, h01=0x0050, text=» XIF   DK3«, t00=0x005c, t01=0x0008}
0x8fb2…8fbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x001a}
0x8fbc…8fd0               Head {h00=0x0010, h01=0x0050, text=»PA410 EQU * «, t00=0x005c, t01=0x0024}
0x8fd0…8fe4               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x005c, t01=0x0038}
0x8fe4…8ff6               Head {h00=0x000e, h01=0x0050, text=» RB CAN200«, t00=0x005c, t01=0x004c}
0x8ff6…9004               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005c, t01=0x005e}
0x9004…900e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x006c}
0x900e…904e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x005c, t01=0x0076}
0x904e…9058               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00b6}
0x9058…9068               Head {h00=0x000c, h01=0x0050, text=»* ENTER «, t00=0x005c, t01=0x00c0}
0x9068…9072               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00d0}
0x9072…90ae               Head {h00=0x0038, h01=0x0050, text=»* PROGRAM FUNCTION KEY WHICH CAUSES AN I/O OPERATION«, t00=0x005c, t01=0x00da}
0x90ae…90ee               Head {h00=0x003c, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER FOLLOWED BY AN SBA ORDER«, t00=0x005c, t01=0x0116}
0x90ee…912a               Head {h00=0x0038, h01=0x0050, text=»* ATTRIBUTE ADDRESS AND TEXT FOR EACH MODIFIED FIELD«, t00=0x005c, t01=0x0156}
0x912a…9148 (93, 0, 400)  Head {h00=0x001a, h01=0x0050, text=»* NULLS ARE SUPRESSED «, t00=0x005d, t01=0x0004}
0x9148…9152               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0022}
0x9152…9194               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x005d, t01=0x002c}
0x9194…919e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x006e}
0x919e…91b2               Head {h00=0x0010, h01=0x0050, text=»ENTER EQU * «, t00=0x005d, t01=0x0078}
0x91b2…91d0               Head {h00=0x001a, h01=0x0050, text=» LDK A2,/3D ENTER POS «, t00=0x005d, t01=0x008c}
0x91d0…91e4               Head {h00=0x0010, h01=0x0050, text=»ENT100 EQU *«, t00=0x005d, t01=0x00aa}
0x91e4…920e               Head {h00=0x0026, h01=0x0050, text=» LC A2,TASCII,A2 CONVERT TO ASCII «, t00=0x005d, t01=0x00be}
0x920e…9240               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x005d, t01=0x00e8}
0x9240…9272               Head {h00=0x002e, h01=0x0050, text=» CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT «, t00=0x005d, t01=0x011a}
0x9272…9286               Head {h00=0x0010, h01=0x0050, text=»ENT200 EQU *«, t00=0x005d, t01=0x014c}
0x9286…9296               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005d, t01=0x0160}
0x9296…92a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0170}
0x92a0…92a8               Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x017a}
0x92a8…92ba               Head {h00=0x000e, h01=0x0050, text=» IFT PFX=1«, t00=0x005d, t01=0x0182}
0x92ba…92c2 (94, 0, 400)  Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x0004}
0x92c2…92cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x000c}
0x92cc…92d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0016}
0x92d6…9320               Head {h00=0x0046, h01=0x0050, text=»* PROGRAM FUNCTION KEY IOS PRESSED AND NUMBER WILL BE INSERTED TO «, t00=0x005e, t01=0x0020}
0x9320…9354               Head {h00=0x0030, h01=0x0050, text=»* DEFINE ONE OF THE FUNCTIONS UNDER PF1-PF12«, t00=0x005e, t01=0x006a}
0x9354…935e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x009e}
0x935e…9368               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00a8}
0x9368…937a               Head {h00=0x000e, h01=0x0050, text=»PFEX EQU *«, t00=0x005e, t01=0x00b2}
0x937a…9390               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PFEXA«, t00=0x005e, t01=0x00c4}
0x9390…93a2               Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x005e, t01=0x00da}
0x93a2…93b6               Head {h00=0x0010, h01=0x0050, text=»PFEXA EQU * «, t00=0x005e, t01=0x00ec}
0x93b6…93d0               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005e, t01=0x0100}
0x93d0…93f0               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL CHAR ?«, t00=0x005e, t01=0x011a}
0x93f0…9420               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING «, t00=0x005e, t01=0x013a}
0x9420…944a               Head {h00=0x0026, h01=0x0050, text=» RF(Z) PF0 FIRST NUM. 0 GO TO PF0 «, t00=0x005e, t01=0x016a}
0x944a…946c (95, 0, 400)  Head {h00=0x001e, h01=0x0050, text=» SUK A2,/1 FIRST NUM. 1 ? «, t00=0x005f, t01=0x0004}
0x946c…948e               Head {h00=0x001e, h01=0x0050, text=» RF(G) PFERR ILLEGAL NUM. «, t00=0x005f, t01=0x0026}
0x948e…94a4               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PF1A «, t00=0x005f, t01=0x0048}
0x94a4…94b6               Head {h00=0x000e, h01=0x0050, text=» RF PFNXT «, t00=0x005f, t01=0x005e}
0x94b6…94c8               Head {h00=0x000e, h01=0x0050, text=»PF1A EQU *«, t00=0x005f, t01=0x0070}
0x94c8…94e2               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x005f, t01=0x0082}
0x94e2…9502               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/30 LEGAL NUM.? «, t00=0x005f, t01=0x009c}
0x9502…9532               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005f, t01=0x00bc}
0x9532…9550               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/2 LEGAL NUM ?«, t00=0x005f, t01=0x00ec}
0x9550…9580               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x005f, t01=0x010a}
0x9580…95a0               Head {h00=0x001c, h01=0x0050, text=» ADK A2,/3C PF10-12 POS «, t00=0x005f, t01=0x013a}
0x95a0…95b2               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x005f, t01=0x015a}
0x95b2…95ba               Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x016c}
0x95ba…95cc               Head {h00=0x000e, h01=0x0050, text=»PF0 EQU * «, t00=0x005f, t01=0x0174}
0x95cc…95e2               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PF0A «, t00=0x005f, t01=0x0186}
0x95e2…95f6               Head {h00=0x0010, h01=0x0050, text=»PFNXT EQU * «, t00=0x0060, t01=0x000c}
0x95f6…9612               Head {h00=0x0018, h01=0x0050, text=» ST A1,RDMORE,TCABAS«, t00=0x0060, t01=0x0020}
0x9612…9622               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x003c}
0x9622…9634               Head {h00=0x000e, h01=0x0050, text=»PF0A EQU *«, t00=0x0060, t01=0x004c}
0x9634…964e               Head {h00=0x0016, h01=0x0050, text=» CM RDMORE,TCABAS «, t00=0x0060, t01=0x005e}
0x964e…966e               Head {h00=0x001c, h01=0x0050, text=» SUK A2,/31 LEGAL NUM ? «, t00=0x0060, t01=0x0078}
0x966e…969e               Head {h00=0x002c, h01=0x0050, text=» RF(L) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x0060, t01=0x0098}
0x969e…96bc               Head {h00=0x001a, h01=0x0050, text=» SUK A2,/8 LEGAL NUM ?«, t00=0x0060, t01=0x00c8}
0x96bc…96ec               Head {h00=0x002c, h01=0x0050, text=» RF(G) PFERR ILLEGAL GO TO ERR.HANDLING «, t00=0x0060, t01=0x00e6}
0x96ec…970a               Head {h00=0x001a, h01=0x0050, text=» ADK A2,/39 PF1-9 POS «, t00=0x0060, t01=0x0116}
0x970a…971c               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x0060, t01=0x0134}
0x971c…9728               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0146}
0x9728…973c               Head {h00=0x0010, h01=0x0050, text=»PFERR EQU * «, t00=0x0060, t01=0x0152}
0x973c…976a               Head {h00=0x002a, h01=0x0050, text=» CF A14,ERROR GO TO ERR-HANDLING RUTIN«, t00=0x0060, t01=0x0166}
0x976a…9792 (97, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» RTN A14 GO TO MAIN READ MODULE «, t00=0x0061, t01=0x0004}
0x9792…979a               Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x002c}
0x979a…97a2               Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0034}
0x97a2…97b2               Head {h00=0x000c, h01=0x0050, text=»PF EQU *«, t00=0x0061, t01=0x003c}
0x97b2…97c6               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/5C «, t00=0x0061, t01=0x004c}
0x97c6…97d8               Head {h00=0x000e, h01=0x0050, text=» RB ENT100«, t00=0x0061, t01=0x0060}
0x97d8…97ec               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0061, t01=0x0072}
0x97ec…97fa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x0086}
0x97fa…983e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0061, t01=0x0094}
0x983e…9848               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x00d8}
0x9848…9858               Head {h00=0x000c, h01=0x0050, text=»* OFLINE«, t00=0x0061, t01=0x00e2}
0x9858…9898               Head {h00=0x003c, h01=0x0050, text=»*            THE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND «, t00=0x0061, t01=0x00f2}
0x9898…98d4               Head {h00=0x0038, h01=0x0050, text=»*           A BRANCH IS MADE BACK TO CREDIT PROGRAM «, t00=0x0061, t01=0x0132}
0x98d4…98de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x016e}
0x98de…9924               Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0061, t01=0x0178}
0x9924…9938               Head {h00=0x0010, h01=0x0050, text=»OFLINE EQU *«, t00=0x0062, t01=0x002e}
0x9938…994e               Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0062, t01=0x0042}
0x994e…9962               Head {h00=0x0010, h01=0x0050, text=»OFLI05 EQU *«, t00=0x0062, t01=0x0058}
0x9962…9978               Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0062, t01=0x006c}
0x9978…998c               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0062, t01=0x0082}
0x998c…99a6               Head {h00=0x0016, h01=0x0050, text=» LD A7,MAIN,TCABAS«, t00=0x0062, t01=0x0096}
0x99a6…99b8               Head {h00=0x000e, h01=0x0050, text=» XRK A7,1 «, t00=0x0062, t01=0x00b0}
0x99b8…99d2               Head {h00=0x0016, h01=0x0050, text=» ST A7,MAIN,TCABAS«, t00=0x0062, t01=0x00c2}
0x99d2…9a06               Head {h00=0x0030, h01=0x0050, text=» CF A14,DCABOR ABORT REQUEST NOT CURRENT MF «, t00=0x0062, t01=0x00dc}
0x9a06…9a12               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x0110}
0x9a12…9a26               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0062, t01=0x011c}
0x9a26…9a60               Head {h00=0x0036, h01=0x0050, text=» LDK A1,0 DV ADDRESS ::= 0MESSAGES TO VDU IGNORED «, t00=0x0062, t01=0x0130}
0x9a60…9a7e               Head {h00=0x001a, h01=0x0050, text=» LDKL A8,ECBDC MF # 1 «, t00=0x0062, t01=0x016a}
0x9a7e…9aa8               Head {h00=0x0026, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETERS «, t00=0x0062, t01=0x0188}
0x9aa8…9abc               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0063, t01=0x0022}
0x9abc…9ada               Head {h00=0x001a, h01=0x0050, text=» LDKL A8,ECBDC2 MF # 2«, t00=0x0063, t01=0x0036}
0x9ada…9b04               Head {h00=0x0026, h01=0x0050, text=» CF A14,EMULA TRANSFER PARAMETERS «, t00=0x0063, t01=0x0054}
0x9b04…9b10               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x007e}
0x9b10…9b24               Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0063, t01=0x008a}
0x9b24…9b3a               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1OF«, t00=0x0063, t01=0x009e}
0x9b3a…9b50               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2OF«, t00=0x0063, t01=0x00b4}
0x9b50…9b66               Head {h00=0x0012, h01=0x0050, text=» CF A14,LSAVOF«, t00=0x0063, t01=0x00ca}
0x9b66…9b92               Head {h00=0x0028, h01=0x0050, text=» CF A14,LIOLON TURN ON OFFLINE LAMP «, t00=0x0063, t01=0x00e0}
0x9b92…9bbc               Head {h00=0x0026, h01=0x0050, text=» IM OFFFLG,TCABAS SET OFFLINE FLAG«, t00=0x0063, t01=0x010c}
0x9bbc…9be4               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 SKIP ONE STACK LEVEL«, t00=0x0063, t01=0x0136}
0x9be4…9c12               Head {h00=0x002a, h01=0x0050, text=» LD A13,2,A14 RELOAD REGISTERS A12-A13«, t00=0x0063, t01=0x015e}
0x9c12…9c28               Head {h00=0x0012, h01=0x0050, text=» LD A12,4,A14 «, t00=0x0063, t01=0x018c}
0x9c28…9c50               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0064, t01=0x0012}
0x9c50…9c7e               Head {h00=0x002a, h01=0x0050, text=» ABL I:RT1 RETURN TO "OFFLINE" PROGRAM«, t00=0x0064, t01=0x003a}
0x9c7e…9c86               Head {h00=0x0004, h01=0x0050, t00=0x0064, t01=0x0068}
0x9c86…9c92               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x0070}
0x9c92…9ca6               Head {h00=0x0010, h01=0x0050, text=» IFT DCLIN=2«, t00=0x0064, t01=0x007c}
0x9ca6…9cb4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x0090}
0x9cb4…9cf8               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0064, t01=0x009e}
0x9cf8…9d02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00e2}
0x9d02…9d1c               Head {h00=0x0016, h01=0x0050, text=»* MAINFRAME CHANGE«, t00=0x0064, t01=0x00ec}
0x9d1c…9d68               Head {h00=0x0048, h01=0x0050, text=»*   THE SWITCH 'MAIN' IS CHANGED, AND THE APPROPRIATE 'SYSTEM' LAMP «, t00=0x0064, t01=0x0106}
0x9d68…9d86               Head {h00=0x001a, h01=0x0050, text=»*       IS TTURNED ON «, t00=0x0064, t01=0x0152}
0x9d86…9d90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0170}
0x9d90…9dde               Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0064, t01=0x017a}
0x9dde…9de8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0038}
0x9de8…9dfc               Head {h00=0x0010, h01=0x0050, text=»MFCHGE EQU *«, t00=0x0065, t01=0x0042}
0x9dfc…9e12               Head {h00=0x0012, h01=0x0050, text=» CF A14,CLEAR «, t00=0x0065, t01=0x0056}
0x9e12…9e26               Head {h00=0x0010, h01=0x0050, text=»MFCH05 EQU *«, t00=0x0065, t01=0x006c}
0x9e26…9e3c               Head {h00=0x0012, h01=0x0050, text=» CF A14,RESET «, t00=0x0065, t01=0x0080}
0x9e3c…9e52               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1OF«, t00=0x0065, t01=0x0096}
0x9e52…9e68               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2OF«, t00=0x0065, t01=0x00ac}
0x9e68…9e7e               Head {h00=0x0012, h01=0x0050, text=» CF A14,LSAVOF«, t00=0x0065, t01=0x00c2}
0x9e7e…9e98               Head {h00=0x0016, h01=0x0050, text=» LD A1,MAIN,TCABAS«, t00=0x0065, t01=0x00d8}
0x9e98…9eaa               Head {h00=0x000e, h01=0x0050, text=» XRK A1,1 «, t00=0x0065, t01=0x00f2}
0x9eaa…9ec0               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MFCH10«, t00=0x0065, t01=0x0104}
0x9ec0…9ed6               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF1ON«, t00=0x0065, t01=0x011a}
0x9ed6…9ee8               Head {h00=0x000e, h01=0x0050, text=» RF MFCH90«, t00=0x0065, t01=0x0130}
0x9ee8…9efc               Head {h00=0x0010, h01=0x0050, text=»MFCH10 EQU *«, t00=0x0065, t01=0x0142}
0x9efc…9f12               Head {h00=0x0012, h01=0x0050, text=» CF A14,LMF2ON«, t00=0x0065, t01=0x0156}
0x9f12…9f26               Head {h00=0x0010, h01=0x0050, text=»MFCH90 EQU *«, t00=0x0065, t01=0x016c}
0x9f26…9f40               Head {h00=0x0016, h01=0x0050, text=» ST A1,MAIN,TCABAS«, t00=0x0065, t01=0x0180}
0x9f40…9f50               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0066, t01=0x000a}
0x9f50…9f5c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0066, t01=0x001a}
0x9f5c…9f6a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x0026}
0x9f6a…9f74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0034}
0x9f74…9fb4               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0066, t01=0x003e}
0x9fb4…9fbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x007e}
0x9fbe…9fce               Head {h00=0x000c, h01=0x0050, text=»* CLEAR «, t00=0x0066, t01=0x0088}
0x9fce…9fd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0098}
0x9fd8…a016               Head {h00=0x003a, h01=0x0050, text=»* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION «, t00=0x0066, t01=0x00a2}
0xa016…a052               Head {h00=0x0038, h01=0x0050, text=»* AND GENERATE AN AID CHARACTER. THE ENTIRE DISPLAY «, t00=0x0066, t01=0x00e0}
0xa052…a090               Head {h00=0x003a, h01=0x0050, text=»* BUFFER IS CLEARED TO NULLS AND CURSOR IS LOCATED IN «, t00=0x0066, t01=0x011c}
0xa090…a0a2               Head {h00=0x000e, h01=0x0050, text=»* HOME POS«, t00=0x0066, t01=0x015a}
0xa0a2…a0ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x016c}
0xa0ac…a0ec               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0066, t01=0x0176}
0xa0ec…a0f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0026}
0xa0f6…a10a               Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x0067, t01=0x0030}
0xa10a…a12e               Head {h00=0x0020, h01=0x0050, text=» LDK A2,/2D POS FOR 'CLEAR' «, t00=0x0067, t01=0x0044}
0xa12e…a146               Head {h00=0x0014, h01=0x0050, text=» LC A2,TASCII,A2«, t00=0x0067, t01=0x0068}
0xa146…a178               Head {h00=0x002e, h01=0x0050, text=» CF A14,LINHON TURN ON "KEYBOARD INHIBIT" «, t00=0x0067, t01=0x0080}
0xa178…a1a4               Head {h00=0x0028, h01=0x0050, text=» CF A14,TRPA UPDATE AID AND TRANSMIT«, t00=0x0067, t01=0x00b2}
0xa1a4…a1ce               Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x0067, t01=0x00de}
0xa1ce…a1de               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0067, t01=0x0108}
0xa1de…a1ec               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0067, t01=0x0118}
0xa1ec…a1f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0126}
0xa1f6…a23a               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0067, t01=0x0130}
0xa23a…a244               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0174}
0xa244…a254               Head {h00=0x000c, h01=0x0050, text=»* EREOF «, t00=0x0067, t01=0x017e}
0xa254…a25e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x018e}
0xa25e…a27e               Head {h00=0x001c, h01=0x0050, text=»* ERASE TO END OF FIELD «, t00=0x0068, t01=0x0008}
0xa27e…a288               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0028}
0xa288…a2cc               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0068, t01=0x0032}
0xa2cc…a2d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0076}
0xa2d6…a2ea               Head {h00=0x0010, h01=0x0050, text=»EREOF EQU * «, t00=0x0068, t01=0x0080}
0xa2ea…a2fc               Head {h00=0x000e, h01=0x0050, text=» LDK A6,1 «, t00=0x0068, t01=0x0094}
0xa2fc…a326               Head {h00=0x0026, h01=0x0050, text=» LD A3,ATTRIB,TCABAS GET ATTRIBUTE«, t00=0x0068, t01=0x00a6}
0xa326…a346               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/10 UNPROTECTED?«, t00=0x0068, t01=0x00d0}
0xa346…a360               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE100 YES «, t00=0x0068, t01=0x00f0}
0xa360…a372               Head {h00=0x000e, h01=0x0050, text=» ABL ERROR«, t00=0x0068, t01=0x010a}
0xa372…a394               Head {h00=0x001e, h01=0x0050, text=»ERE100 LD A2,PCURS,TCABAS «, t00=0x0068, t01=0x011c}
0xa394…a39c               Head {h00=0x0004, h01=0x0050, t00=0x0068, t01=0x013e}
0xa39c…a3c8               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0068, t01=0x0146}
0xa3c8…a3d0               Head {h00=0x0004, h01=0x0050, t00=0x0068, t01=0x0172}
0xa3d0…a406               Head {h00=0x0032, h01=0x0050, text=» CW A2,CURATT,TCABAS STANDING ON ATTRIBUTE ?? «, t00=0x0068, t01=0x017a}
0xa406…a434               Head {h00=0x002a, h01=0x0050, text=» ABL(E) ERROR YES!! TURN ON ERROR LAMP«, t00=0x0069, t01=0x0020}
0xa434…a43c               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x004e}
0xa43c…a468               Head {h00=0x0028, h01=0x0050, text=»************************   77.06.01 «, t00=0x0069, t01=0x0056}
0xa468…a470               Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x0082}
0xa470…a49c               Head {h00=0x0028, h01=0x0050, text=»ERE150 CF A14,GBUFFC GET BUFF. CHAR «, t00=0x0069, t01=0x008a}
0xa49c…a4be               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE CHAR«, t00=0x0069, t01=0x00b6}
0xa4be…a4d6               Head {h00=0x0014, h01=0x0050, text=» RF(G) ERE200 NO«, t00=0x0069, t01=0x00d8}
0xa4d6…a4ee               Head {h00=0x0014, h01=0x0050, text=»ERE160 LDR A1,A2«, t00=0x0069, t01=0x00f0}
0xa4ee…a50a               Head {h00=0x0018, h01=0x0050, text=» LD A3,PCURS,TCABAS «, t00=0x0069, t01=0x0108}
0xa50a…a51e               Head {h00=0x0010, h01=0x0050, text=»ERE170 EQU *«, t00=0x0069, t01=0x0124}
0xa51e…a534               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0069, t01=0x0138}
0xa534…a54a               Head {h00=0x0012, h01=0x0050, text=» ADR A4,TCABAS«, t00=0x0069, t01=0x014e}
0xa54a…a55c               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0069, t01=0x0164}
0xa55c…a590               Head {h00=0x0030, h01=0x0050, text=» CF A14,ERASUA ERASE AND REPLASE WITH NULLS «, t00=0x0069, t01=0x0176}
0xa590…a5bc               Head {h00=0x0028, h01=0x0050, text=» CF A14,DISPL DISPLAY ERASED SCREEN «, t00=0x006a, t01=0x001a}
0xa5bc…a5c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0046}
0xa5c6…a5f2               Head {h00=0x0028, h01=0x0050, text=»*   SET MDT BIT IF FORMATTED SCREEN «, t00=0x006a, t01=0x0050}
0xa5f2…a5fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x007c}
0xa5fc…a604               Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x0086}
0xa604…a620               Head {h00=0x0018, h01=0x0050, text=» LD A2,CURATT,TCABAS«, t00=0x006a, t01=0x008e}
0xa620…a638               Head {h00=0x0014, h01=0x0050, text=» CWK A2,LBVDU+1 «, t00=0x006a, t01=0x00aa}
0xa638…a660               Head {h00=0x0024, h01=0x0050, text=» RF(E) ERE180 UNFORMATTED SCREEN«, t00=0x006a, t01=0x00c2}
0xa660…a668               Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x00ea}
0xa668…a67c               Head {h00=0x0010, h01=0x0050, text=» ADK A2,BVDU«, t00=0x006a, t01=0x00f2}
0xa67c…a6ae               Head {h00=0x002e, h01=0x0050, text=» ADR A2,TCABAS ABSOLUTE ATTRIBUTE ADDRESS «, t00=0x006a, t01=0x0106}
0xa6ae…a6ce               Head {h00=0x001c, h01=0x0050, text=» LCR A1,A2 GET ATTRIBUTE«, t00=0x006a, t01=0x0138}
0xa6ce…a6ec               Head {h00=0x001a, h01=0x0050, text=» ORK A1,1 SET MDT BIT «, t00=0x006a, t01=0x0158}
0xa6ec…a6fe               Head {h00=0x000e, h01=0x0050, text=» SCR A1,A2«, t00=0x006a, t01=0x0176}
0xa6fe…a712               Head {h00=0x0010, h01=0x0050, text=»ERE180 EQU *«, t00=0x006a, t01=0x0188}
0xa712…a722               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006b, t01=0x000c}
0xa722…a74e               Head {h00=0x0028, h01=0x0050, text=»ERE200 CWK A2,LBVDU-1 END OF BUFFER?«, t00=0x006b, t01=0x001c}
0xa74e…a768               Head {h00=0x0016, h01=0x0050, text=» RF(E) ERE300 YES «, t00=0x006b, t01=0x0048}
0xa768…a77a               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x006b, t01=0x0062}
0xa77a…a792               Head {h00=0x0014, h01=0x0050, text=» RB ERE150 NEXT «, t00=0x006b, t01=0x0074}
0xa792…a7c0               Head {h00=0x002a, h01=0x0050, text=»ERE300 SUK A6,1 WHOLW BUFF CONTROLED? «, t00=0x006b, t01=0x008c}
0xa7c0…a7d6               Head {h00=0x0012, h01=0x0050, text=» RB(N) ERE160 «, t00=0x006b, t01=0x00ba}
0xa7d6…a7f4               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 WRAP AROUND.«, t00=0x006b, t01=0x00d0}
0xa7f4…a806               Head {h00=0x000e, h01=0x0050, text=» RB ERE150«, t00=0x006b, t01=0x00ee}
0xa806…a814               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006b, t01=0x0100}
0xa814…a81e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x010e}
0xa81e…a85e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x006b, t01=0x0118}
0xa85e…a868               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0158}
0xa868…a878               Head {h00=0x000c, h01=0x0050, text=»* ERINPT«, t00=0x006b, t01=0x0162}
0xa878…a882               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0172}
0xa882…a8c0               Head {h00=0x003a, h01=0x0050, text=»* CLEARS ALL UNPROTECTED CHARACTER LOCATIONS TO NULLS «, t00=0x006b, t01=0x017c}
0xa8c0…a8fe               Head {h00=0x003a, h01=0x0050, text=»* AND REPOSITIONS THE CURSOR TO THE FIRST UNPROTECTED «, t00=0x006c, t01=0x002a}
0xa8fe…a924               Head {h00=0x0022, h01=0x0050, text=»* CHAR LOCATION ON THE SCREEN «, t00=0x006c, t01=0x0068}
0xa924…a92e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x008e}
0xa92e…a96e               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x006c, t01=0x0098}
0xa96e…a978               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00d8}
0xa978…a98c               Head {h00=0x0010, h01=0x0050, text=»ERINPT EQU *«, t00=0x006c, t01=0x00e2}
0xa98c…a9b8               Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x006c, t01=0x00f6}
0xa9b8…a9ce               Head {h00=0x0012, h01=0x0050, text=» CF A14,DISPL «, t00=0x006c, t01=0x0122}
0xa9ce…a9ea               Head {h00=0x0018, h01=0x0050, text=» LD A2,PCURS,TCABAS «, t00=0x006c, t01=0x0138}
0xa9ea…aa00               Head {h00=0x0012, h01=0x0050, text=» CF A14,ATMASB«, t00=0x006c, t01=0x0154}
0xaa00…aa42               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006c, t01=0x016a}
0xaa42…aa54               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006d, t01=0x001c}
0xaa54…aa7c               Head {h00=0x0024, h01=0x0050, text=» RF(Z) ERI:10 NO ATTRIBUTE FOUND«, t00=0x006d, t01=0x002e}
0xaa7c…aab0               Head {h00=0x0030, h01=0x0050, text=» RF(N) ERI:5 ATTRIBUTE NOT IN LAST POSITION «, t00=0x006d, t01=0x0056}
0xaab0…aade               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,-1 ATTRIBUTE IN LAST POSITION«, t00=0x006d, t01=0x008a}
0xaade…aaf2               Head {h00=0x0010, h01=0x0050, text=»ERI:5 EQU * «, t00=0x006d, t01=0x00b8}
0xaaf2…ab34               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006d, t01=0x00cc}
0xab34…ab46               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x006d, t01=0x010e}
0xab46…ab4e               Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x0120}
0xab4e…ab62               Head {h00=0x0010, h01=0x0050, text=»ERI:10 EQU *«, t00=0x006d, t01=0x0128}
0xab62…ab7e               Head {h00=0x0018, h01=0x0050, text=» ST A2,PCURS,TCABAS «, t00=0x006d, t01=0x013c}
0xab7e…ab8e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006d, t01=0x0158}
0xab8e…ab9c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x0168}
0xab9c…aba6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0176}
0xaba6…abea               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006d, t01=0x0180}
0xabea…abf4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0034}
0xabf4…ac04               Head {h00=0x000c, h01=0x0050, text=»* ERROR «, t00=0x006e, t01=0x003e}
0xac04…ac0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x004e}
0xac0e…ac40               Head {h00=0x002e, h01=0x0050, text=»* THE MODULE TAKES CARE OF UNALLOWED KEYS «, t00=0x006e, t01=0x0058}
0xac40…ac4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x008a}
0xac4a…ac8e               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x006e, t01=0x0094}
0xac8e…ac98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00d8}
0xac98…acac               Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x006e, t01=0x00e2}
0xacac…acd8               Head {h00=0x0028, h01=0x0050, text=» CF A14,LERRON TURN ON 'ERROR' LAMP «, t00=0x006e, t01=0x00f6}
0xacd8…acf4               Head {h00=0x0018, h01=0x0050, text=» LD A5,KBINH,TCABAS «, t00=0x006e, t01=0x0122}
0xacf4…ad2c               Head {h00=0x0034, h01=0x0050, text=» ORK A5,4 BIT 13:=1,ERROR HANDLING.RESET ALLOWED«, t00=0x006e, t01=0x013e}
0xad2c…ad48               Head {h00=0x0018, h01=0x0050, text=» ST A5,KBINH,TCABAS «, t00=0x006e, t01=0x0176}
0xad48…ad50 (111, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x006f, t01=0x0004}
0xad50…ad5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x000c}
0xad5a…ad7a               Head {h00=0x001c, h01=0x0050, text=»*   TURN ON SOUND ALARM «, t00=0x006f, t01=0x0016}
0xad7a…ad84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0036}
0xad84…ad8c               Head {h00=0x0004, h01=0x0050, t00=0x006f, t01=0x0040}
0xad8c…ada4               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBVDU «, t00=0x006f, t01=0x0048}
0xada4…adca               Head {h00=0x0022, h01=0x0050, text=» ADR A8,CREBAS VDU-ECB ADDRESS«, t00=0x006f, t01=0x0060}
0xadca…adf0               Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBBA,A8 BUFFER ADDRESS«, t00=0x006f, t01=0x0086}
0xadf0…ae18               Head {h00=0x0024, h01=0x0050, text=» LDK A7,X'2B' CONTROL CHARACTER «, t00=0x006f, t01=0x00ac}
0xae18…ae2c               Head {h00=0x0010, h01=0x0050, text=» SC A7,1,A2 «, t00=0x006f, t01=0x00d4}
0xae2c…ae50               Head {h00=0x0020, h01=0x0050, text=» LDK A7,X'07' BELL CHARACTER«, t00=0x006f, t01=0x00e8}
0xae50…ae64               Head {h00=0x0010, h01=0x0050, text=» SC A7,2,A2 «, t00=0x006f, t01=0x010c}
0xae64…ae86               Head {h00=0x001e, h01=0x0050, text=» LDK A7,3 REQUESTED LENGTH«, t00=0x006f, t01=0x0120}
0xae86…ae9e               Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x006f, t01=0x0142}
0xae9e…aec0               Head {h00=0x001e, h01=0x0050, text=» LDK A7,X'86' SOUND ALARM «, t00=0x006f, t01=0x015a}
0xaec0…aecc               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x006f, t01=0x017c}
0xaecc…aedc               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x006f, t01=0x0188}
0xaedc…aee4               Head {h00=0x0004, h01=0x0050, t00=0x0070, t01=0x0008}
0xaee4…aef4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0070, t01=0x0010}
0xaef4…af0a               Head {h00=0x0012, h01=0x0050, text=» IFT KEYLST=1 «, t00=0x0070, t01=0x0020}
0xaf0a…af18               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x0036}
0xaf18…af62               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0070, t01=0x0044}
0xaf62…af6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x008e}
0xaf6c…af98               Head {h00=0x0028, h01=0x0050, text=»*   KEY LOCK STATUS IS SET IN 'KEYS'«, t00=0x0070, t01=0x0098}
0xaf98…afc8               Head {h00=0x002c, h01=0x0050, text=»* ON ENTRY  A2 = KEY LOCK VALUE /70-/77 «, t00=0x0070, t01=0x00c4}
0xafc8…afd2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00f4}
0xafd2…b01c               Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0070, t01=0x00fe}
0xb01c…b026               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0148}
0xb026…b038               Head {h00=0x000e, h01=0x0050, text=»KEYL EQU *«, t00=0x0070, t01=0x0152}
0xb038…b062               Head {h00=0x0026, h01=0x0050, text=» SUK A2,/78 GET NEG KEY LOCK VALUE«, t00=0x0070, t01=0x0164}
0xb062…b088               Head {h00=0x0022, h01=0x0050, text=» LD A3,KEYS,TCABAS OLD STATUS «, t00=0x0070, t01=0x018e}
0xb088…b09c               Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x0071, t01=0x0024}
0xb09c…b0b0               Head {h00=0x0010, h01=0x0050, text=»KEYL10 EQU *«, t00=0x0071, t01=0x0038}
0xb0b0…b0c2               Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x0071, t01=0x004c}
0xb0c2…b0e2               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 1 = OFF,0 = ON«, t00=0x0071, t01=0x005e}
0xb0e2…b0f8               Head {h00=0x0012, h01=0x0050, text=» RB(N) KEYL10 «, t00=0x0071, t01=0x007e}
0xb0f8…b11c               Head {h00=0x0020, h01=0x0050, text=» ANR A3,A4 CHECK OLD KEY POS«, t00=0x0071, t01=0x0094}
0xb11c…b13a               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) KEYL20 WAS ON «, t00=0x0071, t01=0x00b8}
0xb13a…b154               Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 WAS OFF«, t00=0x0071, t01=0x00d6}
0xb154…b17e               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) KEYL99 NOW OFF, NO CHANGE «, t00=0x0071, t01=0x00f0}
0xb17e…b198               Head {h00=0x0016, h01=0x0050, text=» RF KEYL30 NOW ON «, t00=0x0071, t01=0x011a}
0xb198…b1b4               Head {h00=0x0018, h01=0x0050, text=»KEYL20 EQU * WAS ON «, t00=0x0071, t01=0x0134}
0xb1b4…b1c6               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0071, t01=0x0150}
0xb1c6…b1ee               Head {h00=0x0024, h01=0x0050, text=» RF(Z) KEYL99 NOW ON, NO CHANGE «, t00=0x0071, t01=0x0162}
0xb1ee…b20a               Head {h00=0x0018, h01=0x0050, text=»KEYL30 EQU *  CHANGE«, t00=0x0071, t01=0x018a}
0xb20a…b224               Head {h00=0x0016, h01=0x0050, text=» LD A3,KEYS,TCABAS«, t00=0x0072, t01=0x0016}
0xb224…b244               Head {h00=0x001c, h01=0x0050, text=» XRR A3,A4 CHANGE STATUS«, t00=0x0072, t01=0x0030}
0xb244…b270               Head {h00=0x0028, h01=0x0050, text=» ST A3,KEYS,TCABAS STORE NEW STATUS «, t00=0x0072, t01=0x0050}
0xb270…b27a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x007c}
0xb27a…b29a               Head {h00=0x001c, h01=0x0050, text=»* KEYLOCK STATUS CHANGED«, t00=0x0072, t01=0x0086}
0xb29a…b2e8               Head {h00=0x004a, h01=0x0050, text=»*   A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON «, t00=0x0072, t01=0x00a6}
0xb2e8…b316               Head {h00=0x002a, h01=0x0050, text=»*   A4 = KEYLOCK CHANGED, LAYOUT AS A3«, t00=0x0072, t01=0x00f4}
0xb316…b342               Head {h00=0x0028, h01=0x0050, text=»*   A2 = 1, IF CHANGED TO OFF ELSE 0«, t00=0x0072, t01=0x0122}
0xb342…b34c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x014e}
0xb34c…b37a               Head {h00=0x002a, h01=0x0050, text=»* INSERT USER ROUTINE BELOW THIS LINE «, t00=0x0072, t01=0x0158}
0xb37a…b384               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0186}
0xb384…b398               Head {h00=0x0010, h01=0x0050, text=»KEYL99 EQU *«, t00=0x0072, t01=0x0190}
0xb398…b3a8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0073, t01=0x0014}
0xb3a8…b3b4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0073, t01=0x0024}
0xb3b4…b3c2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0073, t01=0x0030}
0xb3c2…b3cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x003e}
0xb3cc…b40c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0073, t01=0x0048}
0xb40c…b416               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0088}
0xb416…b42a               Head {h00=0x0010, h01=0x0050, text=»* LAMPMODULE«, t00=0x0073, t01=0x0092}
0xb42a…b434               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00a6}
0xb434…b43e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00b0}
0xb43e…b47e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0073, t01=0x00ba}
0xb47e…b488               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00fa}
0xb488…b49c               Head {h00=0x0010, h01=0x0050, text=»LON EQU /B7 «, t00=0x0073, t01=0x0104}
0xb49c…b4b0               Head {h00=0x0010, h01=0x0050, text=»LOF EQU /B8 «, t00=0x0073, t01=0x0118}
0xb4b0…b4c6               Head {h00=0x0012, h01=0x0050, text=» IFT KB6272=1 «, t00=0x0073, t01=0x012c}
0xb4c6…b4da               Head {h00=0x0010, h01=0x0050, text=»LMF1 EQU /20«, t00=0x0073, t01=0x0142}
0xb4da…b4ee               Head {h00=0x0010, h01=0x0050, text=»LMF2 EQU /10«, t00=0x0073, t01=0x0156}
0xb4ee…b506               Head {h00=0x0014, h01=0x0050, text=»LIOL EQU 1  DK2 «, t00=0x0073, t01=0x016a}
0xb506…b51e               Head {h00=0x0014, h01=0x0050, text=»LINH EQU 8  DK2 «, t00=0x0073, t01=0x0182}
0xb51e…b536               Head {h00=0x0014, h01=0x0050, text=»LERR EQU 4  DK2 «, t00=0x0074, t01=0x000a}
0xb536…b550               Head {h00=0x0016, h01=0x0050, text=»LSAV EQU /10  DK2 «, t00=0x0074, t01=0x0022}
0xb550…b55c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0074, t01=0x003c}
0xb55c…b572               Head {h00=0x0012, h01=0x0050, text=» IFF KB6272=1 «, t00=0x0074, t01=0x0048}
0xb572…b588               Head {h00=0x0012, h01=0x0050, text=»LMF1 EQU 0  =2«, t00=0x0074, t01=0x005e}
0xb588…b59e               Head {h00=0x0012, h01=0x0050, text=»LMF2 EQU 0  =2«, t00=0x0074, t01=0x0074}
0xb59e…b5b4               Head {h00=0x0012, h01=0x0050, text=»LIOL EQU 1  =2«, t00=0x0074, t01=0x008a}
0xb5b4…b5ca               Head {h00=0x0012, h01=0x0050, text=»LINH EQU 2  =2«, t00=0x0074, t01=0x00a0}
0xb5ca…b5e0               Head {h00=0x0012, h01=0x0050, text=»LERR EQU 4  =2«, t00=0x0074, t01=0x00b6}
0xb5e0…b5f6               Head {h00=0x0012, h01=0x0050, text=»LSAV EQU 8  =2«, t00=0x0074, t01=0x00cc}
0xb5f6…b602               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0074, t01=0x00e2}
0xb602…b61c               Head {h00=0x0016, h01=0x0050, text=»LMF1ON LDK A3,LMF1«, t00=0x0074, t01=0x00ee}
0xb61c…b62e               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0074, t01=0x0108}
0xb62e…b648               Head {h00=0x0016, h01=0x0050, text=»LMF1OF LDK A3,LMF1«, t00=0x0074, t01=0x011a}
0xb648…b65a               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0074, t01=0x0134}
0xb65a…b674               Head {h00=0x0016, h01=0x0050, text=»LMF2ON LDK A3,LMF2«, t00=0x0074, t01=0x0146}
0xb674…b686               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0074, t01=0x0160}
0xb686…b6a0               Head {h00=0x0016, h01=0x0050, text=»LMF2OF LDK A3,LMF2«, t00=0x0074, t01=0x0172}
0xb6a0…b6b2               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0074, t01=0x018c}
0xb6b2…b6cc               Head {h00=0x0016, h01=0x0050, text=»LIOLON LDK A3,LIOL«, t00=0x0075, t01=0x000e}
0xb6cc…b6de               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x0028}
0xb6de…b6f8               Head {h00=0x0016, h01=0x0050, text=»LIOLOF LDK A3,LIOL«, t00=0x0075, t01=0x003a}
0xb6f8…b70a               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x0054}
0xb70a…b724               Head {h00=0x0016, h01=0x0050, text=»LINHON LDK A3,LINH«, t00=0x0075, t01=0x0066}
0xb724…b736               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x0080}
0xb736…b750               Head {h00=0x0016, h01=0x0050, text=»LINHOF LDK A3,LINH«, t00=0x0075, t01=0x0092}
0xb750…b762               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x00ac}
0xb762…b77c               Head {h00=0x0016, h01=0x0050, text=»LERRON LDK A3,LERR«, t00=0x0075, t01=0x00be}
0xb77c…b78e               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x00d8}
0xb78e…b7a8               Head {h00=0x0016, h01=0x0050, text=»LERROF LDK A3,LERR«, t00=0x0075, t01=0x00ea}
0xb7a8…b7ba               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x0104}
0xb7ba…b7d4               Head {h00=0x0016, h01=0x0050, text=»LSAVON LDK A3,LSAV«, t00=0x0075, t01=0x0116}
0xb7d4…b7e6               Head {h00=0x000e, h01=0x0050, text=» RF LMPON «, t00=0x0075, t01=0x0130}
0xb7e6…b800               Head {h00=0x0016, h01=0x0050, text=»LSAVOF LDK A3,LSAV«, t00=0x0075, t01=0x0142}
0xb800…b812               Head {h00=0x000e, h01=0x0050, text=» RF LMPOF «, t00=0x0075, t01=0x015c}
0xb812…b81c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x016e}
0xb81c…b836               Head {h00=0x0016, h01=0x0050, text=» IFF KB6272=1  DK2«, t00=0x0075, t01=0x0178}
0xb836…b84e (118, 0, 400) Head {h00=0x0014, h01=0x0050, text=»LMPON LDK A7,LON«, t00=0x0076, t01=0x0004}
0xb84e…b860               Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0076, t01=0x001c}
0xb860…b878               Head {h00=0x0014, h01=0x0050, text=»LMPOF LDK A7,LOF«, t00=0x0076, t01=0x002e}
0xb878…b88a               Head {h00=0x000e, h01=0x0050, text=» RF SDISP «, t00=0x0076, t01=0x0046}
0xb88a…b89c               Head {h00=0x000e, h01=0x0050, text=» XIF   DK2«, t00=0x0076, t01=0x0058}
0xb89c…b8be               Head {h00=0x001e, h01=0x0050, text=» IFT KB6272+LMPVDU=1  DK5 «, t00=0x0076, t01=0x006a}
0xb8be…b8dc               Head {h00=0x001a, h01=0x0050, text=»LMPON LDK A7,LON  DK5 «, t00=0x0076, t01=0x008c}
0xb8dc…b8f2               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK5«, t00=0x0076, t01=0x00aa}
0xb8f2…b910               Head {h00=0x001a, h01=0x0050, text=»LMPOF LDK A7,LOF  DK5 «, t00=0x0076, t01=0x00c0}
0xb910…b926               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK5«, t00=0x0076, t01=0x00de}
0xb926…b938               Head {h00=0x000e, h01=0x0050, text=» XIF   DK5«, t00=0x0076, t01=0x00f4}
0xb938…b95c               Head {h00=0x0020, h01=0x0050, text=» IFT KB6272+LMPVDU=2  DK2+5 «, t00=0x0076, t01=0x0106}
0xb95c…b984               Head {h00=0x0024, h01=0x0050, text=»LMPON ORS A3,LAMSAV,TCABAS  DK2 «, t00=0x0076, t01=0x012a}
0xb984…b99a               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK2«, t00=0x0076, t01=0x0152}
0xb99a…b9b6               Head {h00=0x0018, h01=0x0050, text=»LMPOF C1R A3,A3  DK2«, t00=0x0076, t01=0x0168}
0xb9b6…b9d8               Head {h00=0x001e, h01=0x0050, text=» ANS A3,LAMSAV,TCABAS  DK2«, t00=0x0076, t01=0x0184}
0xb9d8…b9ee               Head {h00=0x0012, h01=0x0050, text=» RF SDISP  DK2«, t00=0x0077, t01=0x0016}
0xb9ee…ba00               Head {h00=0x000e, h01=0x0050, text=» XIF   DK2«, t00=0x0077, t01=0x002c}
0xba00…ba0a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0077, t01=0x003e}
0xba0a…ba12               Head {h00=0x0004, h01=0x0050, t00=0x0077, t01=0x0048}
0xba12…ba1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0050}
0xba1c…ba5c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0077, t01=0x005a}
0xba5c…ba66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x009a}
0xba66…ba76               Head {h00=0x000c, h01=0x0050, text=»* SDISP «, t00=0x0077, t01=0x00a4}
0xba76…ba80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00b4}
0xba80…baa8               Head {h00=0x0024, h01=0x0050, text=»* SIGNAL DISPLAY MONITOR REQUEST«, t00=0x0077, t01=0x00be}
0xbaa8…bab2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00e6}
0xbab2…baf2               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0077, t01=0x00f0}
0xbaf2…bafc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0130}
0xbafc…bb04               Head {h00=0x0004, h01=0x0050, t00=0x0077, t01=0x013a}
0xbb04…bb1e               Head {h00=0x0016, h01=0x0050, text=»SDISP EQU *  DK2+5«, t00=0x0077, t01=0x0142}
0xbb1e…bb3a               Head {h00=0x0018, h01=0x0050, text=» LDKL A8,ECBSD DK2+5«, t00=0x0077, t01=0x015c}
0xbb3a…bb58               Head {h00=0x001a, h01=0x0050, text=» ADR A8,CREBAS  DK2+5 «, t00=0x0077, t01=0x0178}
0xbb58…bb74               Head {h00=0x0018, h01=0x0050, text=» IFF KB6272=1  DK2+5«, t00=0x0078, t01=0x0008}
0xbb74…bb92               Head {h00=0x001a, h01=0x0050, text=» ST A3,ECBCW,A8  DK2+5«, t00=0x0078, t01=0x0024}
0xbb92…bba6               Head {h00=0x0010, h01=0x0050, text=» XIF   DK2+5«, t00=0x0078, t01=0x0042}
0xbba6…bbca               Head {h00=0x0020, h01=0x0050, text=» IFT LMPVDU+KB6272=1  DK2+5 «, t00=0x0078, t01=0x0056}
0xbbca…bbe8               Head {h00=0x001a, h01=0x0050, text=» ST A3,ECBCW,A8  DK2+5«, t00=0x0078, t01=0x007a}
0xbbe8…bbfc               Head {h00=0x0010, h01=0x0050, text=» XIF   DK2+5«, t00=0x0078, t01=0x0098}
0xbbfc…bc20               Head {h00=0x0020, h01=0x0050, text=» IFT LMPVDU+KB6272=2  DK2+5 «, t00=0x0078, t01=0x00ac}
0xbc20…bc3c               Head {h00=0x0018, h01=0x0050, text=» CM* ECBBA,A8  DK2+5«, t00=0x0078, t01=0x00d0}
0xbc3c…bc56               Head {h00=0x0016, h01=0x0050, text=» LDK A3,/1C  DK2+5«, t00=0x0078, t01=0x00ec}
0xbc56…bc76               Head {h00=0x001c, h01=0x0050, text=» SC* A3,ECBBA,A8  DK2+5 «, t00=0x0078, t01=0x0106}
0xbc76…bc9a               Head {h00=0x0020, h01=0x0050, text=» LD A3,LAMSAV,TCABAS  DK2+5 «, t00=0x0078, t01=0x0126}
0xbc9a…bcba               Head {h00=0x001c, h01=0x0050, text=» ORS* A3,ECBBA,A8  DK2+5«, t00=0x0078, t01=0x014a}
0xbcba…bcd2               Head {h00=0x0014, h01=0x0050, text=» LDK A3,2  DK2+5«, t00=0x0078, t01=0x016a}
0xbcd2…bcf0               Head {h00=0x001a, h01=0x0050, text=» ST A3,ECBRL,A8  DK2+5«, t00=0x0078, t01=0x0182}
0xbcf0…bd0a               Head {h00=0x0016, h01=0x0050, text=» LDK A7,/85  DK2+5«, t00=0x0079, t01=0x0010}
0xbd0a…bd1e               Head {h00=0x0010, h01=0x0050, text=» XIF   DK2+5«, t00=0x0079, t01=0x002a}
0xbd1e…bd32               Head {h00=0x0010, h01=0x0050, text=» LKM   DK2+5«, t00=0x0079, t01=0x003e}
0xbd32…bd48               Head {h00=0x0012, h01=0x0050, text=» DATA 1  DK2+5«, t00=0x0079, t01=0x0052}
0xbd48…bd60               Head {h00=0x0014, h01=0x0050, text=» RTN A14  DK2+5 «, t00=0x0079, t01=0x0068}
0xbd60…bd6e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x0080}
0xbd6e…bd78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x008e}
0xbd78…bdb8               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0079, t01=0x0098}
0xbdb8…bdc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00d8}
0xbdc2…bdd6               Head {h00=0x0010, h01=0x0050, text=»*     ATMASB«, t00=0x0079, t01=0x00e2}
0xbdd6…bde0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00f6}
0xbde0…be1e               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR BACKWARDS AND MASK IT «, t00=0x0079, t01=0x0100}
0xbe1e…be28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x013e}
0xbe28…be68               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0079, t01=0x0148}
0xbe68…be72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0188}
0xbe72…be98 (122, 0, 400) Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x007a, t01=0x0004}
0xbe98…bec0               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x007a, t01=0x002a}
0xbec0…bef2               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     1=END OF BUFFER LEFT «, t00=0x007a, t01=0x0052}
0xbef2…bf1e               Head {h00=0x0028, h01=0x0050, text=»*      2= ATTRIBUTE IN LAST POSITION«, t00=0x007a, t01=0x0084}
0xbf1e…bf28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00b0}
0xbf28…bf3c               Head {h00=0x0010, h01=0x0050, text=»ATMASB EQU *«, t00=0x007a, t01=0x00ba}
0xbf3c…bf4e               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x007a, t01=0x00ce}
0xbf4e…bf62               Head {h00=0x0010, h01=0x0050, text=»ASB05 EQU * «, t00=0x007a, t01=0x00e0}
0xbf62…bf88               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x007a, t01=0x00f4}
0xbf88…bfaa               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIB. CHAR. «, t00=0x007a, t01=0x011a}
0xbfaa…bfc2               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASB10 NO «, t00=0x007a, t01=0x013c}
0xbfc2…bfe4               Head {h00=0x001e, h01=0x0050, text=»ASB08 ST A3,ATTRIB,TCABAS «, t00=0x007a, t01=0x0154}
0xbfe4…c014               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x007a, t01=0x0176}
0xc014…c024               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007b, t01=0x0016}
0xc024…c048               Head {h00=0x0020, h01=0x0050, text=»ASB10 CWK A2,0 END OF BUFFER«, t00=0x007b, t01=0x0026}
0xc048…c060               Head {h00=0x0014, h01=0x0050, text=» RF(E) ASB20 YES«, t00=0x007b, t01=0x004a}
0xc060…c072               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x007b, t01=0x0062}
0xc072…c088               Head {h00=0x0012, h01=0x0050, text=» RB ASB05 NEXT«, t00=0x007b, t01=0x0074}
0xc088…c09c               Head {h00=0x0010, h01=0x0050, text=»ASB20 EQU * «, t00=0x007b, t01=0x008a}
0xc09c…c0aa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007b, t01=0x009e}
0xc0aa…c0b2               Head {h00=0x0004, h01=0x0050, t00=0x007b, t01=0x00ac}
0xc0b2…c0ec               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x007b, t01=0x00b4}
0xc0ec…c114               Head {h00=0x0024, h01=0x0050, text=» LDK A1,2 ATTRIBUTE IN LAST POS.«, t00=0x007b, t01=0x00ee}
0xc114…c13e               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,1919 LAST BUFFER POSITION«, t00=0x007b, t01=0x0116}
0xc13e…c162               Head {h00=0x0020, h01=0x0050, text=» CF A14,GBUFFC GET CHARACTER«, t00=0x007b, t01=0x0140}
0xc162…c184               Head {h00=0x001e, h01=0x0050, text=» CWK A3,/1F ATTRIBUTE ??? «, t00=0x007b, t01=0x0164}
0xc184…c1a0               Head {h00=0x0018, h01=0x0050, text=» RB(NG) ASB08 YES!!!«, t00=0x007b, t01=0x0186}
0xc1a0…c1c4               Head {h00=0x0020, h01=0x0050, text=» SUR A2,A2 FIRST SCREEN POS.«, t00=0x007c, t01=0x0012}
0xc1c4…c1fa               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x007c, t01=0x0036}
0xc1fa…c202               Head {h00=0x0004, h01=0x0050, t00=0x007c, t01=0x006c}
0xc202…c224               Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 END BUFFER LEFT «, t00=0x007c, t01=0x0074}
0xc224…c23e               Head {h00=0x0016, h01=0x0050, text=» CM ATTRIB,TCABAS «, t00=0x007c, t01=0x0096}
0xc23e…c256               Head {h00=0x0014, h01=0x0050, text=» LDKL A7,LBVDU+1«, t00=0x007c, t01=0x00b0}
0xc256…c28e               Head {h00=0x0034, h01=0x0050, text=» ST A7,CURATT,TCABAS POSSIBLY UNFORMATTED SCREEN«, t00=0x007c, t01=0x00c8}
0xc28e…c29e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007c, t01=0x0100}
0xc29e…c2ac               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007c, t01=0x0110}
0xc2ac…c2b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x011e}
0xc2b6…c2f6               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x007c, t01=0x0128}
0xc2f6…c300               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0168}
0xc300…c314               Head {h00=0x0010, h01=0x0050, text=»*     ATMASF«, t00=0x007c, t01=0x0172}
0xc314…c31e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0186}
0xc31e…c35c               Head {h00=0x003a, h01=0x0050, text=»*     SEARCH FOR ATTRIBUTE CHAR. FORWARDS AND MASK IT «, t00=0x007c, t01=0x0190}
0xc35c…c366               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x003e}
0xc366…c3a8               Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x007d, t01=0x0048}
0xc3a8…c3b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x008a}
0xc3b2…c3c8               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x007d, t01=0x0094}
0xc3c8…c3ee               Head {h00=0x0022, h01=0x0050, text=»*     A2=CURSOR BINARY ADDRESS«, t00=0x007d, t01=0x00aa}
0xc3ee…c416               Head {h00=0x0024, h01=0x0050, text=»*     A1=BUFFER SCANNING PARAM. «, t00=0x007d, t01=0x00d0}
0xc416…c448               Head {h00=0x002e, h01=0x0050, text=»* 0=ATTRIB FOUND     2=END OF BUFFER RIGHT«, t00=0x007d, t01=0x00f8}
0xc448…c46e               Head {h00=0x0022, h01=0x0050, text=»*   A3=ATTRIB IN LAST BUFF POS«, t00=0x007d, t01=0x012a}
0xc46e…c478               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0150}
0xc478…c480               Head {h00=0x0004, h01=0x0050, t00=0x007d, t01=0x015a}
0xc480…c488               Head {h00=0x0004, h01=0x0050, t00=0x007d, t01=0x0162}
0xc488…c49c               Head {h00=0x0010, h01=0x0050, text=»S:ATT EQU * «, t00=0x007d, t01=0x016a}
0xc49c…c4b8               Head {h00=0x0018, h01=0x0050, text=» LD A7,ATTRIB,TCABAS«, t00=0x007d, t01=0x017e}
0xc4b8…c4d4               Head {h00=0x0018, h01=0x0050, text=» LD A8,CURATT,TCABAS«, t00=0x007e, t01=0x000a}
0xc4d4…c504               Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x007e, t01=0x0026}
0xc504…c520               Head {h00=0x0018, h01=0x0050, text=» ST A7,ATTRIB,TCABAS«, t00=0x007e, t01=0x0056}
0xc520…c53c               Head {h00=0x0018, h01=0x0050, text=» ST A8,CURATT,TCABAS«, t00=0x007e, t01=0x0072}
0xc53c…c54c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007e, t01=0x008e}
0xc54c…c554               Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x009e}
0xc554…c568               Head {h00=0x0010, h01=0x0050, text=»ATMASF EQU *«, t00=0x007e, t01=0x00a6}
0xc568…c57a               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x007e, t01=0x00ba}
0xc57a…c58e               Head {h00=0x0010, h01=0x0050, text=»ASF05 EQU * «, t00=0x007e, t01=0x00cc}
0xc58e…c5b4               Head {h00=0x0022, h01=0x0050, text=» CF A14,GBUFFC GET BUFFER CHAR«, t00=0x007e, t01=0x00e0}
0xc5b4…c5d4               Head {h00=0x001c, h01=0x0050, text=» CWK A3,/1F ATTRIB CHAR?«, t00=0x007e, t01=0x0106}
0xc5d4…c5ec               Head {h00=0x0014, h01=0x0050, text=» RF(G) ASF10 NO «, t00=0x007e, t01=0x0126}
0xc5ec…c630               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007e, t01=0x013e}
0xc630…c660               Head {h00=0x002c, h01=0x0050, text=» CWK A2,LBVDU-1 EOB +ATTRIB IN LAST POS «, t00=0x007e, t01=0x0182}
0xc660…c6a4               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x007f, t01=0x0022}
0xc6a4…c6bc               Head {h00=0x0014, h01=0x0050, text=» RF(NE) ASF08 NO«, t00=0x007f, t01=0x0066}
0xc6bc…c6ce               Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x007f, t01=0x007e}
0xc6ce…c6f0               Head {h00=0x001e, h01=0x0050, text=»ASF08 ST A3,ATTRIB,TCABAS «, t00=0x007f, t01=0x0090}
0xc6f0…c720               Head {h00=0x002c, h01=0x0050, text=» ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE«, t00=0x007f, t01=0x00b2}
0xc720…c730               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007f, t01=0x00e2}
0xc730…c75c               Head {h00=0x0028, h01=0x0050, text=»ASF10 CWK A2,LBVDU-1 END OF BUFFER? «, t00=0x007f, t01=0x00f2}
0xc75c…c774               Head {h00=0x0014, h01=0x0050, text=» RF(L) ASF20 NO «, t00=0x007f, t01=0x011e}
0xc774…c786               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x007f, t01=0x0136}
0xc786…c796               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007f, t01=0x0148}
0xc796…c7ac               Head {h00=0x0012, h01=0x0050, text=»ASF20 ADK A2,1«, t00=0x007f, t01=0x0158}
0xc7ac…c7be               Head {h00=0x000e, h01=0x0050, text=» RB ASF05 «, t00=0x007f, t01=0x016e}
0xc7be…c7cc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007f, t01=0x0180}
0xc7cc…c7d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x018e}
0xc7d6…c810               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0080, t01=0x0008}
0xc810…c81a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0042}
0xc81a…c82a               Head {h00=0x000c, h01=0x0050, text=»* GBUFFC«, t00=0x0080, t01=0x004c}
0xc82a…c834               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x005c}
0xc834…c86e               Head {h00=0x0036, h01=0x0050, text=»* GET VDU BUFFER CHAR WHICH IS INDICATED BY CURSOR«, t00=0x0080, t01=0x0066}
0xc86e…c878               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00a0}
0xc878…c8b2               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0080, t01=0x00aa}
0xc8b2…c8bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00e4}
0xc8bc…c8dc               Head {h00=0x001c, h01=0x0050, text=»* A2=CURSOR BINARY ADDR «, t00=0x0080, t01=0x00ee}
0xc8dc…c8f2               Head {h00=0x0012, h01=0x0050, text=»* A3=CHARACTER«, t00=0x0080, t01=0x010e}
0xc8f2…c8fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0124}
0xc8fc…c906               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x012e}
0xc906…c91a               Head {h00=0x0010, h01=0x0050, text=»GBUFFC EQU *«, t00=0x0080, t01=0x0138}
0xc91a…c92c               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0080, t01=0x014c}
0xc92c…c942               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,BVDU «, t00=0x0080, t01=0x015e}
0xc942…c968               Head {h00=0x0022, h01=0x0050, text=» ADR A4,TCABAS GET VDU BUFFER «, t00=0x0080, t01=0x0174}
0xc968…c97a               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A2«, t00=0x0081, t01=0x000a}
0xc97a…c9a4               Head {h00=0x0026, h01=0x0050, text=» LCR A3,A4 GET CHARACTER IN BUFF. «, t00=0x0081, t01=0x001c}
0xc9a4…c9b4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x0046}
0xc9b4…c9c2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x0056}
0xc9c2…c9cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0064}
0xc9cc…ca10               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0081, t01=0x006e}
0xca10…ca1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00b2}
0xca1a…ca2a               Head {h00=0x000c, h01=0x0050, text=»* RESET «, t00=0x0081, t01=0x00bc}
0xca2a…ca34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00cc}
0xca34…ca70               Head {h00=0x0038, h01=0x0050, text=»* RESET 'KEYBOARD INHIBIT' IN FOLLOWING SITUATIONS: «, t00=0x0081, t01=0x00d6}
0xca70…caac               Head {h00=0x0038, h01=0x0050, text=»* 1- A DEVICE WITH AN ATTACHED KEYBOARD IS EXECUTING«, t00=0x0081, t01=0x0112}
0xcaac…cad4               Head {h00=0x0024, h01=0x0050, text=»*  A COMMAND. BIT 14=1 IN KBINH «, t00=0x0081, t01=0x014e}
0xcad4…cb0a               Head {h00=0x0032, h01=0x0050, text=»* 2- A PA-KEY OPERATION IS IN PROCESS PRIOR TO«, t00=0x0081, t01=0x0176}
0xcb0a…cb4a               Head {h00=0x003c, h01=0x0050, text=»*  INITIATION OF A COMMAND FOR A DEVICE WITH AN ATTACHED«, t00=0x0082, t01=0x001c}
0xcb4a…cb70               Head {h00=0x0022, h01=0x0050, text=»*  KEYBOARD. BIT 14=1 IN KBINH«, t00=0x0082, t01=0x005c}
0xcb70…cb9e               Head {h00=0x002a, h01=0x0050, text=»* 3- ERRORSITUATION. BIT 14=1 IN KBINH«, t00=0x0082, t01=0x0082}
0xcb9e…cba8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00b0}
0xcba8…cbe6               Head {h00=0x003a, h01=0x0050, text=»* IF BIT 15=1 IN KBINH => NO RESETTING ALLOWED DURING «, t00=0x0082, t01=0x00ba}
0xcbe6…cc0e               Head {h00=0x0024, h01=0x0050, text=»* UPDATE AND DISPLAY SITUATION. «, t00=0x0082, t01=0x00f8}
0xcc0e…cc18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0120}
0xcc18…cc5c               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0082, t01=0x012a}
0xcc5c…cc66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x016e}
0xcc66…cc7a               Head {h00=0x0010, h01=0x0050, text=»RESET EQU * «, t00=0x0082, t01=0x0178}
0xcc7a…cca4               Head {h00=0x0026, h01=0x0050, text=» CM MODE,TCABAS RESET INSERT MODE «, t00=0x0082, t01=0x018c}
0xcca4…ccd2               Head {h00=0x002a, h01=0x0050, text=» CF A14,LIOLOF TURN OFF "INSERT" LAMP «, t00=0x0083, t01=0x0026}
0xccd2…ccfc               Head {h00=0x0026, h01=0x0050, text=» CM KBINH,TCABAS RESSTORE KEYBOARD«, t00=0x0083, t01=0x0054}
0xccfc…cd28               Head {h00=0x0028, h01=0x0050, text=» CF A14,LERROF TURN OFF 'ERROR' LAMP«, t00=0x0083, t01=0x007e}
0xcd28…cd60               Head {h00=0x0034, h01=0x0050, text=» CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT' LAMP «, t00=0x0083, t01=0x00aa}
0xcd60…cd70               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0083, t01=0x00e2}
0xcd70…cd7e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x00f2}
0xcd7e…cd86               Head {h00=0x0004, h01=0x0050, t00=0x0083, t01=0x0100}
0xcd86…cd8e               Head {h00=0x0004, h01=0x0050, t00=0x0083, t01=0x0108}
0xcd8e…cdd6               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0083, t01=0x0110}
0xcdd6…cde0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0158}
0xcde0…ce18               Head {h00=0x0034, h01=0x0050, text=»*   C O P Y  :   COPY CONTENTS IN VDU BUFFER ON «, t00=0x0083, t01=0x0162}
0xce18…ce40               Head {h00=0x0024, h01=0x0050, text=»*                HARDCOPY DEVICE«, t00=0x0084, t01=0x000a}
0xce40…ce4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0032}
0xce4a…ce8e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0084, t01=0x003c}
0xce8e…ce96               Head {h00=0x0004, h01=0x0050, t00=0x0084, t01=0x0080}
0xce96…cea8               Head {h00=0x000e, h01=0x0050, text=»COPY EQU *«, t00=0x0084, t01=0x0088}
0xcea8…cec4               Head {h00=0x0018, h01=0x0050, text=» LD A5,COPNO,TCABAS «, t00=0x0084, t01=0x009a}
0xcec4…ceda               Head {h00=0x0012, h01=0x0050, text=» ABL(Z) ERROR «, t00=0x0084, t01=0x00b6}
0xceda…cef6               Head {h00=0x0018, h01=0x0050, text=» LDKL A3,BVDU BUFFER«, t00=0x0084, t01=0x00cc}
0xcef6…cf18               Head {h00=0x001e, h01=0x0050, text=» ADR A3,TCABAS   ADDRESSS «, t00=0x0084, t01=0x00e8}
0xcf18…cf3a               Head {h00=0x001e, h01=0x0050, text=» LDKL A6,LBVDU REQ LENGTH «, t00=0x0084, t01=0x010a}
0xcf3a…cf6a               Head {h00=0x002c, h01=0x0050, text=» LDK A4,/8B ORDER = WRITE ADDRESSED WAIT«, t00=0x0084, t01=0x012c}
0xcf6a…cf78               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0084, t01=0x015c}
0xcf78…cf82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x016a}
0xcf82…cfaa               Head {h00=0x0024, h01=0x0050, text=»* WRITE INTERTASK COMMUNICATION «, t00=0x0084, t01=0x0174}
0xcfaa…cfb4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x000c}
0xcfb4…cfd2               Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0085, t01=0x0016}
0xcfd2…cfe6               Head {h00=0x0010, h01=0x0050, text=»* A4 = ORDER«, t00=0x0085, t01=0x0034}
0xcfe6…cffe               Head {h00=0x0014, h01=0x0050, text=»* A5 = "TO-TID" «, t00=0x0085, t01=0x0048}
0xcffe…d018               Head {h00=0x0016, h01=0x0050, text=»* A6 = REQ LENGTH «, t00=0x0085, t01=0x0060}
0xd018…d022               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x007a}
0xd022…d036               Head {h00=0x0010, h01=0x0050, text=»ICWRTE EQU *«, t00=0x0085, t01=0x0084}
0xd036…d04e               Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBICW «, t00=0x0085, t01=0x0098}
0xd04e…d064               Head {h00=0x0012, h01=0x0050, text=» ADR A8,CREBAS«, t00=0x0085, t01=0x00b0}
0xd064…d078               Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0085, t01=0x00c6}
0xd078…d0a6               Head {h00=0x002a, h01=0x0050, text=» CF A14,REQTIM NO TIME OUT SUPERVISION«, t00=0x0085, t01=0x00da}
0xd0a6…d0c8               Head {h00=0x001e, h01=0x0050, text=» ST A5,ECBCW,A8 TO TASK ID«, t00=0x0085, t01=0x0108}
0xd0c8…d0ea               Head {h00=0x001e, h01=0x0050, text=» ST A6,ECBRL,A8 REQ LENGTH«, t00=0x0085, t01=0x012a}
0xd0ea…d102               Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0085, t01=0x014c}
0xd102…d11a               Head {h00=0x0014, h01=0x0050, text=» LDR A7,A4 ORDER«, t00=0x0085, t01=0x0164}
0xd11a…d126               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0085, t01=0x017c}
0xd126…d136               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0085, t01=0x0188}
0xd136…d146               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0086, t01=0x0008}
0xd146…d152               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0086, t01=0x0018}
0xd152…d156               Head {h00=0x4004, h01=0x0000}
0xd156…d15a               00 86 00 24                                                                                                                                                                                                                                       ┆   $┆
0xd15a…d162 (135, 1, 8)   20 04 00 00 00 87 00 04                                                                                                                                                                                                                           ┆        ┆
0xd162…d1b2 (136, 0, 400) 53 45 4e 54 00 3f 01 72 00 08 00 50 5c 58 49 46 00 40 00 0c 00 1e 00 50 5c 4c 44 52 5c 41 36 2c 41 33 5c 4c 4f 41 44 20 44 57 54 20 54 4f 20 41 36 20 00 40 00 18 00 20 00 50 5c 41 42 4c 28 4e 5a 29 5c 53 50 4f 4c 4c 5c 53 50 45 43 49 46 49   ┆SENT ? r   P XIF @     P LDR A6,A3 LOAD DWT TO A6  @     P ABL(NZ) SPOLL SPECIFI┆
0xd1b2…d202               43 20 50 4f 4c 4c 00 40 00 3a 00 18 00 50 5c 52 42 5c 42 52 4d 5c 49 4e 56 41 4c 49 44 20 50 4f 4c 4c 00 40 00 5e 00 10 00 50 42 52 4d 31 32 30 5c 45 51 55 5c 2a 00 40 00 7a 00 26 00 50 5c 43 46 5c 41 35 2c 46 49 4e 54 45 52 5c 43 48 45 43   ┆C POLL @ :   P RB BRM INVALID POLL @ ^   PBRM120 EQU * @ z & P CF A5,FINTER CHEC┆
0xd202…d252               4b 20 49 46 20 53 54 41 20 50 52 45 53 45 4e 54 00 40 00 8e 00 1e 00 50 5c 4c 44 52 5c 41 36 2c 41 33 5c 4c 4f 41 44 20 44 57 54 20 54 4f 20 41 36 20 00 40 00 b8 00 1c 00 50 5c 52 46 28 4e 5a 29 5c 42 52 4d 31 33 30 5c 53 54 41 20 46 4f 55   ┆K IF STA PRESENT @     P LDR A6,A3 LOAD DWT TO A6  @     P RF(NZ) BRM130 STA FOU┆
0xd252…d2a2               4e 44 00 40 00 da 00 12 00 50 5c 49 46 54 5c 4d 53 56 31 3d 30 5c 5c 20 00 40 00 fa 00 24 00 50 5c 4c 44 4b 4c 5c 41 36 2c 44 57 31 35 30 30 5c 53 45 4c 45 43 54 20 54 4f 20 44 43 54 41 53 4b 00 40 01 10 00 10 00 50 42 52 4d 31 33 30 5c 45   ┆ND @     P IFT MSV1=0    @   $ P LDKL A6,DW1500 SELECT TO DCTASK @     PBRM130 E┆
0xd2a2…d2f2               51 55 5c 2a 00 40 01 38 00 10 00 50 5c 41 42 4c 5c 53 45 4c 45 43 54 20 00 40 01 4c 00 0c 00 50 5c 58 49 46 5c 5c 5c 20 00 40 01 60 00 12 00 50 5c 49 46 54 5c 4d 53 56 31 3d 31 5c 5c 20 00 40 01 70 00 1c 00 50 5c 41 42 4c 5c 42 52 4d 5c 49   ┆QU * @ 8   P ABL SELECT  @ L   P XIF     @ `   P IFT MSV1=1    @ p   P ABL BRM I┆
0xd2f2…d342 (137, 0, 398) 4e 56 41 4c 49 44 20 41 44 44 52 45 53 53 00 40 01 86 00 0c 00 50 5c 58 49 46 5c 5c 5c 20 00 41 00 16 00 06 00 50 2a 20 00 41 00 26 00 2c 00 50 2a 20 20 20 57 41 49 54 20 46 4f 52 20 4d 41 52 4b 20 48 4f 4c 44 20 54 4f 20 52 45 53 59 4e 43   ┆NVALID ADDRESS @     P XIF     A     P*  A & , P*   WAIT FOR MARK HOLD TO RESYNC┆
0xd342…d392               48 52 4f 4e 49 5a 45 20 00 41 00 30 00 06 00 50 2a 20 00 41 00 60 00 10 00 50 42 52 4d 31 35 30 5c 45 51 55 5c 2a 00 41 00 6a 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 37 46 20 00 41 00 7e 00 10 00 50 5c 53 55 4b 5c 41 32 2c 2f 37 46 20 00 41   ┆HRONIZE  A 0   P*  A `   PBRM150 EQU * A j   P ANK A2,/7F  A ~   P SUK A2,/7F  A┆
0xd392…d3e2               00 92 00 1c 00 50 5c 52 42 28 5a 29 5c 42 52 4d 5c 52 45 53 59 4e 43 48 52 4f 4e 49 5a 45 00 41 00 a6 00 26 00 50 5c 43 46 5c 41 35 2c 52 45 41 44 5c 52 45 41 44 20 41 4e 4f 54 48 45 52 20 43 48 41 52 41 43 54 45 52 00 41 00 c6 00 0e 00 50   ┆     P RB(Z) BRM RESYNCHRONIZE A   & P CF A5,READ READ ANOTHER CHARACTER A     P┆
0xd3e2…d432               5c 52 42 5c 42 52 4d 31 35 30 00 41 00 f0 00 0a 00 50 5c 45 4a 45 43 54 00 41 01 02 00 06 00 50 2a 20 00 41 01 10 00 06 00 50 2a 20 00 41 01 1a 00 1c 00 50 2a 5c 45 4f 54 20 48 41 53 20 42 45 45 4e 20 52 45 43 45 49 56 45 44 20 00 41 01 24   ┆ RB BRM150 A     P EJECT A     P*  A     P*  A     P* EOT HAS BEEN RECEIVED  A $┆
0xd432…d480               00 06 00 50 2a 20 00 41 01 44 00 06 00 50 2a 20 00 41 01 4e 00 10 00 50 42 52 4d 32 30 30 5c 45 51 55 5c 2a 00 41 01 58 00 26 00 50 5c 43 46 5c 41 35 2c 48 50 54 49 4d 5c 53 54 4f 50 20 50 52 4f 43 45 44 55 52 45 20 54 49 4d 45 52 20         ┆   P*  A D   P*  A N   PBRM200 EQU * A X & P CF A5,HPTIM STOP PROCEDURE TIMER ┆
0xd480…d4d0 (138, 0, 400) 00 41 01 6c 00 10 00 50 5c 49 46 54 5c 52 43 4f 4d 3d 31 20 00 42 00 08 00 1e 00 50 5c 43 4d 5c 58 52 42 5c 52 45 53 45 54 20 52 45 41 44 20 42 55 46 46 45 52 20 00 42 00 1c 00 08 00 50 5c 58 49 46 00 42 00 3e 00 10 00 50 5c 4c 44 5c 41 31   ┆ A l   P IFT RCOM=1  B     P CM XRB RESET READ BUFFER  B     P XIF B >   P LD A1┆
0xd4d0…d520               2c 58 41 43 4b 20 00 42 00 4a 00 26 00 50 5c 52 46 28 5a 29 5c 42 52 4d 32 32 30 5c 41 43 4b 20 49 53 20 4e 4f 54 20 45 58 50 45 43 54 45 44 20 00 42 00 5e 00 22 00 50 5c 4c 44 5c 41 36 2c 46 44 57 54 55 54 5c 47 45 54 20 57 52 49 54 49 4e   ┆,XACK  B J & P RF(Z) BRM220 ACK IS NOT EXPECTED  B ^ " P LD A6,FDWTUT GET WRITIN┆
0xd520…d570               47 20 44 57 54 20 00 42 00 88 00 20 00 50 5c 52 46 28 5a 29 5c 42 52 4d 32 31 30 5c 4e 4f 20 4f 4e 45 20 57 52 49 54 49 4e 47 00 42 00 ae 00 16 00 50 5c 4c 44 4b 5c 41 31 2c 32 5c 53 45 54 20 52 43 3d 32 00 42 00 d2 00 28 00 50 5c 43 46 5c   ┆G DWT  B     P RF(Z) BRM210 NO ONE WRITING B     P LDK A1,2 SET RC=2 B   ( P CF ┆
0xd570…d5c0               41 35 2c 43 57 52 49 54 45 5c 43 4f 4d 50 4c 45 54 45 20 57 52 49 54 45 20 52 45 51 55 45 53 54 00 42 00 ec 00 10 00 50 42 52 4d 32 31 30 5c 45 51 55 5c 2a 00 42 01 18 00 22 00 50 5c 43 4d 5c 58 41 43 4b 5c 52 45 53 45 54 20 27 41 43 4b 20   ┆A5,CWRITE COMPLETE WRITE REQUEST B     PBRM210 EQU * B   " P CM XACK RESET 'ACK ┆
0xd5c0…d610               45 58 50 45 43 54 45 44 27 20 00 42 01 2c 00 10 00 50 42 52 4d 32 32 30 5c 45 51 55 5c 2a 00 42 01 52 00 1e 00 50 5c 43 4d 5c 58 53 45 4c 5c 52 45 53 45 54 20 27 53 45 4c 45 43 54 45 44 27 20 00 42 01 66 00 0c 00 50 5c 52 42 5c 42 52 4d 20   ┆EXPECTED'  B ,   PBRM220 EQU * B R   P CM XSEL RESET 'SELECTED'  B f   P RB BRM ┆
0xd610…d660 (139, 0, 400) 00 42 01 88 00 0a 00 50 5c 45 4a 45 43 54 00 43 00 08 00 06 00 50 2a 20 00 43 00 16 00 06 00 50 2a 20 00 43 00 20 00 1c 00 50 2a 5c 53 54 58 20 48 41 53 20 42 45 45 4e 20 52 45 43 45 49 56 45 44 20 00 43 00 2a 00 06 00 50 2a 20 00 43 00 4a   ┆ B     P EJECT C     P*  C     P*  C     P* STX HAS BEEN RECEIVED  C *   P*  C J┆
0xd660…d6b0               00 06 00 50 2a 20 00 43 00 54 00 10 00 50 42 52 4d 33 30 30 5c 45 51 55 5c 2a 00 43 00 5e 00 10 00 50 5c 43 46 5c 41 35 2c 48 50 54 49 4d 00 43 00 72 00 10 00 50 5c 4c 44 5c 41 31 2c 58 53 45 4c 20 00 43 00 86 00 1e 00 50 5c 52 46 28 5a 29   ┆   P*  C T   PBRM300 EQU * C ^   P CF A5,HPTIM C r   P LD A1,XSEL  C     P RF(Z)┆
0xd6b0…d700               5c 42 52 4d 33 31 35 5c 4e 4f 54 20 53 45 4c 45 43 54 45 44 00 43 00 9a 00 12 00 50 5c 4c 44 5c 41 31 2c 44 43 52 42 55 46 20 00 43 00 bc 00 28 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 43 48 41 49 4e 45 44 20 43   ┆ BRM315 NOT SELECTED C     P LD A1,DCRBUF  C   ( P*********************CHAINED C┆
0xd700…d750               4f 4d 4d 41 4e 44 00 43 00 d2 00 26 00 50 5c 52 42 28 5a 29 5c 42 52 4d 31 35 30 5c 4e 4f 20 42 55 46 46 45 52 20 41 56 41 49 4c 41 42 4c 45 20 00 43 00 fe 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 43   ┆OMMAND C   & P RB(Z) BRM150 NO BUFFER AVAILABLE  C     P*********************  C┆
0xd750…d7a0               01 28 00 10 00 50 42 52 4d 33 30 35 5c 45 51 55 5c 2a 00 43 01 46 00 1e 00 50 5c 43 46 5c 41 35 2c 52 44 4d 45 53 53 5c 52 45 41 44 20 4d 45 53 53 41 47 45 00 43 01 5a 00 0e 00 50 5c 53 55 4b 5c 41 37 2c 31 20 00 43 01 7c 00 1e 00 50 5c 52   ┆ (   PBRM305 EQU * C F   P CF A5,RDMESS READ MESSAGE C Z   P SUK A7,1  C |   P R┆
0xd7a0…d7f0 (140, 0, 400) 46 28 4e 5a 29 5c 42 52 4d 33 32 30 5c 4d 45 53 53 41 47 45 20 4f 4b 20 00 43 01 8e 00 10 00 50 42 52 4d 33 31 30 5c 45 51 55 5c 2a 00 44 00 20 00 28 00 50 5c 43 4d 5c 58 53 54 41 5c 49 4e 44 49 43 41 54 45 20 27 49 4e 56 41 4c 49 44 20 4d   ┆F(NZ) BRM320 MESSAGE OK  C     PBRM310 EQU * D   ( P CM XSTA INDICATE 'INVALID M┆
0xd7f0…d840               45 53 53 41 47 45 27 20 00 44 00 34 00 10 00 50 42 52 4d 33 31 32 5c 45 51 55 5c 2a 00 44 00 60 00 1a 00 50 5c 43 46 5c 41 35 2c 54 52 4e 41 4b 5c 53 45 4e 44 20 4e 41 4b 20 00 44 00 74 00 0c 00 50 5c 41 42 4c 5c 42 52 4d 00 44 00 92 00 10   ┆ESSAGE'  D 4   PBRM312 EQU * D `   P CF A5,TRNAK SEND NAK  D t   P ABL BRM D    ┆
0xd840…d890               00 50 42 52 4d 33 31 35 5c 45 51 55 5c 2a 00 44 00 a2 00 10 00 50 5c 49 46 54 5c 52 43 4f 4d 3d 31 20 00 44 00 b6 00 10 00 50 5c 4c 44 5c 41 31 2c 58 41 43 4b 20 00 44 00 ca 00 26 00 50 5c 52 46 28 5a 29 5c 42 52 4d 33 31 36 5c 41 43 4b 20   ┆ PBRM315 EQU * D     P IFT RCOM=1  D     P LD A1,XACK  D   & P RF(Z) BRM316 ACK ┆
0xd890…d8e0               49 53 20 4e 4f 54 20 45 58 50 45 43 54 45 44 20 00 44 00 de 00 12 00 50 5c 4c 44 5c 41 31 2c 44 43 52 42 55 46 20 00 44 01 08 00 26 00 50 5c 52 46 28 5a 29 5c 42 52 4d 33 31 36 5c 4e 4f 20 42 55 46 46 45 52 20 41 56 41 49 4c 41 42 4c 45 20   ┆IS NOT EXPECTED  D     P LD A1,DCRBUF  D   & P RF(Z) BRM316 NO BUFFER AVAILABLE ┆
0xd8e0…d930               00 44 01 1e 00 22 00 50 5c 4c 44 5c 41 36 2c 46 44 57 54 55 54 5c 47 45 54 20 57 52 49 54 49 4e 47 20 44 57 54 20 00 44 01 48 00 30 00 50 5c 41 42 4c 28 5a 29 5c 42 52 4d 31 35 30 5c 4e 4f 20 4f 4e 45 20 57 52 49 54 49 4e 47 2e 20 52 45 53   ┆ D   " P LD A6,FDWTUT GET WRITING DWT  D H 0 P ABL(Z) BRM150 NO ONE WRITING. RES┆

Reduced view