.NLIST	TOC,SYM
.TITLE	$VMDAT
.SBTTL	ULBLIB 030	- Impure Data for Virtual Memory Routines
.IDENT	\V01.00\
.PSECT	.LIBI.
.ENABL	LC,GBL

; Copyright (c) 1998 by Mentec, Inc., Nashua, NH.
; All rights reserved
;
; This software is furnished under a license for use only on a
; single computer system and  may  be  copied  only  with  the
; inclusion of the above copyright notice.  This software,  or
; any other copies thereof, may not be provided  or  otherwise
; made available to any other person except for  use  on  such
; system and to one who agrees to these license  terms.  Title
; to  and  ownership of the software shall at all times remain
; in Mentec, Inc.
;
; The information in this document is subject to change without
; notice and should not be construed as a commitment by Digital
; Equipment Corporation, or Mentec, Inc.
;
; Digital and Mentec  assume  no  responsibility for the use or
; reliability of its software on equipment which is not supplied
; by Digital  or Mentec,  and listed  in the  Software  Product
; Description.
;+
; $VMDAT
; This module contains the impure data for the virtual memory routines.
;-

.MACRO	.DFFDB
.DSECT	1
	DS	F.OPIN,BYTE
	DS	F.OPOUT
.DSECT	10
	DS	F.IOIN,BYTE
	DS	F.IOOUT
.DSECT
; File open offsets
	DS	F.OP.,,0
	DS	F.OPCH,BYTE	;Open channel
	DS	F.OPCD,BYTE	;Open code
	DS	F.OPNM		;-> File name
	DS	F.OPLN		;Length of file for open (seq num for .LOOKUP)
	DS	F.OPSN		;Seq num for .ENTER (unused in .LOOKUP)
	DS	F.IO.,,0
	DS	F.IOCH,BYTE	;Channel
	DS	F.IOCD,BYTE	;.READx, .WRITx code
	DS	F.IOBK		;Current I/O block number
	DS	F.IOBF		;-> I/O buffer
	DS	F.IOWC		;I/O word count
	DS	F.IOCR		;I/O completion routine
; .DSTATUS information block
	DS	F.DS.,,0
	DS	F.DVTP,BYTE	;Device code
	DS	F.DVST,BYTE	;Device status byte
	DS	F.DVHS		;Handler size
	DS	F.DHEP		;Handler entry point
	DS	F.DVSZ		;Size of device
; .GET/.PUT information
	DS	F.BPTR		;PUT, GET buffer pointer
	DS	F.RSIZ		;Record size
	DS	F.BFSZ		;I/O buffer size in bytes
	DS	F.URBA		;User record buffer address
	DS	F.NRBD,,2	;-> Record, length of record
	DS	F.IOBS		;Allocated size of I/O buffer
	DS	F.URBS		;Allocated size of user record buffer
	DS	F.HNLD		;Device handler load address
	DS	F.HSIZ		;Device handler space size
	DS	F.ERR,BYTE	;I/O error byte
	DS	FDB$EN,,0
FDB$SZ	= <FDB$EN+1>&177776
.DSECT	FDB$SZ
	DS	FDB$SZ,,0	;Size of the FDB
.MACRO	.DFFDB
.ENDM	.DFFDB
.ENDM	.DFFDB

$WRKPT::
	.WORD	W$KFDB		; -> work file FDB

$HGVAD::
	.WORD	0		;Highest virtual address in use

$PAGLS::
	.WORD	0		; -> resident page table

$PAGHD::
	.WORD	0		;Resident page table list head

$TIME::
	.WORD	0		;Time-stamp value

W$KFDB:				;Define the work file FDB
	.FILE	<OUT>,W$KLUN,W$KFIL,RECSIZ=0,LEN=256.,BUFSIZ=0

W$KFIL:	.RAD50	\WF WRKFILTMP\	;File name of the work file

.END