.TITLE	RWDATA
	.IDENT	/01/
	.PSECT	RWDATA,RW,D
 
;
; VERSION 01
;
; TOM GETZINGER  21-SEP-80
;
; THIS MODULE CONTAINS ALL GLOBAL VARIABLES
;
 
	.MCALL	CSI$	CSI$ND	CSI$SV	CSI$SW	FDAT$A	FDBDF$
	.MCALL	FDBK$A	FDOP$A	FDRC$A	FSRSZ$	GCMLB$	NMBLK$
 
	FSRSZ$	3,,RWDATA
 
LUNOUT	==	1		; OUTPUT LOGICAL UNIT NUMBER
FDBOUT::FDBDF$			; OUTPUT FDB
	FDAT$A	R.VAR,FD.CR,80.
	FDRC$A	FD.PLC,OUTBUF,80.
	FDOP$A	LUNOUT,CSIBLK+C.DSDS,DFNOUT,FO.WRT
DFNOUT:	NMBLK$	,MAC,,SY	; DEFAULT OUTPUT FILE NAME
OUTBUF::.BLKB	80.		; OUTPUT RECORD BUFFER
 
LUNTMP	==	2		; TEMP LOGICAL UNIT NUMBER
FDBTMP::FDBDF$			; TEMP FDB
	FDAT$A	R.FIX,,8192.,-16.,-16.
	FDRC$A	FD.RWM
	FDBK$A	BITMAP,8192.,,LUNTMP
	FDOP$A	LUNTMP,CSIBLK+C.DSDS,DFNTMP
DFNTMP:	NMBLK$	BITMAP,TMP,,SY	; DEFAULT TEMP FILE NAME
BITMAP::.BLKB	8192.		; BITMAP BUFFER
CHANGD::.WORD	0		; NON-ZERO IF THE BIT-MAP HAS CHANGED
BMPSCT::.WORD	0		; CURRENT BIT-MAP PSECT #
 
LUNIN	==	3		; INPUT LOGICAL UNIT NUMBER
FDBIN::	FDBDF$			; INPUT FDB
	FDAT$A	R.VAR,,128.
	FDRC$A	FD.PLC,INBUF,128.
	FDOP$A	LUNIN,CSIBLK+C.DSDS,,FO.RD
DFNOBJ::NMBLK$	,OBJ,,SY	; DEFAULT INPUT FILENAME FOR .OBJ
DFNOLB::NMBLK$	,OLB,,SY	; DEFAULT INPUT FILENAME FOR .OLB
INBUF:	.BLKB	128.		; INPUT BUFFER
 
LUNERR	==	5		; ERROR MESSAGE LUN
	.PAGE
LUNCMD	==	4		; COMMAND LOGICAL UNIT NUMBER
GCLBLK::GCMLB$	,DOB,,LUNCMD	; "GET COMMAND LINE" BLOCK
	CSI$			; DEFINE CSI OFFSETS
CSIBLK::.BLKB	C.SIZE		; COMMAND STRING INTERPRETER BLOCK
 
SWITCH::.BLKW	1		; SWITCH FLAGS
 
SWTOUT::CSI$SW	LA,S.LABL,SWITCH,SET,NEG
	CSI$SW	AS,S.ASC,SWITCH,SET,NEG
	CSI$SW	RA,S.RAD,SWITCH,SET,NEG
	CSI$ND
 
SWTIN::	CSI$SW	LB,S.LIBR,SWITCH,SET,NEG,LBVTBL
	CSI$SW	EI,S.EIS,SWITCH,CLEAR,NEG
	CSI$SW	FI,S.FIS,SWITCH,CLEAR,NEG
	CSI$SW	FP,S.FPP,SWITCH,CLEAR,NEG
	CSI$ND
LBVTBL:	CSI$SV	ASCII,MODNAM,6
	CSI$ND
MODNAM::.BLKB	6.
 
VBN::	.BLKW	2		; VIRTUAL BLOCK # OF OBJECT START
BYTNUM::.BLKW	1		; STRATING BYTE NUMBER OF OBJECT
PSCTBL::.BLKW	1		; STARTING ADDRESS OF PSECT TABLE
PSCEND::.BLKW	1		; END OF PSECT TABLE
GBLEND::.BLKW	1		; END OF GLOBAL SYMBOL TABLE
FREEHD::.BLKW	2		; FREE MEMORY LISTHEAD
GBLPSN::.BLKW	1		; GLOBAL SYMBOL PSECT NUMBER
 
CRNPSC::.BLKW	2		; CURRENT PSECT
CRNPSN::.BLKW	1		; CURRENT PSECT NUMBER
CRNADR::.BLKW	1		; CURRENT ADRESS
LSTADR::.BLKW	1		; LAST LOAD ADDRESS
ENDPSC::.RAD50	". ABS."	; END PSECT
ENDADR::.WORD	1		; END ADDRESS
PASS::	.BLKW	1		; NON-ZERO IF ON OUTPUT PASS
NPSCTS::.BLKW	1		; NUMBER OF PSECTS ENCOUNTERED
 
FRSTXT::.WORD	0		; POINTER TO FIRST TEXT ENTRY
LSTTXT::.WORD	0		; POINTER TO LAST TEXT ENTRY
 
OPSTRT::.BLKW	1		; OPERAND STARTING ADDRESS
INSTLN::.BLKW	1		; LENGTH OF CURRENT INSTRUCTION IN BYTES
INST::	.BLKW	3		; CURRENT INSTRUCTION

	.END