Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-12 20:29:41 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-07-07 15:44:28 +02:00
parent bac1250507
commit 8f44faaf1d
7 changed files with 29 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BOOT.woz
View File

Binary file not shown.

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

BIN
.Floppies/A2OSX.TEST.po
View File

Binary file not shown.

26
BIN/FORMAT.S.txt
View File

@ -169,14 +169,16 @@ CS.RUN ldy #S.PS.ARGC
beq .99 beq .99
*-------------------------------------- *--------------------------------------
CS.RUN.Format jsr CS.RUN.GetDevStatus CS.RUN.Format jsr CS.RUN.GetDevStatus
bcs .9 bcs .99
>PUSHW L.MSG.INIT >PUSHW L.MSG.INIT
>PUSHW ZPPtrDevName >PUSHW ZPPtrDevName
>PUSHEA.G VolName >PUSHEA.G VolName
>PUSHBI 4 >PUSHBI 4
>SYSCALL PrintF >SYSCALL PrintF
bcs .9 bcs .99
jsr CS.RUN.GET.DSSS0000
bit bLL bit bLL
bpl .1 bpl .1
@ -191,7 +193,7 @@ CS.RUN.Format jsr CS.RUN.GetDevStatus
bcs .9 bcs .9
jsr CS.RUN.WriteCat jsr CS.RUN.WriteCat
bcs .9 .99 bcs .9
>LDYA L.MSG.OK >LDYA L.MSG.OK
>SYSCALL PutS >SYSCALL PutS
@ -202,7 +204,12 @@ CS.RUN.Format jsr CS.RUN.GetDevStatus
jsr CS.RUN.LL.DISKII.V jsr CS.RUN.LL.DISKII.V
bcs .9 bcs .9
.8 lda #0 .8 >PUSHB DSSS0000
>PUSHW pData
>SYSCALL Online
bcs .9
lda #0
sec sec
rts rts
@ -246,10 +253,7 @@ CS.RUN.GetDevStatus
sec sec
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN.LL >LDA.G DIB+S.DIB.T CS.RUN.GET.DSSS0000
cmp #S.DIB.T.DISKII
bne .1
ldy #S.FD.DEV.BUSID ldy #S.FD.DEV.BUSID
lda (ZPPtrFD),y 00000SSS lda (ZPPtrFD),y 00000SSS
@ -268,6 +272,12 @@ CS.RUN.LL >LDA.G DIB+S.DIB.T
ror ror
sta DSSS0000 sta DSSS0000
rts
*--------------------------------------
CS.RUN.LL >LDA.G DIB+S.DIB.T
cmp #S.DIB.T.DISKII
bne .1
lda #0 lda #0
bit bExtraTrack bit bExtraTrack
bpl .10 bpl .10

2
INC/A2osX.I.txt
View File

@ -238,7 +238,7 @@ SYS.SScanF .EQ $52
* MOUNT * MOUNT
SYS.Mount .EQ $60 SYS.Mount .EQ $60
SYS.UMount .EQ $62 SYS.UMount .EQ $62
* .EQ $64 SYS.Online .EQ $64
* ERROR * ERROR
SYS.GetErrorMessage .EQ $66 SYS.GetErrorMessage .EQ $66
* ARG * ARG

6
SYS/KERNEL.S.JMP.txt
View File

@ -63,7 +63,7 @@ K.SYSCALL .DA K.ChTyp $00 : STAT
*-------------------------------------- *--------------------------------------
.DA K.Mount $60 .DA K.Mount $60
.DA K.UMount .DA K.UMount
.DA 0 .DA K.Online
.DA K.GetErrorMessage .DA K.GetErrorMessage
.DA K.Shift $68 : ARG .DA K.Shift $68 : ARG
.DA K.ArgV .DA K.ArgV
@ -491,6 +491,6 @@ K.SYSCALL.JMPX sta SETREADAUX
.1 jmp (KX.SYSCALL-SYS.StrVShift,x) .1 jmp (KX.SYSCALL-SYS.StrVShift,x)
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE USR/SRC/SYS/KERNEL.S.JMP SAVE usr/src/sys/kernel.s.jmp
LOAD USR/SRC/SYS/KERNEL.S LOAD usr/src/sys/kernel.s
ASM ASM

9
SYS/KERNEL.S.MOUNT.txt
View File

@ -15,7 +15,12 @@ K.UMount
clc clc
rts rts
*-------------------------------------- *--------------------------------------
K.Online >PULLW K.MLI.PARAMS+2
>PULLW K.MLI.PARAMS+1
>MLICALL MLIONLINE
rts
*--------------------------------------
MAN MAN
SAVE USR/SRC/SYS/KERNEL.S.MOUNT SAVE usr/src/sys/kernel.s.mount
LOAD USR/SRC/SYS/KERNEL.S LOAD usr/src/sys/kernel.s
ASM ASM