A2osX/ProDOS.FX/ProDOS.S.XDOS.F.txt

NEW
  AUTO 3,1
*--------------------------------------
* 'detree' deallocates blocks from tree files. it is assumed that the device has
* been pre-selected and the 'XDOS.GBuf' may be used.
*
* on entry:
*  stortype = storage type in upper nibble, lower nibble is undisturbed.
*  XDOS.1stBLK = first block of file (index or data).
*  deblock = 0
*  dtree = ptr to 1st block with data to be deallocated at tree level.
*  dsap = ptr to 1st block at sapling level.
*  dseed = byte (0-511) position to be zeroed from (inclusive).
*
* on exit:
*  stortype = modified result of storage type (if applicable).
*  XDOS.1stBLK = modified if storage type changed.
*  deblock = total number of blocks freed at all levels.
*  dtree, dsap, deseed unchanged.
*
* to trim a tree to a seed file, both dtree and dsap must be zero.
* to go from tree to sapling, dtree alone must be zero.
*--------------------------------------
detree			lda stortyp				which kind of tree ?
				cmp #$20			 	is it a 'seed' ?
				bcc L4C46			  	if yes.

				cmp #$30			 	a sapling ?
				bcc L4C51			  	if yes.

				cmp #$40			 	is it at least a 'tree' ?
				bcc L4C59			  	branch if it is.

				lda #$0C			 	block allocation error.
				jsr GP.SYSDEATH			P8 system death vector

* seedling file type - make sure first desirable block is the only
* block available in a seedling file.

L4C46  			lda dsap
				ora dtree
				bne L4CC2

				jmp seedel0

* sapling file type - make sure first desirable block is within the range of
* blocks available in a sapling file

L4C51  			lda dtree				can't have any blocks in this range
				bne L4CC2			  	if so then done

				jmp sapdel0				else go deallocate

L4C59			lda #$80
				sta topdest				for tree top start at end, work backwards.

L4C5E  			jsr drdfrst				read specified first block into XDOS.GBuf.
				bcs L4CC2			  	return errors.

				ldy topdest				get current pointer to top indexes.
				cpy dtree			  	have enough sapling indexes been
				beq L4CC3			  	deallocated? yes, now deallocate blocks

				ldx #$07				buffer up to 8 sapling index block

L4C6D  			lda XDOS.GBuf,y				addresses. fetch low block address
				sta dealbufl,x			and save it.
				ora XDOS.GBuf+$100,y			is it a real block that is allocated?
				beq L4C81			  	branch if phantom block.

				lda XDOS.GBuf+$100,y			fetch high block address
				sta dealbufh,x			and save it.
				dex		 				decrement and test for dealc buf filled.
				bmi L4C93				branch if 8 addresses fetched.

L4C81  			dey		 				look for end of deallocation limit.
				cpy dtree			  	is this the last position on tree level?
				bne L4C6D			  	if not.

				iny

L4C8A  			stz dealbufl,x		 	fill rest of dealc buffer with null addresses.
				stz dealbufh,x
				dex
				bpl L4C8A

L4C93  			dey		 				decrement to prepare for next time.
				sty topdest				save index.

				ldx #$07

L4C99  			stx dtmpx			  	save index to dealc buf.
				lda dealbufl,x
				sta ZP.BLKNUM
				ora dealbufh,x			finished ?
				beq L4C5E			  	branch if done with this level.

				lda dealbufh,x			complete address with high byte,
				sta ZP.BLKNUM+1
				jsr XDOS.ReadGBuf		read sapling level into XDOS.GBuf.
				bcs L4CC2			  	return errors.

				jsr XDOS.DeallocBlk0	go free all data indexes in this block
				bcs L4CC2

				jsr XDOS.WriteGBuf		write the flipped index block
				bcs L4CC2

				ldx dtmpx			  	restore index to dealc buff.
				dex		 				are there more to free?
				bpl L4C99			  	branch if so.

				bmi L4C5E			  	branch always to get up to 8 more

L4CC2  			rts		 				sapling block numbers.

