Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-25 20:33:13 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-07-18 16:04:21 +02:00
parent 88a56a14a3
commit 200bf2b4ef
13 changed files with 135 additions and 79 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

9
BIN/CHGRP.S.txt
View File

@ -154,13 +154,16 @@ CS.RUN.LOOP ldy #S.PS.hStdIn
rts
.5 cmp /S.STAT.MODE.DIR DIR ?
bne .6
beq .6
cmp /S.STAT.MODE.BDEV VOL ?
bne .9
jsr CS.RUN.DIR
.6 jsr CS.RUN.DIR
bcc CS.RUN.NEXT
rts
.6 lda #MLI.E.UNSUPST
.9 lda #MLI.E.UNSUPST
sec
.99 rts
*--------------------------------------

9
BIN/CHMOD.S.txt
View File

@ -149,13 +149,16 @@ CS.RUN.LOOP ldy #S.PS.hStdIn
rts
.5 cmp /S.STAT.MODE.DIR DIR ?
bne .6
beq .6
cmp /S.STAT.MODE.BDEV VOL ?
bne .9
jsr CS.RUN.DIR
.6 jsr CS.RUN.DIR
bcc CS.RUN.NEXT
rts
.6 lda #MLI.E.UNSUPST
.9 lda #MLI.E.UNSUPST
sec
.99 rts
*--------------------------------------

9
BIN/CHOWN.S.txt
View File

@ -155,13 +155,16 @@ CS.RUN.LOOP ldy #S.PS.hStdIn
rts
.5 cmp /S.STAT.MODE.DIR DIR ?
bne .6
beq .6
cmp /S.STAT.MODE.BDEV VOL ?
bne .9
jsr CS.RUN.DIR
.6 jsr CS.RUN.DIR
bcc CS.RUN.NEXT
rts
.6 lda #MLI.E.UNSUPST
.9 lda #MLI.E.UNSUPST
sec
.99 rts
*--------------------------------------

8
INC/MACROS.I.txt
View File

@ -113,7 +113,7 @@ NEW
.FIN
.DO ]1=MLIGETBUF
lda #2
.FIN
.FIN
.DO ]1=MLISETFILEINFOEX
lda #2
@ -121,11 +121,11 @@ NEW
.DO ]1=MLIGETFILEINFOEX
lda #2
.FIN
.DO ]1=MLISETACL
.DO ]1=MLIACL
lda #2
.FIN
jsr GP.MLICall
jsr GP.MLICall
.EM
*--------------------------------------
* FPU Entry Point
@ -204,7 +204,7 @@ FPU.FOUT .EQ 58 PrintF
.EM
*--------------------------------------
.MA PUSHL.G
ldy #]1+4
ldy #]1+4
:1 dey
lda (pData),y
>PUSHA

4
INC/MLI.I.txt
View File

@ -35,10 +35,10 @@ MLISETEOF .EQ $D0
MLIGETEOF .EQ $D1
MLISETBUF .EQ $D2
MLIGETBUF .EQ $D3
* ProDOS FX
MLISETFILEINFOEX .EQ $D4
MLIGETFILEINFOEX .EQ $D5
MLISETACL .EQ $D6
MLIACL .EQ $D6
*--------------------------------------
S.FI.A .EQ $03
S.FI.A.R .EQ $01

7
ProDOS.FX/ProDOS.S.XDOS.A.txt
View File

@ -406,11 +406,8 @@ XDOS.SetPrefix jsr XDOS.GetPath call is made to detect if a null path.
clc no error
rts
H3333 jsr findfile go find specified prefix directory.
bcc H333C if no error.
cmp #MLI.E.INVPATH bad pathname.
bne pfxerr branch if error is not root directory.
H3333 jsr XDOS.FindFileOrVol go find specified prefix directory.
bcs pfxerr branch if error is not root directory.
H333C lda d_stor make sure last local name is dir type
and #$D0 (either root or sub).

31
ProDOS.FX/ProDOS.S.XDOS.B.txt
View File

