; my direct page.
dp              	record $0080

io_buffer		ds.l 1
ptr			ds.l 1 ; misc ptr

my_vcr          	ds.l 1
my_fcr          	ds.l 1
call_class      	ds.w 1


;device			ds.w 1 ; device for id_disk.
tool_error		ds.w 1


inode			ds.w 1
parent_inode		ds.w 1

;disk_inode		ds v1_inode
;super			ds v1_super

__end			equ *
			IF *>=$d4 THEN
			AERROR 'dp -- too large.'
			ENDIF
			endr


fcr			record 0
id			ds.w 1	; ref num
path_name		ds.l 1
fst_id			ds.w 1
vcr_id			ds.w 1
level			ds.w 1
newline			ds.l 1
newline_length		ds.w 1
mask			ds.w 1
access			ds.w 1

			; fst-specific items

inode			ds.w 1
disk_inode		ds v1_inode
dirty			ds.w 1

mark			ds.l 1 ; current position

			; dirent stuff.

dirent_zone		equ mark ; current directory zone [0-6]
dirent_offset		equ mark+2 ; current directory offset

dirent_entry		ds.w 1 ; current directory entry.

;data_zone		ds.w 1 ; current zone * 2
;data_block		ds.w 1 ; 0 if invalid.
;data			ds.b 1024 ; ?

__sizeof		equ *
			endr

vcr			record 0
id			ds.w 1
name			ds.l 1
status			ds.w 1
open_count		ds.w 1
fst_id			ds.w 1
device			ds.w 1
fst_ptr			ds.l 1

			; fst-specific items


			; super block elements.

super			ds v1_super
first_inode_block	ds.w 1
first_imap_block	ds.w 1
first_zmap_block	ds.w 1
free_blocks		ds.w 1

			; case-sensitive volume name.
vname			ds GSString32

__sizeof		equ *
			endr



fst_id	equ 'mx'