L4CC3  			ldy dtree			  	deallocate all sapling blocks greater
				iny		 				than specified block.
				jsr XDOS.DeallocBlkY	(master index in XDOS.GBuf)
				bcs L4CC2			  	if errors.

				jsr XDOS.WriteGBuf		write updated master index back to disk.
				bcs L4CC2

				ldy dtree				figure out if tree can become sapling.
				beq L4CEB			  	branch if it can.

				lda XDOS.GBuf,y			 	otherwise, continue with partial, deallocation of last sapling index.
				ora XDOS.GBuf+$100,y			is there such a sapling index block ?
				beq L4CC2			  	all done if not.

				lda XDOS.GBuf,y
				ldx XDOS.GBuf+$100,y			read in sapling level to be modified.

				jsr XDOS.ReadGBufAX	 	read highest sapling index into XDOS.GBuf.
				bcc L4CF5

				rts

L4CEB  			jsr shrink				shrink tree to sapling
				bcs L4CC2

sapdel0			jsr drdfrst				read specified sapling level index
				bcs L4CC2			  	into XDOS.GBuf. branch if error.

L4CF5  			ldy dsap				pointer to last of desirable indexes.
				iny		 				inc to 1st undesirable.
				beq L4D05			  	branch if all are desirable.

				jsr XDOS.DeallocBlkY	deallocate all indexes above specified.
				bcs L4CC2

				jsr XDOS.WriteGBuf		write out the index block
				bcs L4CC2

L4D05  			ldy dsap			 	prepare to clean up last data block.
				beq L4D1F			  	branch if possibility of making a seed.

L4D0A  			lda XDOS.GBuf,y			 	fetch low order data block address.
				ora XDOS.GBuf+$100,y			is it a real block ?
				beq L4CC2			  	if not, then done.

				lda XDOS.GBuf,y
				ldx XDOS.GBuf+$100,y

				jsr XDOS.ReadGBufAX	 	go read data block into XDOS.GBuf.
				bcc L4D2E			  	branch if good read

L4D1E			rts		 				or return error.

L4D1F  			lda dtree			  	are both tree and sap levels zero ?
				bne L4D0A			  	if not.

				jsr shrink				reduce this sap to a seed.
				bcs L4D1E			  	if error.

seedel0			jsr drdfrst				go read data block.
				bcs L4D1E			  	if error.

L4D2E  			ldy dseed+1				check high byte for no deletion.
				beq L4D39			  	branch if all of 2nd page to be deleted.

				dey						if dseed > $200 then all were done.
				bne L4D1E			  	branch if that is the case.

				ldy dseed			  	clear only bytes >= dseed.

L4D39  			lda #$00

L4D3B  			sta XDOS.GBuf+$100,y			zero out unwanted data
				iny
				bne L4D3B

				ldy dseed+1				is that all ?
				bne L4D4F			  	yes.

				ldy dseed

L4D49  			sta XDOS.GBuf,y
				iny
				bne L4D49

L4D4F  			jmp XDOS.WriteGBuf		update data block to disk.

L4D52  			rts		 				return error status.

drdfrst			lda XDOS.1stBLK			read specified 1st block into XDOS.GBuf
				ldx XDOS.1stBLK+1
				jmp XDOS.ReadGBufAX		go read it
*--------------------------------------
* beware that dealloc may bring in a new bitmap block and may destroy
* locations 46 and 47 which are used to point to the current index block.
*--------------------------------------
shrink			ldx XDOS.1stBLK+1		first deallocate top index block
				phx
				lda XDOS.1stBLK
				pha		 				save block address of this index block.
				jsr XDOS.DeallocAX		free it from the bitmap
				pla
				sta ZP.BLKNUM			set master of sapling
				pla						index block address.
				sta ZP.BLKNUM+1
				bcs L4D1E			  	report errors.

				lda XDOS.GBuf		 	get # of new 1st block from old index.
				sta XDOS.1stBLK
				lda XDOS.GBuf+$100
				sta XDOS.1stBLK+1
				ldy #$00
				jsr XDOS.SwapGBUFY		flip that one entry in old top index.
				sec		 				now change file type,
				lda stortyp				from tree to sapling,
				sbc #$10			 	or from sapling to seed.
				sta stortyp
				jmp XDOS.WriteGBuf		write the (deallocated) old top index.
