Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-05 23:30:15 +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
*--------------------------------------
CS.RUN.Format jsr CS.RUN.GetDevStatus
bcs .9
bcs .99
>PUSHW L.MSG.INIT
>PUSHW ZPPtrDevName
>PUSHEA.G VolName
>PUSHBI 4
>SYSCALL PrintF
bcs .9
bcs .99
jsr CS.RUN.GET.DSSS0000
bit bLL
bpl .1
@ -191,7 +193,7 @@ CS.RUN.Format jsr CS.RUN.GetDevStatus
bcs .9
jsr CS.RUN.WriteCat
bcs .9
.99 bcs .9
>LDYA L.MSG.OK
>SYSCALL PutS
@ -202,7 +204,12 @@ CS.RUN.Format jsr CS.RUN.GetDevStatus
jsr CS.RUN.LL.DISKII.V
bcs .9
.8 lda #0
.8 >PUSHB DSSS0000
>PUSHW pData
>SYSCALL Online
bcs .9
lda #0
sec
rts
@ -246,10 +253,7 @@ CS.RUN.GetDevStatus
sec
rts
*--------------------------------------
CS.RUN.LL >LDA.G DIB+S.DIB.T
cmp #S.DIB.T.DISKII
bne .1
CS.RUN.GET.DSSS0000
ldy #S.FD.DEV.BUSID
lda (ZPPtrFD),y 00000SSS
@ -268,6 +272,12 @@ CS.RUN.LL >LDA.G DIB+S.DIB.T
ror
sta DSSS0000
rts
*--------------------------------------
CS.RUN.LL >LDA.G DIB+S.DIB.T
cmp #S.DIB.T.DISKII
bne .1
lda #0
bit bExtraTrack
bpl .10

2
INC/A2osX.I.txt
View File

@ -238,7 +238,7 @@ SYS.SScanF .EQ $52
* MOUNT
SYS.Mount .EQ $60
SYS.UMount .EQ $62
* .EQ $64
SYS.Online .EQ $64
* ERROR
SYS.GetErrorMessage .EQ $66
* 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.UMount
.DA 0
.DA K.Online
.DA K.GetErrorMessage
.DA K.Shift $68 : ARG
.DA K.ArgV
@ -491,6 +491,6 @@ K.SYSCALL.JMPX sta SETREADAUX
.1 jmp (KX.SYSCALL-SYS.StrVShift,x)
*--------------------------------------
MAN
SAVE USR/SRC/SYS/KERNEL.S.JMP
LOAD USR/SRC/SYS/KERNEL.S
SAVE usr/src/sys/kernel.s.jmp
LOAD usr/src/sys/kernel.s
ASM

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

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