.TITLE	DSUTDAT - DATA SET UTILITY PROGRAM DATA AREA
	.IDENT	/DSU.04/
;
;
; DSU.04	17-FEB-82 - SPLIT DATA OUT
;
;
;
;	GLOBAL DATA DEFINED HERE
;
	.GLOBL	UFDFIL,USRFIL,USRVER,NMAPS,INBUF,STBK,BUF,LUNBUF,GCLBLK
	.GLOBL	CSIBLK,DATA,IDXHED,MFDHED,IOSTAT,VDTSTAT,CSTAT,TSWTCH,DATPTR
	.GLOBL	IDXLBH,IDXLBL,MFDLBH,MFDLBL,OLDBHI,OLDBLO,OLDVBH,OLDVBL,VBLKHI
	.GLOBL	VBLKLO,MAXVER,MAXVID,DEVNAM,UNITNO,TSAVE,PHYDEV,SYASNG,GETLUN
	.GLOBL	SCREEN,INDEV,UIC,FNAME,FEXT,BLKTYP,BLKNO,DSPMODE,LINE2,LINE3
	.GLOBL	LINE4,LINE5,LINE6,NEWDATA,LINE7,LINE8,LINE9,LINE10,LINE11
	.GLOBL	LINE12,LINE13,LINE14,LINE15,LINE16,LINE17,LINE18,LINE19,LINE20
	.GLOBL	LINE21,SCREND,NEL,A.LUNA,A.LUNU
;
;	EXTERNAL DATA
;
	.GLOBL	TC.ACR,TC.BIN,TC.CTS,TC.ESQ,TC.HFL
	.GLOBL	TC.LPP,TC.NEC,TC.SLV,TC.VFL,TC.WID
;
;	MACROS
;
	.MCALL	GCMLB$,CSI$,ALUN$,GLUN$
;
	CSI$
;
;
;	****************************************************************
	.SBTTL	IMPURE DATA
;	****************************************************************
;
;
UFDFIL:	.BLKW	3			;UFD FILE SPEC
	.RAD50	/DIR/
	.WORD	1
USRFIL:	.BLKW	4			;USER'S FILE SPEC
USRVER:	.WORD	1			;USER FILE VERSION
NMAPS:	.WORD	0			;SAVE # INDEX-FILE BIT MAP BLKS HERE;
;
;	BUFFERS
;
INBUF:	.BLKW	10.
;
STBK:	.BLKW	8.
;
BUF:	.BLKB	80.
;
LUNBUF:	.BLKW	6
;
GCLBLK:	GCMLB$	4,DSU,,5
;
CSIBLK:	.BLKB	C.SIZE			;INPUT COMMAND BUFFER
	.EVEN
;
DATA:	.BLKW	256.			;INPUT DATA BUFFER
;
IDXHED:	.BLKW	256.			;SAVE AREA FOR INDEX FILE HEADER
;
MFDHED:	.BLKW	256.			;SAVE AREA FOR MFD HEADER
;
;
;	STATUS WORDS
;
IOSTAT:	.BLKW	2			;RETURNED IO STATUS
;
VDTSTAT:
	.BLKW	2