*--------------------------------------
XDOS.DeallocBlk0
				ldy #$00			 	start at beginning.
XDOS.DeallocBlkY
				lda ZP.BLKNUM			save disk address of XDOS.GBuf's data.
				pha
				lda ZP.BLKNUM+1
				pha

.1  			lda XDOS.GBuf,y			get low address of block to deallocate.
				cmp #$01			 	test for null block into carry.
				ldx XDOS.GBuf+$100,y	get remainder of block address.
				bne .2				  	branch if not null.

				bcc .3				  	was the low part null too ?

.2  			phy
*				sty saptr			  	save current index.
				
				jsr XDOS.DeallocAX		free it up on volume bitmap.
				ply
				bcs XDOS.PopBlkNumRTS  	return any error.

*				ldy saptr			  	get index to sapling level index block.

				jsr XDOS.SwapGBUFY

.3  			iny		 				next block address.
				bne .1				  	if more to deallocate or test.

				clc		 				no error.
*--------------------------------------
XDOS.PopBlkNumRTS
				plx		 				restore blocknm (16 bit)
				stx ZP.BLKNUM+1			keeping A and C if error
				plx
				stx ZP.BLKNUM
				rts
*--------------------------------------
XDOS.SwapGBUFY	lda delflag				swapping or zeroing ?
				bne .1				  	skip if swapping.

				tax		 				make x = 0.
				beq .2				  	zero the index (always taken).

.1  			ldx XDOS.GBuf+$100,y	index high
				lda XDOS.GBuf,y			index low

.2  			sta XDOS.GBuf+$100,y	save index high
				txa
				sta XDOS.GBuf,y			save index low
				rts						done.
*--------------------------------------
* MEMMGR memory manager
*
* allocate buffer in memory tables
*--------------------------------------
alcbuffr 		ldy #$04				index to user specified buffer.

alcbufr1 		lda (ZP.A3L),y			this buffer must be on a page boundary.
				tax		 				save for validation.
				cmp #$08
				bcc L4E1E			  	cannot be lower than video !

				cmp #$BC				nor greater than $BB00
				bcs L4E1E			  	since it would wipe out globals...

				sta ZP.DataPtr+1
				dey
				lda (ZP.A3L),y			low address should be zero !
				sta ZP.DataPtr
				bne L4E1E			  	error if not page boundary.

				inx		 				add 4 pages for 1k buffer.
				inx
				inx
				inx

L4DED			dex		 				test for conflicts.
				jsr XDOS.X2MemTablYA	test for free buffer space
				and GP.MEMTABL,y
				bne L4E1E			  	report memory conflict, if any.

				cpx ZP.DataPtr+1			test all 4 pages.
				bne L4DED

				inx		 				add 4 pages again for allocation.
				inx
				inx
				inx

L4DFE  			dex		 				set proper bits to 1
				jsr XDOS.MemTablEOR
				cpx ZP.DataPtr+1			set all 4 pages
				bne L4DFE

				ldy XDOS.FCBPtr			 	calculate buffer number
				lda XDOS.FCBs,y
				asl			  			buffer number = (entnum) * 2.
				sta XDOS.FCBs+FCB.BUFID,y	save it in fcb.
				tax		 				use entnum * 2 as index to global
				lda ZP.DataPtr+1			buffer addr tables. get addr already
				sta GP.BUFTABL-1,x			validated as good. store hi addr

				clc		 				(entnums start at 1, not 0)
				rts

L4E1E  			lda #MLI.E.BADBUF	 	buffer is in use or not legal
				sec
				rts
*--------------------------------------
relbuffr 		tax						index into global buffer table.
				lda GP.BUFTABL-2,x
				sta XDOS.BufAddr
				lda GP.BUFTABL-1,x
				sta XDOS.BufAddr+1
				beq relbuffr.8		 	branch if unallocated buffer space.

				stz GP.BUFTABL-1,x		take address out of buffer list.
				stz GP.BUFTABL-2,x		(x was set up by getbufadr)