@ -1,9 +1,27 @@
NEW
AUTO 3,1
*--------------------------------------
findfile jsr lookfile see if file exists
bcs nofind
XDOS.FindDirOrVol
jsr XDOS.FindFileOrVol
bcs .99
lda d_stor
and #$F0
cmp #$D0
beq moventry.CLCRTS
.9 lda #MLI.E.UNSUPST
sec
.99 rts
*--------------------------------------
XDOS.FindFileOrVol
jsr lookfile
bcc moventry
cmp #MLI.E.INVPATH
bne fnderr
moventry ldy h_entln Get FileInfo From Directory Block Buffer
.1 dey
@ -11,8 +29,13 @@ moventry ldy h_entln Get FileInfo From Directory Block Buffer
sta d_stor,y
tya
bne .1
nofind rts
moventry.CLCRTS
clc
rts
*--------------------------------------
XDOS.FindFile jsr lookfile see if file exists
bcc moventry
rts
*--------------------------------------
lookfile jsr preproot go find volume
bcs fnderr

9
ProDOS.FX/ProDOS.S.XDOS.C.txt
View File

@ -698,11 +698,8 @@ L408D ldy fcbptr change status byte to reflect
sta FCBs+FCB.F,y (carry is unaffected)
L4096 rts
*--------------------------------------
XDOS.Open jsr findfile look up the file.
bcc L40A0 if ok.
cmp #MLI.E.INVPATH is this opening a root directory ?
bne L40AE if not, then error.
XDOS.Open jsr XDOS.FindFileOrVol look up the file.
bcs L4096 if not, then error.
L40A0 jsr tstopen are any other files writing to this
bcc L40AD same file ? branch if not.
@ -712,7 +709,7 @@ L40A5 lda #MLI.E.OPEN file is busy, shared access not allowed.
L40A9 lda #MLI.E.UNSUPST file is wrong storage type.
.HS 2C
L40AB lda #MLI.E.FCBFULL fcb full error.
L40AE sec
sec
rts
L40AD ldy fcbptr get address of 1st free fcb found.

63
ProDOS.FX/ProDOS.S.XDOS.E.txt
View File

@ -6,7 +6,7 @@ XDOS.Close ldy #$01 close all ?
bne L4683 no, just one of them.
sta cferr clear global close error.
lda #$00 start at the beginning.
* lda #$00 start at the beginning.
L4654 sta fcbptr save current low byte of pointer.
tay get the level at which the file
@ -14,7 +14,7 @@ L4654 sta fcbptr save current low byte of pointer.
cmp flevel if file's level is < global level
bcc L4675 then don't close.
lda FCBs,y is this reference file open ?
lda FCBs,y is this reference file open ?
beq L4675 no, try next.
jsr flush2 clean it out...
@ -58,7 +58,7 @@ close2 ldy fcbptr
* clc strip 'files open' bit
* ror VCBs+VCB.OF,x
L46B4 clc
L46B4 clc
rts
L46B6 bcs L46E6 don't report close all error now.
@ -68,7 +68,7 @@ XDOS.Flush ldy #$01 flush all ?
bne flush1 no, just one of them.
sta cferr clear global flush error.
lda #$00 start at the beginning.
* lda #$00 start at the beginning.
L46C3 sta fcbptr save current low byte of pointer.
tay index to ref #.
@ -169,7 +169,7 @@ L476C lda FCBs+FCB.EOF,y needed or not.
cpx #$03 move all 3 bytes
beq L4780
lda FCBs+12,y also move in the address of the file's
lda FCBs+FCB.1stBLK,y also move in the address of the file's
sta d_filid,x first block since it might have changed
iny since the file first opened.
bne L476C branch always.
@ -338,6 +338,7 @@ L485F jsr tkfrecnt force free block count before releasing
sec and tree levels.
sbc #$01
sta dsap deallocate for last (phantom) block
lda #$02 and don't modify last data block.
bcs L489F branch if tree level unaffected.
@ -454,7 +455,7 @@ XDOS.NewLine ldy #$02 adjust newline status for open file.
rts
*--------------------------------------
XDOS.GetFileInfo
jsr findfile look for file.
jsr XDOS.FindFile look for file.
bcc L4988 no error.
cmp #MLI.E.INVPATH was it a root directory file ?
@ -509,7 +510,7 @@ L4994 lda inftabl-3,y
L49A4 rts
*--------------------------------------
XDOS.SetFileInfo
jsr findfile get the file to work on.
jsr XDOS.FindFile get the file to work on.
bcs L49CF if error.
lda bubit see if backup bit can be cleared
@ -544,7 +545,7 @@ L49D0 ldy #$0B
jmp drevise update with clock also...
*--------------------------------------
XDOS.SetFileInfoEx
jsr findfile
jsr XDOS.FindFile
bcs L49A4
ldx #S.FIEX.BLKPTR+2-1
@ -559,14 +560,10 @@ XDOS.SetFileInfoEx.8
jmp drevise1
*--------------------------------------
XDOS.GetFileInfoEx
jsr findfile see if file exists
bcc .1
cmp #MLI.E.INVPATH
sec
bne .9
jsr XDOS.FindFileOrVol
bcs .9
.1 ldx #S.FIEX.BLKPTR+2-1
ldx #S.FIEX.BLKPTR+2-1
ldy #S.FIEX.BLKPTR+2-1+3
.2 lda d_stor,x
@ -584,38 +581,42 @@ XDOS.GetFileInfoEx
dex
bpl .3
clc
* clc
.9 rts
*--------------------------------------
XDOS.SetACL jsr findfile
XDOS.ACL jsr XDOS.FindDirOrVol
bcs .9
lda d_stor
and #$F0
cmp #$D0
bne .99
jsr XDOS.ReadGBuf_d_frst
bcs .9
ldx #7
ldy #S.FIEX.ACL+3
lda (A3L),y
beq .2
ldy #S.FIEX.ACL+7+3
.3 lda (A3L),y
.1 lda (A3L),y
sta gbuf+$14,x
dey
dex
bpl .3
bpl .1
jmp XDOS.WriteGBuf
.2 ldy #S.FIEX.ACL+7+3
.99 lda MLI.E.UNSUPST
sec
.3 lda gbuf+$14,x
sta (A3L),y
dey
dex
bpl .3
* clc
.9 rts
*--------------------------------------
XDOS.GetACL clc
rts
*--------------------------------------
XDOS.Rename jsr lookfile look for source (original) file.
bcc XDOS.RenameFileDir if found.
@ -726,7 +727,7 @@ L4A7F cmp #MLI.E.FNOTFND was it a valid file not found ?
bne L4A74 no, rename error.
jsr XDOS.GetPath syntax pathname of file to be changed.
jsr findfile get all the info on this file.
jsr XDOS.FindFile get all the info on this file.
bcs L4A74 rename error.
jsr tstopen is file in use ?

