Apple-2-SW
/
A2osX
mirror of https://github.com/A2osX/A2osX.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-09-11 17:01:48 +02:00
parent ed66719b5a
commit e3cc7ab865
10 changed files with 45 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BOOT.po
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.

8
BIN/FORMAT.S.txt
View File

@ -500,8 +500,12 @@ CS.RUN.LL.DISKII.VBLK
>PUSHA
>PUSHBI 1
>SYSCALL PrintF
plx
rts
.8 plx
.8 lda #C.CR
>SYSCALL PutChar
plx
rts
*--------------------------------------
CS.RUN.MotorOn sec
@ -710,7 +714,7 @@ MSG.NOSIZE .AZ "Unable to get media size."
MSG.INIT .AZ "Formatting %s, Volname:%s\r\n"
MSG.LL .AZ "Low Level Format %D Blks\r\n"
MSG.LLDISK2 .AZ "\rWriting Track %02d (%02d/%02d)..."
MSG.VERIFY .AZ "\rVerifying Track %02d, Sector %02d, Block %05D..."
MSG.VERIFY .AZ "Verifying Track %02d, Sector %02d, Block %05D..."
MSG.WRITECAT .AZ "Writing Catalog..."
FMT.BLANK .AZ "BLANK%H%H"
*--------------------------------------

7
INC/IO.D2.I.txt
View File

@ -1,8 +1,11 @@
NEW
AUTO 3,1
*--------------------------------------
IO.D2.SeekTimeF .EQ 90 Track Formatter
IO.D2.SeekTimeB .EQ 60 Boot Block
IO.D2.SeekTimeR .EQ 160 LIBBLKDEV Recalibration
IO.D2.SeekTimeF .EQ 90 LIBBLKDEV Track Formatter
IO.D2.SeekTimeB .EQ 60 LIBBLKDEV Boot Block
IO.D2.SeekTimeP .EQ 40 ProDOS.FX initial
IO.D2.SeekTimeI .EQ 20 ProDOS.FX increment -> until > 128
*--------------------------------------
IO.D2.Ph0Off .EQ $C080
IO.D2.Ph0On .EQ $C081

10
LIB/LIBBLKDEV.S.D2.txt
View File

@ -42,10 +42,7 @@ D2Recalibrate >PULLB DrvSlt
tax
lda IO.D2.Ph0On,x
lda #IO.D2.SeekTimeF
jsr D2.Wait100usecA
lda #IO.D2.SeekTimeF
lda #IO.D2.SeekTimeR
jsr D2.Wait100usecA
tya
@ -56,6 +53,8 @@ D2Recalibrate >PULLB DrvSlt
ldx Slotn0
lda IO.D2.Ph0Off,x
jsr D2.Wait25600usec
clc
.9 rts
*/--------------------------------------
@ -137,7 +136,8 @@ D2MoveHead >PULLB MoveTo
nop
jsr D2.Wait25600usec
jsr D2.Wait25600usec
clc
.9 rts

10
LIB/LIBGUI.S.WND.txt
View File

@ -339,15 +339,21 @@ WND.PaintTitle ldx #S.CB-1
iny
lda (ZPPtr1),y
sta CB.Cache+S.CB.TxtPtr+1
>DEBUG
jsr GFXWrite.CB
clc
rts
bcs .9
ldx #0
.8 lda CB.Cache,x
jsr PutCBBuf
inx
cpx #S.CB
cpx #S.CB.DstPtr+2
bne .8
clc

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

@ -1120,16 +1120,16 @@ LDR.DEVPTRS.CNT .EQ 14
LDR.DEVPTRS.IDX .DA #$16 S3D2
.DA #$06 S3D1
.DA #$1E S7D2
.DA #$0E S7D1
.DA #$1C S6D2
.DA #$0C S6D1
.DA #$1A S5D2
.DA #$0A S5D1
.DA #$14 S2D2
.DA #$04 S2D1
.DA #$1C S6D2
.DA #$0C S6D1
.DA #$1E S7D2
.DA #$0E S7D1
.DA #$12 S1D2
.DA #$02 S1D1
.DA #$14 S2D2
.DA #$04 S2D1
.DA #$18 S4D2
.DA #$08 S4D1
*--------------------------------------

6
ProDOS.FX/ProDOS.S.XRW.txt
View File

@ -18,7 +18,7 @@ XRW.START cld $D8 to flag language card bank 1 (main)
lda XRW.D2SeekTime-1,x
bne .10
lda #30
lda #IO.D2.SeekTimeP
sta XRW.D2SeekTime-1,x
.10 pla
@ -217,7 +217,9 @@ regrwts ldy #1
lda XRW.D2SeekTime-1,x
bmi .41
asl XRW.D2SeekTime-1,x
clc
adc #IO.D2.SeekTimeI
sta XRW.D2SeekTime-1,x
.41 lda XRW.ReqTrack

17
SYS/KERNEL.S.PWDX.txt
View File

@ -94,14 +94,15 @@ PWDX.PutPW lda PWD.hUsrDB
jsr PWDX.GetRecordLen
tay
lda #0
>STYA PWD.UsrDBSize
iny
bne .1
inc
.1 >STYA PWD.UsrDBSize
jsr K.getmem
.1 jsr K.getmem
bcs PWDX.GetPW.RTS
>STYA ZPPtr3
@ -117,7 +118,7 @@ PWDX.PutPW lda PWD.hUsrDB
jsr K.freemem
.2 >LDYAI PWDX.GROUP.Size
.2 >LDYAI PWDX.GROUP.Size+1
>STYA PWD.GrpDBSize
jsr K.getmem
bcs .9
@ -172,7 +173,12 @@ PWDX.PutPW.1 jsr K.GetmemPtr
adc PWD.UsrDBSize+1
sta PWD.UsrDBSize+1
jsr K.Getmem
iny
bne .14
inc
.14 jsr K.Getmem
bcs .99
>STYA ZPPtr3
@ -822,7 +828,6 @@ PWDX.GROUP .AS "root:0"
.DA #C.CR
.AS "users:1"
.DA #C.CR
.DA #0
PWDX.GROUP.Size .EQ *-PWDX.GROUP
*--------------------------------------
MAN