freebuf			ldx XDOS.BufAddr+1			get hi buffer address
				inx		 				add 4 pages to account for 1k space.
				inx
				inx
				inx

.1  			dex		 				drop to next lower page.
				jsr XDOS.MemTablEOR
				cpx XDOS.BufAddr+1			all pages freed ?
				bne .1				  	no.

relbuffr.8 		clc		 				no error.
				rts
*--------------------------------------
valdbuf			lda ZP.UserBuf+1			high address of user's buffer
				cmp #$02			 	must be greater than page 2.
				bcc L4E1E			  	report bad buffer

				ldx cbytes+1
				lda cbytes			 	get cbytes-1 value.
				sbc #$01			 	(carry is set)
				bcs L4E76

				dex

L4E76  			clc
				adc ZP.UserBuf			 	calculate end of request address.
				txa		 				do high address.
				adc ZP.UserBuf+1			the final address
				tax		 				must be less than $BFnn (globals)
				cpx #$BF
				bcs L4E1E			  	report bad buffer.

				inx		 				loop thru all affected pages.

vldbuf1			dex		 				check next lower page.
				jsr XDOS.X2MemTabLYA
				and GP.MEMTABL,y		if 0 then no conflict.
				bne L4E1E			  	branch if conflict.

				cpx ZP.UserBuf+1			was that the last (lowest) page ?
				bne vldbuf1			 	if not.

				clc		 				all pages ok.
				rts
*--------------------------------------
* calculate memory allocation bit position.
* on entry: x = high address of buffer, low address assumed zero.
* on exit: acc = allocation bit mask, x = unchanged, y = pointer to memtabl byte
*--------------------------------------
XDOS.MemTablEOR	jsr XDOS.X2MemTablYA
				eor GP.MEMTABL,y
				sta GP.MEMTABL,y
				rts
*--------------------------------------
XDOS.X2MemTablYA
				txa						page address
				and #$07			 	which page in any 2k set ?
				tay		 				use as index to determine
				lda whichbit,y			bit position representation.
				pha		 				save bit position mask for now.
				txa		 				page address.
				lsr
				lsr			  			determine 2k set
				lsr
				tay		 				return it in y.
				pla		 				restore bit mask. return bit position
				rts		 				in a & y, pointer to memtabl in x.
*--------------------------------------
XDOS.GetBuf		ldy #$02			 	give user address of file buffer referenced by refnum.
				lda XDOS.BufAddr
				sta (ZP.A3L),y
				iny
				lda XDOS.BufAddr+1
				sta (ZP.A3L),y
				clc		 				no errors possible
				rts
*--------------------------------------
XDOS.SetBuf		ldy #$03
				jsr alcbufr1			allocate new buffer address over old one
				bcs L4EC7				report any errors immediately

				lda XDOS.BufAddr+1
				sta ZP.UserBuf+1
				lda XDOS.BufAddr
				sta ZP.UserBuf
				jsr freebuf				free address space of old buffer

				ldy #$00
				ldx #$03

.1  			lda (ZP.UserBuf),y			move all 4 pages of the buffer to
				sta (ZP.DataPtr),y			new location.
				iny
				bne .1

				inc ZP.DataPtr+1
				inc ZP.UserBuf+1
				dex
				bpl .1
XDOS.SetBuf.CLCRTS
				clc		 				no errors
L4EC7  			rts
*--------------------------------------
XDOS.IsValidChar
				cmp #'0'
				bcc XDOS.IsValidFirstChar
				cmp #'9'+1
				bcc XDOS.IsValidFirstChar.RTS
XDOS.IsValidFirstChar
				.DO ENHFILENAME=1
				cmp #'.'
				beq XDOS.SetBuf.CLCRTS
				cmp #'_'
				beq XDOS.SetBuf.CLCRTS
				.FIN
				cmp #'A'
				bcc XDOS.IsValidFirstChar.SEC
				cmp #'Z'+1
				.DO LOWERCASE=1
				bcc XDOS.IsValidFirstChar.RTS
				cmp #'a'
				bcc XDOS.IsValidFirstChar.SEC
				cmp #'z'+1
				.FIN
