mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-25 05:32:20 +00:00
Kernel 0.93+
This commit is contained in:
Rémy GIBERT
parent
1ee296739d
commit
a3be47aeff
Binary file not shown.
@ -267,10 +267,12 @@ CS.RUN.WAIT.REPLY
|
||||
.7 lda PingCount
|
||||
beq .8
|
||||
dec PingCount
|
||||
beq .9 A=0
|
||||
dec A=0
|
||||
beq .80
|
||||
|
||||
.8 jmp CS.RUN.SEND.ECHO
|
||||
.9 sec
|
||||
|
||||
.80 sec
|
||||
CS.RUN.ERR rts
|
||||
*--------------------------------------
|
||||
CS.DOEVENT lda (pEvent)
|
||||
|
||||
@ -65,7 +65,20 @@ S.FI.CTIME .EQ $10
|
||||
*
|
||||
S.FI .EQ $12
|
||||
*--------------------------------------
|
||||
S.FIEX .EQ $27
|
||||
S.FIEX.TYPE .EQ 0
|
||||
S.FIEX.KEYPTR .EQ 1
|
||||
S.FIEX.BUSED .EQ 3
|
||||
S.FIEX.EOF .EQ 5
|
||||
S.FIEX.CTIME .EQ 8
|
||||
S.FIEX.VERSION .EQ 12
|
||||
S.FIEX.MVERSION .EQ 13
|
||||
S.FIEX.ACCESS .EQ 14
|
||||
S.FIEX.AUXTYPE .EQ 15
|
||||
S.FIEX.MTIME .EQ 17
|
||||
S.FIEX.BLKPTR .EQ 21
|
||||
S.FIEX.ACL .EQ 24
|
||||
*
|
||||
S.FIEX .EQ 32
|
||||
*--------------------------------------
|
||||
MLI .EQ $BF00
|
||||
*JSPARE .EQ $BF03
|
||||
|
||||
@ -112,7 +112,7 @@ errpath1 beq .1 if non-zero then 'path not found'
|
||||
|
||||
.1 lda #MLI.E.FNOTFND file not found
|
||||
sec
|
||||
rts
|
||||
lookfil0.RTS rts
|
||||
*--------------------------------------
|
||||
namfound jsr nxtpname adj index to next name in path.
|
||||
beq filfound branch if that was the last name.
|
||||
@ -133,7 +133,7 @@ namfound jsr nxtpname adj index to next name in path.
|
||||
sta d_head+1
|
||||
|
||||
jsr rdgbuf read subdirectory into gbuf.
|
||||
bcs L389C if error.
|
||||
bcs lookfil0.RTS if error.
|
||||
|
||||
lda gbuf+37 get the # of files contained in this
|
||||
sta entcntl directory.
|
||||
@ -166,26 +166,35 @@ L386C asl
|
||||
movhead jsr movhed0 move directory info.
|
||||
jmp lookfil0 do next local pathname.
|
||||
|
||||
movhed0 ldx #$0A move this directory info
|
||||
|
||||
L387F lda gbuf+28,x
|
||||
movhed0 .DO ACL=1
|
||||
ldx #18
|
||||
.ELSE
|
||||
ldx #10 move this directory info
|
||||
.FIN
|
||||
|
||||
.1 .DO ACL=1
|
||||
lda gbuf+$14,x
|
||||
sta h_acl,x
|
||||
.ELSE
|
||||
lda gbuf+1C,x
|
||||
sta h_credt,x
|
||||
.FIN
|
||||
dex
|
||||
bpl L387F
|
||||
bpl .1
|
||||
|
||||
lda gbuf+4 if this is root, then nothing to do
|
||||
and #$F0
|
||||
eor #$F0 test header type.
|
||||
beq L389C branch if root
|
||||
beq .8 branch if root
|
||||
|
||||
ldx #$03 otherwise, save owner info about
|
||||
|
||||
L3893 lda gbuf+39,x this header.
|
||||
.2 lda gbuf+$27,x this header.
|
||||
sta own_blk,x
|
||||
dex
|
||||
bpl L3893
|
||||
bpl .2
|
||||
|
||||
L389C rts
|
||||
.8 rts
|
||||
*--------------------------------------
|
||||
filfound lda h_maxent figure out which entry # this is
|
||||
sec
|
||||
@ -287,11 +296,15 @@ L38F8 dec cntent checked all entries in this block?
|
||||
preproot jsr findvol search vcb's and dev's for spec'd volume
|
||||
bcs novolume
|
||||
|
||||
.DO ACL=1
|
||||
ldx #$4A
|
||||
.ELSE
|
||||
ldx #$42 zero out directory temps
|
||||
|
||||
L3914 stz own_blk,x and owner info
|
||||
.FIN
|
||||
|
||||
.1 stz own_blk,x and owner info
|
||||
dex
|
||||
bpl L3914
|
||||
bpl .1
|
||||
|
||||
lda devnum setup device # for this directory
|
||||
sta d_dev
|
||||
@ -301,7 +314,7 @@ L3914 stz own_blk,x and owner info
|
||||
ldx vcbptr
|
||||
inx
|
||||
|
||||
L3929 lda vcbbuf+18,x misc info includes
|
||||
.2 lda vcbbuf+18,x misc info includes
|
||||
sta h_tblk,y total # of blocks,
|
||||
lda vcbbuf+26,x the address of the 1st bitmap,
|
||||
sta h_bmap,y
|
||||
@ -311,7 +324,7 @@ L3929 lda vcbbuf+18,x misc info includes
|
||||
sta entcntl,y files in this directory.
|
||||
dex
|
||||
dey
|
||||
bpl L3929
|
||||
bpl .2
|
||||
|
||||
nxtpname jsr nxtpnam1 get new namptr in y and namlen in acc.
|
||||
sty namptr save new pathname pointer.
|
||||
|
||||
@ -813,7 +813,9 @@ XDOS.DATA .DUMMY
|
||||
own_blk .HS 0000
|
||||
own_ent .HS 00
|
||||
own_len .HS 00
|
||||
|
||||
.DO ACL=1
|
||||
h_acl .BS 8
|
||||
.FIN
|
||||
h_credt .HS 0000 directory creation date
|
||||
.HS 0000 directory creation time
|
||||
.HS 00 version under which this dir created
|
||||
@ -822,6 +824,7 @@ h_attr .HS 00 attributes (protect bit, etc.)
|
||||
h_entln .HS 00 length of each entry in this directory
|
||||
h_maxent .HS 00 maximum number of entries per block
|
||||
h_fcnt .HS 0000 current # of files in this directory
|
||||
|
||||
h_bmap .HS 0000 address of first allocation bitmap
|
||||
h_tblk .HS 0000 total number of blocks on this unit
|
||||
|
||||
|
||||
@ -8,6 +8,7 @@ NEW
|
||||
READCAT .EQ 0 Boot Block read Catalog at $C00
|
||||
ENHFILENAME .EQ 1
|
||||
LOWERCASE .EQ 1
|
||||
ACL .EQ 1
|
||||
FASTSEEK .EQ 0
|
||||
FASTWRITE .EQ 0
|
||||
*--------------------------------------
|
||||
|
||||
@ -1174,7 +1174,7 @@ MLIGETFILEINFOEX00
|
||||
.DA #2
|
||||
>PSTR "A2osX.KCONFIG"
|
||||
.DA FIEX
|
||||
FIEX .BS S.FIEX
|
||||
FIEX .BS S.FIEX
|
||||
*--------------------------------------
|
||||
MLIOPEN00 .DA #3
|
||||
.DA .1
|
||||
|
||||
@ -160,16 +160,17 @@ SetCharAtYX cmp #$40
|
||||
ldy #S.DCB.TTY.bNORMAL
|
||||
ora (ZPDCBPtr),y
|
||||
sta ZPTmpChar
|
||||
|
||||
ldy #S.DCB.TTY.bG0G1 Select Active Font
|
||||
|
||||
clc
|
||||
lda (ZPDCBPtr),y
|
||||
clc
|
||||
bpl .2
|
||||
sec
|
||||
|
||||
.2 lda #$80
|
||||
bcc .21
|
||||
lsr
|
||||
|
||||
.21 and (ZPDCBPtr),y
|
||||
beq .3 not Graphic mode
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user