mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-25 05:32:20 +00:00
74acfeccd1
SH : fiw for line wrap ProDOS.FX : removed a strange bug inherited from 2.0.3 trashing FCBs
1034 lines
26 KiB
Plaintext
1034 lines
26 KiB
Plaintext
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
|