XDOS.IsValidFirstChar.RTS
				rts

XDOS.IsValidFirstChar.SEC
				sec
				rts
*--------------------------------------
* move 3 pages of dispatcher from LC Bank2 $D100 to $1000
* this move routine must be resident above $E000 at all times
*--------------------------------------
XDOS.CallDisp	.DO M.SEL

				lda IO.RRAMWRAMBNK2		read/write RAM bank 2
				lda IO.RRAMWRAMBNK2

				stz ZP.A1L
				lda #$D1
				sta ZP.A1L+1

				stz ZP.A2L
				lda #$10
				sta ZP.A2L+1

				ldy #$00
				ldx #$03				3 pages to move.

.1  			lda (ZP.A1L),y
				sta (ZP.A2L),y
				iny
				bne .1

				inc	ZP.A1L+1		  	pointers to next page
				inc	ZP.A2L+1
				dex		 				move all pages needed
				bne .1

				lda IO.RRAMWRAMBNK1		read/write RAM bank 1
				lda IO.RRAMWRAMBNK1		swap mli space back in

				stz GP.MLIACTV		 	MLI active flag

				stz ROM.SOFTEV
				lda #$10				point RESET to dispatch entry
				sta ROM.SOFTEV+1
				eor #$A5
				sta ROM.PWREDUP			power up byte

				.DO AUXLC=1

				jmp GP.SELJMP

				.ELSE

				jmp $1000
				
				.FIN
				
				.ELSE
				
				inc ROM.PWREDUP
				lda /ROM.RESETV-1
				pha
				lda #ROM.RESETV-1
				pha
				jmp IRQ.ToRomRTS
				
				.FIN
*--------------------------------------
XDOS.SPREMAP	ldx #$03				assume 3 parameters.
				lda ZP.CMDNUM
				sta .5
				bne .1					taken if not status call

				ldy #XDOS.SPStatusBuf	set up memory for the status list buffer
				sty ZP.BUFPTR			fake up the prodos parameters
				ldy /XDOS.SPStatusBuf
				sty ZP.BUFPTR+1
				stz ZP.BLKNUM			set statcode = 0 for simple status call

.1  			cmp #$03			 	format command ?
				bne .2				  	no.

				ldx #$01			 	format has only 1 parameter.

.2  			stx XDOS.SPParams		set # of parms.

				lda ZP.UNITNUM			DSSS0000
				lsr			  			turn unit number into an index
				lsr
				lsr
				lsr
				tax						range = 1-15

				lda XDOS.SPUnit-1,x		get the smartport unit number and
				sta XDOS.SPParams.U		store into smartport parm list.
				lda XDOS.SPVectLo-1,x
				sta .4+1				copy smartport entry address
				lda XDOS.SPVectHi-1,x
				sta .4+2

				ldx #$04				copy buffer pointer and block #

.3  			lda ZP.BUFPTR-1,x		from prodos parameters
				sta XDOS.SPParams.B-1,x	to smartport parameter block
				dex
				bne .3

.4		 		jsr $0000				smartport call (entry address gets modified)
.5				.HS 00					command #
				.DA XDOS.SPParams
				bcs	.9

				ldx .5					status call ?
				bne .9				  	no...

				ldx XDOS.SPStatusBuf+1	else get the block count
				ldy XDOS.SPStatusBuf+2
				lda	XDOS.SPStatusBuf	get the returned status.
				bit #$10			 	is there a disk present ?
				beq .8

				and #$44			 	mask all but write allowed and write
				eor #$40			 	protected bits. if allowed and not
*				clc
				beq .9				  	protected, exit with carry clear

				lda #MLI.E.WRTPROT	 	else return write protected error.
				.HS 2C					BIT ABS
.8				lda #MLI.E.OFFLINE		return offline error.
				sec
.9  			rts
*--------------------------------------
XDOS.TBX		bit	IO.RRAMWRAMBNK1		Get RW access to LC

				.DO AUXLC=1

				stx .1+1
				tsx
				stx $100
				ldx	$101
				txs