9
ProDOS.FX/ProDOS.S.XDOS.F.txt
View File

@ -1,7 +1,7 @@
NEW
AUTO 3,1
*--------------------------------------
XDOS.Destroy jsr findfile look for file to be destroyed.
XDOS.Destroy jsr XDOS.FindFile look for file to be destroyed.
bcs L4B66 if error.
jsr tstopen is it open ?
@ -816,7 +816,7 @@ XDOS.CmdNums .HS D3D4D5D6 table of valid mli command numbers.
.HS 808182
.HS 65
.HS C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF
.HS D7
.HS 00
.HS D0D1D2
XDOS.ParamCnt .HS 02020202 parameter counts for the calls
@ -824,7 +824,7 @@ XDOS.ParamCnt .HS 02020202 parameter counts for the calls
.HS 030300
.HS 04
.HS 070102070A0201010303040401010202
.HS 02
.HS FF
.HS 020202
XDOS.CmdFlags .HS A0A1A2
@ -863,8 +863,7 @@ cmdtable .DA XDOS.Create
.DA XDOS.SetFileInfoEx
.DA XDOS.GetFileInfoEx
.DA XDOS.SetACL
.DA XDOS.GetACL
.DA XDOS.ACL
dinctbl .HS 0100000200 table to increment directory usage/eof counts
.DO LOWERCASE=1

8
SYS/KERNEL.S.UNISTD.txt
View File

@ -295,7 +295,9 @@ IO.CLOSE.NOD ldx #2
K.ChOwn jsr PFT.CheckPath2
bcs K.ChOwn.RET4
>MLICALL MLIGETFILEINFOEX
stz K.MLI.PARAMS+3+S.FIEX.ACL read mode
>MLICALL MLIACL
bcs K.ChOwn.RET4
>PULLB K.MLI.PARAMS+3+S.FIEX.ACL.GID
@ -304,10 +306,10 @@ K.ChOwn jsr PFT.CheckPath2
inc pStack
inc pStack
lda #$57
lda #$57 write mode
sta K.MLI.PARAMS+3+S.FIEX.ACL
>MLICALL MLISETACL
>MLICALL MLIACL
rts
K.ChOwn.RET4 >RET 4

