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

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-04-23 17:36:51 +02:00
parent 1ebf41f488
commit acd8b6c943
7 changed files with 61 additions and 27 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.

42
BIN/FORMAT.S.txt
View File

@ -22,7 +22,8 @@ ZPPtrDevName .BS 2
Index .BS 1
hDevID .BS 1
hBuf .BS 1
DrvSlt0 .BS 1
hCatBuf .BS 1
hMem .BS 1
bLL .BS 1
@ -133,8 +134,9 @@ CS.RUN ldy #S.PS.ARGC
>SYSCALL GetDevByName
bcs .9
>STYA ZPPtrFD
stx hDevID
>STYA ZPPtrFD
>LDYA ZPPtr1
>STYA ZPPtrDevName
bra .10
@ -240,16 +242,42 @@ CS.RUN.LL >LDA.G DIB+S.DIB.T
>SYSCALL IOCTL
.9 rts
.9
CS.RUN.LL.RTS rts
*--------------------------------------
CS.RUN.LL.DISKII
ldy #S.FD.DEV.BUSID
lda (ZPPtrFD),y 00000SSS
lsr
ror
ror
ror
pha SSS00000
iny S.FD.DEV.DEVID
lda (ZPPtrFD),y
dec 0/1
ror in C
pla
ror
sta DrvSlt0 DSSS0000
>LDYAI 4096
>SYSCALL GetMem
bcs .9
bcs CS.RUN.LL.RTS
stx hMem
>STYA ZPPtr1
>STYA ZPPtr2
>STYA.G IOCTL+S.IOCTL.BUFPTR
>PUSHB hDevID
>PUSHBI IOCTL.READBLOCK
>PUSHEA.G IOCTL
>SYSCALL IOCTL Read Block 0 to recalibrate
ldx #16
lda #0
@ -271,7 +299,7 @@ CS.RUN.LL.DISKII
>SYSCALL PrintF
bcs .9
>PUSHBI $E0 S6D2
>PUSHB DrvSlt0
>PUSHB Index
>PUSHW ZPPtr1
>LIBCALL hLIBBLKDEV,LIBBLKDEV.D2TrkWrite16s
@ -327,7 +355,7 @@ CS.RUN.BuildCat jsr .7
>STYA ZPPtr1
>STYA.G IOCTL+S.IOCTL.BUFPTR
stx hBuf
stx hCatBuf
lda CatBlkCnt
asl
@ -385,7 +413,7 @@ CS.RUN.WriteCat >PUSHW L.MSG.WRITECAT
CS.DOEVENT sec
rts
*--------------------------------------
CS.QUIT lda hBuf
CS.QUIT lda hCatBuf
beq .1
>SYSCALL FreeMem

2
INC/LIBBLKDEV.I.txt
View File

@ -4,7 +4,7 @@ NEW
*--------------------------------------
LIBBLKDEV.GetProDOSCatSize .EQ 4
LIBBLKDEV.BuildProDOSCat .EQ 6
LIBBLKDEV.D2Recalibrate .EQ 8
LIBBLKDEV.D2MoveHead .EQ 8
LIBBLKDEV.D2TrkRead16s .EQ 10
LIBBLKDEV.D2TrkWrite16s .EQ 12
*--------------------------------------

9
LIB/LIBBLKDEV.S.txt
View File

@ -53,7 +53,7 @@ CS.START cld
.DA LIB.UNLOAD
.DA GetProDOSCatSize
.DA BuildProDOSCat
.DA D2Recalibrate
.DA D2MoveHead
.DA D2TrkRead16s
.DA D2TrkWrite16s
.DA D2TrkReadNIB
@ -289,7 +289,9 @@ BuildProDOSCat >PULLW ZPPtr1 DstBuf
bra .7
*/--------------------------------------
*\--------------------------------------
D2Recalibrate >PULLB DrvSlt
D2MoveHead >PULLB MoveTo
>PULLB MoveFrom
>PULLB DrvSlt
jsr CheckDiskII
bcs .9
@ -852,6 +854,9 @@ DiskII.SIG .HS 20000300
DrvSlt .BS 1
TrkBuf .BS 1
MoveFrom .BS 1
MoveTo .BS 1
Checksum .BS 1
SectNum .BS 1
TrkNum .BS 1

4
ProDOS.FX/ProDOS.S.LDR.txt
View File

@ -136,7 +136,7 @@ LDR.CheckROM ldx #LDR.MSG.IIE
LDR.UNSUPP.HW ldx #LDR.MSG.UNSUPP
jsr LDR.PrintX
bra *
bne * no BRA !!! (6502)
*--------------------------------------
m128k sta idapple Save MACHID in temp location
@ -191,7 +191,7 @@ m128k sta idapple Save MACHID in temp location
lda /$DE00
jsr X.Unpak.XatYA
ldx #XDOS.DATA.LEN0
ldx #XDOS.DATA.LEN
.3 stz XDOS.DATA-1,x
dex

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

@ -921,13 +921,7 @@ bufaddrl .HS 00
bufaddrh .HS 00
delflag .HS 00 used by 'detree' to know if called from delete (destroy).
.LIST ON
XDOS.DATA.LEN0 .EQ *-XDOS.DATA
.LIST OFF
* variables used by mli for smartport interface
XDOS.SPStatus .HS 00000000
* variables used by SP remap & XRW Disk ][ to store last track used
XDOS.SPUnit .HS 00000000000000 14+1 for S0D2
.HS 00
@ -941,6 +935,8 @@ XDOS.SPVectHi .HS 00000000000000 storage for high byte of smartport entry.
.HS 00
.HS 00000000000000
XDOS.SPStatus .HS 00000000
.LIST ON
XDOS.DATA.LEN .EQ *-XDOS.DATA
.LIST OFF

21
SYS/KERNEL.S.INIT.txt
View File

@ -463,7 +463,7 @@ CPU.Init.6502 >PUSHWI MSG.CPU
php
sei
clc
lda MACHID
and #MACHID.T
@ -500,10 +500,14 @@ CPU.Init.6502 >PUSHWI MSG.CPU
lda IO.IIC.CLRVBLIRQ yes, clear IRQ
lda #0 wait for UP again
.3 ldy #4 (2)
.4 dey (2)
bne .4 (2*)
.3 pha (3)
pla (4)
pha (3)
pla (4)
nop (2)
nop (2)
nop (2)
inc A2osX.RANDOM16 (6)
bne .5 (2*)
@ -535,9 +539,7 @@ CPU.Init.6502 >PUSHWI MSG.CPU
sta IO.IIC.DISVBL
.60 plp
stz A2osX.CPUSPEED
.60 stz A2osX.CPUSPEED
.7 sec
lda A2osX.RANDOM16
@ -555,6 +557,8 @@ CPU.Init.6502 >PUSHWI MSG.CPU
.8 lda A2osX.RANDOM16
sta A2osX.CPUSPEED+1
plp
>PUSHWI MSG.CPU.SPEEDOK
lda A2osX.CPUSPEED
>PUSHA push CPU speed HI
@ -562,6 +566,7 @@ CPU.Init.6502 >PUSHWI MSG.CPU
>PUSHA push CPU speed LO
>PUSHBI 2
>SYSCALL2 printf
rts
*--------------------------------------
CPU.Init.Z80 >PUSHWI MSG.Z80