.1				ldx #$FF				SELF MODIFIED

				jsr .2

				tsx
				stx $101
				ldx	$100
				txs
				jmp GP.TBXEXIT

				.ELSE

				jsr .2
				jmp IRQ.ToRomRTS
				
				.FIN

.2				cpx #TBX.EnumNext
				beq XDOS.TBX.EnumNext
				bcc XDOS.TBX.EnumBlk
*--------------------------------------
XDOS.TBX.MemReset
				ldx #$17

.1  			stz GP.MEMTABL,x		P8 memory bitmap
				dex
				bne .1

				inc GP.MEMTABL+$17		protect global page
				lda #$CF				protect zero page, stack and page 1
				sta GP.MEMTABL
				rts
*--------------------------------------
XDOS.TBX.EnumBlk
				jsr XDOS.ZPT.InitA

				ldx XDOS.DH.EPB

				lda (zpt)
				cmp #$E0
				bcc .2

				ldy #$1F+3
				ldx #3

.1				lda (zpt),y
				sta XDOS.DH.EL,x
				dey
				dex
				bpl .1

				jsr XDOS.ZPT.Next		skip header

				ldx XDOS.DH.EPB
				dex						skip header

.2				stx cntent

XDOS.TBX.CheckFCnt
				lda XDOS.DH.FileCnt
				ora XDOS.DH.FileCnt+1
				beq XDOS.TBX.SECRTS

				clc
				rts
*--------------------------------------
XDOS.TBX.EnumNext
				sty	sos
				sta sos+1
				
				jsr XDOS.TBX.CheckFCnt
				bcs .9

.1				dec cntent
				bmi XDOS.TBX.SECRTS

				lda (zpt)
				and #$0F
				beq .7

				sta (sos)

				pha

				jsr XDOS.ZPT.Unpack

				ply

.2				lda (zpt),y
				sta (sos),y
				dey
				bne .2

				ldy #16					FileType
				lda (zpt),y

				pha
				jsr XDOS.ZPT.Next
				
				jsr XDOS.DH.DecFileCnt		
				
				pla
*				clc
.9				rts

.7				jsr XDOS.ZPT.Next
				bra .1
*--------------------------------------
XDOS.TBX.SECRTS	sec
				rts
*--------------------------------------				
XDOS.ZPT.InitGBuf
				lda /XDOS.GBuf

XDOS.ZPT.InitA	sta zpt+1
				lda #4
				sta zpt

				rts
*--------------------------------------
XDOS.ZPT.Unpack	ldy #$1D				MIN_VERSION
				lda (zpt),y
				bpl .6					no lowercase information

				lda (zpt)
				and #$0F
				beq .6					length=0

				tay

.2				cpy #8					CS if MIN_VERSION to use
				phy

				bcs .3

				ldy #$1D				MIN_VERSION
				lda (zpt),y

				ply
				and whichbit,y
				beq .5

				bra .4

.3				ldy #$1C				VERSION
				lda (zpt),y

				ply
				and whichbit-8,y
				beq .5

.4				lda (zpt),y
				eor #$20				to lowercase
				sta (zpt),y

.5				dey
				bne .2

.6				rts
*--------------------------------------
XDOS.ZPT.Next	lda XDOS.DH.EL

XDOS.ZPT.NextA	clc
				adc zpt
				sta zpt
				bcc .8

				inc zpt+1
				clc

.8				rts
*--------------------------------------
XDOS.DH.DecFileCnt
				lda XDOS.DH.FileCnt
				bne .1
				
				dec XDOS.DH.FileCnt+1

.1				dec XDOS.DH.FileCnt		

				rts
*--------------------------------------
* data tables
*--------------------------------------
XDOS.CmdNums	.HS D3D4D5D6			table of valid mli command numbers.
				.HS 40410000
				.HS 808182
				.HS 65
				.HS C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF
				.HS 00
				.HS D0D1D2

XDOS.ParamCnt	.HS 02020202			parameter counts for the calls
				.HS 0201FFFF
				.HS 030300
				.HS 04
				.HS 070102070A0201010303040401010202
				.HS FF
				.HS 020202