48
SYS/KM.RAMWORKS.S.txt
View File

@ -33,11 +33,12 @@ RW.Init >LDYAI RW.MSG
rts
.10 jsr RW.Detect2
bcc .1
>LDYAI RW.MSG.KO1
jsr PrintFYA
rts
.1 pha Push Page count
lsr divide by 4 to compute KB size
@ -84,16 +85,21 @@ RW.ONLINEBUFFER .BS 16
*--------------------------------------
RW.Detect2 php
sei
sta SETALTZP
ldx #0 start detection at page $00
.1 stx RWBankSelect
lda 0
sta RW.SAVEZP0,x save Bank 0 $0000 to prevent ALTZP trash
sta RW.SAVEZP0,x save Bank 0 $0000 to prevent ALTZP trash
lda 1
sta RW.SAVEZP1,x
inx
bpl .1
lda #0
.2 sta RWBankSelect
*--------------------------------------
* Added after David Finnigan from macgui.com testing sessions
@ -109,7 +115,9 @@ RW.Detect2 php
eor #$FF
inc
bpl .2
ldx #0
.3 txa
sta RWBankSelect
*--------------------------------------
@ -122,13 +130,17 @@ RW.Detect2 php
*--------------------------------------
cmp 0
bne .4
eor #$FF
cmp 1
bne .4
inx
bpl .3
.4 dex we reached 128,last detected page was 127
ldy #127 X = detected page count
dex we reached 128,last detected page was 127
.4 ldy #127 X = detected page count
.6 sty RWBankSelect
@ -141,10 +153,12 @@ RW.Detect2 php
txa
stx RW.PGCNT PGCNT = last detected page, as we do -1 for AuxMem
sta CLRALTZP
plp
lda RW.PGCNT
bmi .9
txa PGCNT > 0 ?
beq .9
clc
rts
@ -154,33 +168,43 @@ RW.Detect2 php
*--------------------------------------
RW.Install lda RRAMWRAMBNK1
lda RRAMWRAMBNK1
ldx #RWDRV.SIZE
.1 lda RWDRV.B.START-1,x
sta RWDRV.START-1,x
dex
bne .1
lda RW.PGCNT
lsr
sta RWDRV.MAXHI+1
lda #0
ror
sta RWDRV.MAXLO+1
lda RROMBNK1
sta SETWRITEAUX
ldx #RWDRVX.SIZE
.2 lda RWDRVX.B.START-1,x
sta RWDRVX.START-1,x
dex
bne .2
sta CLRWRITEAUX
inc DEVCNT
ldx DEVCNT
lda #$B0 Slot 3,Drive 2,0=Not Removable, 0=no int, 00=1 Volume
sta DEVLST,x
lda #RWDRV.START
sta DEVPTRS3D2
lda /RWDRV.START
sta DEVPTRS3D2+1
clc
rts
*--------------------------------------
@ -372,18 +396,19 @@ RWDRV.START cld ProDOS will check that byte!!!
sbc RWDRV.MAXHI+1
bcs RWDRV.IOERR DRV.BLKNUM >= RW.DRV.SIZE, IO error
php Disable IRQ as no vector set in RW Banks
sei
txa Get Back DRV.BLKNUM
asl compute PAGE = blocknumLO *2
pha
lda DRV.BLKNUM+1 compute BANK = blocknumHI *2
rol
inc +1 for skipping Aux BANK 0
plx move page into X
php Disable IRQ as no vector set in RW Banks
sei
beq RWDRV.GOAUX move from/to aux page0/1
cpx #$C0
bcs RWDRV.GOAUX move from/to aux LC
*--------------------------------------
@ -520,11 +545,14 @@ RWDRVX.START sta RWDRVX.XM.BANK+1 setup BANK
* Called form Main LC after RWDRVX.XM execution
*--------------------------------------
RWDRVX.RESTORE ldy #RWDRVX.XM.SIZE Now, restore begining of $300
.1 lda RWDRVX.XM.SAVE-1,y
sta RWDRV.XM.RUN-1,y
dey
bne .1
tya setup A=0 and CC for exit with non error
clc
rts
*--------------------------------------