.TITLE	RCDATA
; RECORDS AND POINTERS
	.PSECT	RCDATA,RW,D,GBL,REL,CON
	.GLOBL	PCINST	LBUF	LBUF1	LBUF2	LBUF3
	.GLOBL	WCOUNT	TXTBF1	TXTBUF	TXTPTR	TXTLEN
	.GLOBL	RLDBF1	RLDBUF	RLDPTR	RLDLEN	PCCURR
	.GLOBL	PCLOAD	PCREQD	FLWORD	DS.GSD	DS.TXT
	.GLOBL	DS.TCN	DS.RLD	DS.RCN	DS.NTX	DS.NRL
	.GLOBL	DS.END	FORLST	PCOLD	TXTOLD	WRDPTR
	.GLOBL	NBUF	RLDST2	RLDST3	RLDLN2	RLDLN3
	.GLOBL	RLDADD	OUTBUF	WORDAS	LINEC	LINEP
TXTOLD:	.WORD	0	;POSITION OF TEXT AT START OF INSTRUCTION
PCINST:	.WORD	0	;PC AT START OF INSTRUCTION
LBUF:	.BLKB	54.	;BUFFER (3 PARTS) FOR DISASSEMBLED CODE
LBUF1=LBUF		;MAKE REFERENCE POINTERS FOR EACH
LBUF2=LBUF+18.		;OF THE THREE
LBUF3=LBUF+36.		;PIECES
WCOUNT:	.WORD	0	;NO. OF WORDS DISASSEMBLED FOR CURRENT INSTR.
TXTBF1:	.BLKW	2	;OVERFLOW REGION FOR TEXT BUFFER
TXTBUF:	.BLKB	174	;TEXT BUFFER
TXTPTR:	.WORD	0	;TEXT POINTER
TXTLEN:	.WORD	0	;LEN (BYTES) IN TXTBUF
RLDBF1:	.BLKB	176	;OVERFLOW AREA FOR RLD BUFFER
RLDBUF:	.BLKB	176	;RLD BUFFER
RLDPTR:	.WORD	0	;RLD POINTER
RLDLEN:	.WORD	0	;LEN (BYTES) IN RLDBUF
PCCURR:	.WORD	0	;PC FOR NEXT INSTRUCTION
PCLOAD:	.WORD	0	;LOAD ADDRESS FOR TXTBUF
PCOLD:	.WORD	0	;LOAD PC FOR CONTINUED RECORD
PCREQD:	.WORD	0	;LOAD PC NEEDED FOR CONT. DISASSEMBLY
FLWORD:	.WORD	0	;FLAGS WORD
DS.GSD=1		;GLOBAL SYMBOL PROCESSING
DS.TXT=2		;TEXT IN TEXT BUFFER
DS.TCN=4		;CONT. TEXT IN OVERFLOW BUFFER
DS.RLD=10		;RLD RECORD IN RLD BUFFER
DS.RCN=20		;RLD CON IN OVERFLOW BUFFER
DS.NTX=40		;FILE RECORD BUFFER CONTAINS TEXT
DS.NRL=100		;FILE RECORD BUFFER CONTAINS RLD
DS.END=200		;END OF MODULE DETECTED
FORLST:	.WORD	6	;NO. OF PARAMS
	.WORD	TXTBUF	;TEXT BUFFER POSITION (TO BE FILLED)
	.WORD	LBUF1	;ADDRESSES OF 3 BUFFERS
	.WORD	LBUF2	;FOR ASCII
	.WORD	LBUF3	;DISASSEMBLY
	.WORD	WCOUNT	;RETURNED COUNT OF WORDS DISASSEMBLED
	.WORD	PCCURR	;PC FOR NEXT INSTRUCTION
WRDPTR:	.WORD	0	;INSTRUCTION WORD FOR RLD
NBUF:	.WORD	0	;NO. OF BUFFERS USED
RLDST2:	.BLKB	80.	;RLD BUFFER ASSOCIATED WITH 2ND ASCII BUF
RLDST3:	.BLKB	80.	;RLD BUFFER ASSOCIATED WITH 3RD ASCII BUF
RLDLN2:	.WORD	0	;LEN OF RLDST2
RLDLN3:	.WORD	0	;LEN OF RLDST3
RLDADD:	.WORD	0
OUTBUF:	.BLKB	132.	;LINE OUTPUT BUFFER
LINEC:	.WORD	0	;CURRENT LINE COUNT
LINEP:	.WORD	57.	;LINES PER PAGE
PSCNAM:: .BYTE	0,0,0,0,0,0		; For PSECT name 
WORDAS:	.ASCII	/.WORD	/
	.END