XDOS.CmdFlags	.HS A0A1A2
				.HS A384
				.HS 050607
				.HS 88494A4B
				.HS 2C2D
				.HS 4E4F
				.HS 50515253
				.HS 94959697

XDOS.CmdJmps	.DA XDOS.Create
				.DA XDOS.Destroy
				.DA XDOS.Rename
				.DA XDOS.SetFileInfo

				.DA XDOS.GetFileInfo
				.DA XDOS.Online
				.DA XDOS.SetPrefix
				.DA XDOS.GetPrefix

				.DA XDOS.Open
				.DA XDOS.NewLine
				.DA XDOS.Read
				.DA XDOS.Write

				.DA XDOS.Close
				.DA XDOS.Flush
				.DA XDOS.SetMark
				.DA XDOS.GetMark

				.DA XDOS.SetEOF
				.DA XDOS.GetEOF
				.DA XDOS.SetBuf
				.DA XDOS.GetBuf

				.DA XDOS.SetFileInfoEx
				.DA XDOS.GetFileInfoEx
				.DA XDOS.ACL

dinctbl			.HS 0100000200			table to increment directory usage/eof counts
				.DO LOWERCASE=1
XDOS.VolHdrDef	.HS C3270D
XDOS.VolHdrDef.Cnt	.EQ *-XDOS.VolHdrDef
				.ELSE
pass			.HS 75
xdosver			.HS 00
compat			.HS 00
				.HS C3270D000000
				.FIN
rootstuf 		.HS 0F.0200.0400.000800
whichbit 		.HS 8040201008040201
XDOS.DE2FCB		.DA #FCB.1stBLK+0
				.DA #FCB.1stBLK+1
				.DA #FCB.UBLK+0
				.DA #FCB.UBLK+1
				.DA #FCB.EOF+0
				.DA #FCB.EOF+1
				.DA #FCB.EOF+2
XDOS.DE2FINFO	.HS 1E.10.1F.20.80.93.94.21.22.23.24.18.19.1A.1B
XDOS.SysErrMsg	.AS -"SYS ERR-$0"
XDOS.SysErrMsgL	.EQ *-XDOS.SysErr
*--------------------------------------
XDOS.DATA		.DUMMY
*--------------------------------------
XDOS.OH.Blk		.HS 0000
XDOS.OH.EIB		.HS 00
XDOS.OH.EL		.HS 00
*--------------------------------------
				.DO ACL=1
XDOS.DH.ACL		.BS 8					5700 UID GID MOD
				.FIN
XDOS.DH.CTime	.HS 00000000			directory creation time
				.HS 0000			 	Version/MVersion
XDOS.DH.Access	.HS 00				 	attributes (protect bit, etc.)
XDOS.DH.EL		.HS 00				 	length of each entry in this directory
XDOS.DH.EPB		.HS 00				 	maximum number of entries per block
XDOS.DH.FileCnt	.HS 0000			 	current # of files in this directory
XDOS.DH.BMPtr	.HS 0000			 	address of first allocation bitmap
XDOS.DH.BlkCnt	.HS 0000			 	total number of blocks on this unit
*--------------------------------------
XDOS.DE.DevID	.HS 00				 	device number of this directory entry
XDOS.DE.DirHBlk	.HS 0000			 	address of <sub> directory header
XDOS.DE.DirEBlk	.HS 0000				address of block which contains entry
XDOS.DE.DirEIB	.HS 00				 	entry number within block
*--------------------------------------
XDOS.DE.Filename	.BS 16
XDOS.DE.Type	.HS 00
XDOS.DE.KeyPtr	.HS 0000			 	first block of file
XDOS.DE.BlkUsed	.HS 0000			 	# of blocks allocated to this file
XDOS.DE.EOF		.HS 000000			 	current end of file marker
XDOS.DE.CTime	.HS 00000000			file creation time
XDOS.DE.Version	.HS 00					version that created this file
XDOS.DE.MVersion	.HS 00				
XDOS.DE.Access	.HS 00				 	attributes (protect, r/w, enable, etc.)
XDOS.DE.AuxType	.HS 0000			 	user auxilliary identification
XDOS.DE.MTime	.HS 00000000			file's last modification time
XDOS.DE.BlkPtr	.HS 0000			 	file directory header block address
*--------------------------------------
scrtch			.HS 00000000			scratch area for allocation address conversion.
oldeof			.HS 000000				temp used in r/w
oldmark			.HS 000000
*xvcbptr			.HS 00				used in 'cmpvcb' as a temp
*XDOS.VCBPtr		.HS 00
XDOS.FCBPtr		.HS 00
fcbflg			.HS 00
reql			.HS 00
reqh			.HS 00
levels			.HS 00
totent			.HS 00
XDOS.FileCnt	.HS 0000
cntent			.HS 00
nofree			.HS 00
*bmcnt			.HS 00
*saptr			.HS 00
pathcnt			.HS 00
*p_dev			.HS 00
p_blok			.HS 0000
*bmptr			.HS 00
*basval			.HS 00
half			.HS 00