;
CSTAT:	.WORD	0			;SAVE CSI STAT HERE
;
TSWTCH:	.WORD	0			;TOGGLE SWITCH FOR BLOCK HALVES
;
;
;
;	POINTERS
;
DATPTR:	.WORD	DATA			;POINTER TO START OF DATA TO DISPLAY
;
;
;
;
;	LOGICAL BLOCK NUMBERS
;
IDXLBH:	.WORD	0			;LBN OF INDEX FILE HEADER
IDXLBL:	.WORD	0
MFDLBH:	.WORD	0			;LBN OF MASTER FILE DIRECTORY HEADER
MFDLBL:	.WORD	0
OLDBHI:	.WORD	377			;PREVIOUS HI-ORDER LBN
OLDBLO:	.WORD	177777			;PREVIOUS LO-ORDER LBN
;
;
;	VITUAL BLOCK NUMBERS
;
OLDVBH:	.WORD	377			;PREVIOUS HI-ORDER VBN
OLDVBL:	.WORD	177777			;PREVIOUS LO-ORDER VBN
VBLKHI:	.WORD	0			;HI-ORDR VIRTUAL BLOCK NO.
VBLKLO:	.WORD	0			;LO-ORDER VIRTUAL BLOCK NO.
;
;
MAXVER:	.WORD	0			;HIGHEST VERSION FOUND OF REQ'ED FILE
MAXVID:	.WORD	0			;CORRESPONDING FILE SEQ. #
;
DEVNAM:	.BYTE	'S,'Y
UNITNO:	.WORD	0
;
;
;
;
;
;	TERMINAL CHARACTERISTICS
;
TSAVE:					;SAVED TERMINAL CHARACTERISTICS
	.BYTE	TC.BIN,0		;READ PASS ALL
	.BYTE	TC.ESQ,0		;ESCSEQ
	.BYTE	TC.LPP,0		;24 LINES
	.BYTE	TC.NEC,0		;ECHO
	.BYTE	TC.WID,0		;LINE WIDTH
;
;
;
;
;	DIRECTIVE BLOCKS
;
;
PHYDEV:	ALUN$	2,SY,0			;LUN 2 DEFAULTS TO SY0:
;
SYASNG:	ALUN$	3,SY,0			;LUN 2 SET TO SY0:
;
GETLUN:	GLUN$	3,LUNBUF		;GET SY0: ID
;
;
;
;
;
;	SCREEN DATA
;
SCREEN:	.ASCII	/DEV=/
INDEV:	.ASCII	/SY:   UFD: /
UIC:	.ASCII	/          FILE: /
FNAME:	.ASCII	/         /
FEXT:	.ASCII	/     /
BLKTYP:	.ASCII	/LOGICAL BLOCK: /
BLKNO:	.ASCII	/000,000000   MODE: /
DSPMODE:
	.BYTE	'O				;CURRENT DISPLAY MODE
LINE2:	.ASCII	/----------------------------------------/
	.ASCII	/----------------------------------------/
LINE3:	.ASCII	/                                        /
	.ASCII	/                                        /
LINE4:	.ASCII	/         00       02       04       06  /
	.ASCII	/     10       12       14       16      /
LINE5:	.ASCII	/                                        /
	.ASCII	/                                        /
LINE6:
NEWDATA:
	.ASCII	/000:                                    /
	.ASCII	/                                        /
LINE7:	.ASCII	/020:                                    /
	.ASCII	/                                        /
LINE8:	.ASCII	/040:                                    /
	.ASCII	/                                        /
LINE9:	.ASCII	/060:                                    /
	.ASCII	/                                        /
LINE10:	.ASCII	/100:                                    /
	.ASCII	/                                        /
LINE11:	.ASCII	/120:                                    /
	.ASCII	/                                        /
LINE12:	.ASCII	/140:                                    /
	.ASCII	/                                        /
LINE13:	.ASCII	/160:                                    /
	.ASCII	/                                        /
LINE14:	.ASCII	/200:                                    /
	.ASCII	/                                        /
LINE15:	.ASCII	/220:                                    /
	.ASCII	/                                        /
LINE16:	.ASCII	/240:                                    /
	.ASCII	/                                        /
LINE17:	.ASCII	/260:                                    /
	.ASCII	/                                        /
LINE18:	.ASCII	/300:                                    /
	.ASCII	/                                        /
LINE19:	.ASCII	/320:                                    /
	.ASCII	/                                        /
LINE20:	.ASCII	/340:                                    /
	.ASCII	/                                        /
LINE21:	.ASCII	/360:                                    /
	.ASCII	/                                        /
SCREND=.
	.EVEN
;
	.END