* bitmap info tables

XDOS.BM.Status	.HS 00
XDOS.BM.DevID	.HS 00
XDOS.BM.BlkNum	.HS 0000
XDOS.BM.Idx		.HS 00

XDOS.TmpPos		.HS 000000

rwreql			.HS 00
rwreqh			.HS 00

nlchar			.HS 00
nlmask			.HS 00

ioaccess 		.HS 00			 		has a call been made to disk device handler ?
cmdtemp			.HS 00
bkbitflg		.HS 00					used to set or clear backup bit

* xdos temporary variables

namcnt			.HS 00
rnptr			.HS 00
namptr			.HS 00
*vnptr			.HS 00
prfxflg			.HS 00
cferr			.HS 00

* deallocation temporary variables

XDOS.1stBLK		.HS 0000
stortyp			.HS 00
*--------------------------------------
deblock			.HS 0000
dtree			.HS 00
dsap			.HS 00
dseed			.HS 0000
*--------------------------------------
topdest			.HS 00
dtmpx			.HS 00
loklst			.EQ	*					look list of recognized device numbers
dealbufl 		.HS 0000000000000000
dealbufh 		.HS 0000000000000000
cbytes			.HS 0000
				.HS 00					cbytes+2 must = 0
XDOS.BufAddr	.HS 0000
delflag			.HS 00			  		used by 'detree' to know if called from delete (destroy).
*--------------------------------------
* variables used by SP remap & XRW Disk ][ to store last track used
*--------------------------------------
XRW.D2Trk		.EQ *
XDOS.SPUnit		.HS 00000000000000		14+1 for S0D2
				.HS	00
				.HS 00000000000000

XRW.D2VolNum	.EQ *
XDOS.SPVectLo	.HS 00000000000000  	storage for low byte of smartport entry.
				.HS 00
				.HS 00000000000000

XRW.D2SeekTime	.EQ *
XDOS.SPVectHi	.HS 00000000000000  	storage for high byte of smartport entry.
				.HS 00
				.HS 00000000000000
*--------------------------------------
XDOS.SPParams	.HS 00					# of parms
XDOS.SPParams.U	.HS 00			  		unit number
XDOS.SPParams.B	.HS 0000				data buffer
				.HS 000000				block number (3 bytes)

XDOS.SPStatusBuf .HS 00000000
*--------------------------------------
				.LIST ON
XDOS.DATA.LEN	.EQ *-XDOS.DATA
XDOS.FREE		.EQ $FEFD-*
				.LIST OFF
				.BS XDOS.FREE
				.ED
*--------------------------------------
XDOS.CortDisp	.EQ $FEFD
XDOS.CortFlag 	.EQ $FEFF			  	cortland flag. 1 = Cortland system (must stay within page boundary)
*--------------------------------------
				.EP
*--------------------------------------
XDOS.LEN		.EQ *-XDOS.START
*--------------------------------------
MAN
SAVE usr/src/prodos.fx/prodos.s.xdos.f
LOAD usr/src/prodos.fx/prodos.s
ASM