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 2021-03-17 20:49:39 +01:00
parent f77498a457
commit 931dec0a29
11 changed files with 137 additions and 127 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

7
A2osX.S.QC.txt
View File

@ -13,8 +13,8 @@ A2osX.QC.Start .EQ *
A2osX.QC cld
jmp A2osX.QC.Start1
A2osX.QC.BOOT .BS 32
A2osX.QC.ROOT .BS 32
A2osX.QC.BOOT .BS 64
A2osX.QC.ROOT .BS 64
A2osX.QC.Start1 sei
ldx #$FF
@ -169,6 +169,7 @@ A2osX.QC.PrintYA
beq .9
ldy #1
.1 lda (TmpPtr1),y
ora #$80
jsr COUT
@ -178,7 +179,9 @@ A2osX.QC.PrintYA
.9 plp
bcc .99
jsr CROUT
.99 rts
*--------------------------------------
MLISETPREFIX03 .DA #1

15
A2osX.S.txt
View File

@ -106,6 +106,7 @@ A2osX.Init1.128 jsr MLI
adc #$01
cld
bpl .2 if minus, BUG!, we have 6502
>LDYAI MSG.CPU.KO
jsr PrintFYA
bra *
@ -128,14 +129,16 @@ A2osX.RamDrv >LDYAI MSG.RAMDRV
tax
bne .1
>LDYAI MSG.RAMDRV.KO0
jsr PrintFYA
bra A2osX.SetupQC
bra .8
.1 >LDYAI MSG.RAMDRV.KO1
jsr PrintFYA
bra A2osX.SetupQC
bra .8
.2 >LDYAI MSG.RAMDRV.OK
jsr PrintFYA
.8 jsr PrintFYA
*--------------------------------------
A2osX.EnumKM >LDYAI MSG.KMENUM
jsr PrintFYA
@ -672,7 +675,7 @@ PALETTE.AUX .HS 00.01.02.03.04.05.06.07
*--------------------------------------
A2osX.QC.B.Start
A2osX.QC.B.BOOT .EQ *+4
A2osX.QC.B.ROOT .EQ *+4+32
A2osX.QC.B.ROOT .EQ *+4+64
.INB usr/src/a2osx.s.qc
.LIST ON
SYSTEM.END .EQ *

14
BIN/FORMAT.S.txt
View File

@ -391,17 +391,17 @@ CS.RUN.LL.DISKII
jsr CS.RUN.LL.DISKII.V
bcs .99
* jsr CS.RUN.MotorOn
jsr CS.RUN.MotorOn
* lda #10
* jsr CS.RUN.Wait
lda #20
jsr CS.RUN.Wait
.80
* >PUSHB DSSS0000
* >LIBCALL hLIBBLKDEV,LIBBLKDEV.D2Recalibrate
>PUSHB DSSS0000
>LIBCALL hLIBBLKDEV,LIBBLKDEV.D2Recalibrate
* lda #10
* jsr CS.RUN.Wait
lda #20
jsr CS.RUN.Wait
clc
.99 rts

26
BIN/SH.S.txt
View File

@ -236,8 +236,7 @@ CS.RUN jsr CL.Init
bcs .9
>PUSHW L.MSG.GREETINGS
>PUSHB #K.VER
>PUSHB /K.VER
>PUSHW A2osX.KVER
>PUSHBI 2
>SYSCALL PrintF
bcs .9
@ -258,17 +257,23 @@ CS.RUN.LOOP >SLEEP
lda (pPS),y
>SYSCALL FEOF
bcs .9
tay
bne CS.RUN.LOOP
>SYSCALL GetChar
bcs .9 I/O err
cmp #3 Ctrl-C
bne .11
lda (pData) batch mode ?
beq CS.RUN.LOOP
>LDA.G bSET.C
beq .8
bra CS.RUN.LOOP
.11 cmp #19 test Ctrl-s
bne CS.RUN.LOOP
@ -318,12 +323,14 @@ CS.RUN.INTERACTIVE
jsr CL.PrintPrompt
bcs CS.RUN.CMDLINE.9
>STZ.G bREAD.S
dec
>STA.G READ.N
.1 >SYSCALL GetChar
bcs CS.RUN.CMDLINE.9 I/O error
.2 cmp #C.EOF ....or Ctrl-D
beq CS.RUN.CMDLINE.9 CS
@ -336,15 +343,16 @@ CS.RUN.INTERACTIVE
>PUSHBI 0
>SYSCALL PrintF
bcs CS.RUN.CMDLINE.9
lda (ZPCLBuf)
beq CS.RUN.CMDLINE.8 Empty line
beq CS.RUN.LOOP.END Empty line
jsr HIS.Add
>LDYA ZPCLBuf
CS.RUN.CMDLINE >SYSCALL StrDup
bcs CS.RUN.CMDLINE.8
bcs CS.RUN.CMDLINE.9
phx
jsr GetArgV
@ -352,19 +360,17 @@ CS.RUN.CMDLINE >SYSCALL StrDup
jsr CORE.Load.YAX Exec CL
bcs CS.RUN.CMDLINE.9
lda #$C0+C.CLEXEC
jsr CORE.StkPush
jsr CORE.Run
CS.RUN.CMDLINE.8
jmp CS.RUN.LOOP.END
bra CS.RUN.LOOP.RUN
CS.RUN.CMDLINE.9
rts
*--------------------------------------
CS.RUN.BATCH >LDA.G bSET.X
beq .5
beq CS.RUN.LOOP.RUN
ldy #$ff
@ -384,7 +390,7 @@ CS.RUN.BATCH >LDA.G bSET.X
>SYSCALL PrintF
bcs CS.RUN.LOOP.RTS
.5 jsr CORE.Run
CS.RUN.LOOP.RUN jsr CORE.Run
CS.RUN.LOOP.END ldy #S.PS.RC
sta (pPS),y

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

@ -1,11 +1,11 @@
NEW
AUTO 3,1
*--------------------------------------
IO.D2.SeekTimeR .EQ 45 LIBBLKDEV Recalibration
IO.D2.SeekTimeR .EQ 35 LIBBLKDEV Recalibration
IO.D2.SeekTimeF .EQ 45 LIBBLKDEV Track Formatter
IO.D2.SeekTimeB .EQ 45 LIBBLKDEV Boot Block
IO.D2.SeekTimeP .EQ 15 ProDOS.FX initial
IO.D2.SeekTimeI .EQ 10 ProDOS.FX increment -> until > 128
IO.D2.SeekTimeI .EQ 5 ProDOS.FX increment -> until > 128
*--------------------------------------
IO.D2.Ph0Off .EQ $C080
IO.D2.Ph0On .EQ $C081

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

@ -128,13 +128,15 @@ D2MoveHead.SEI lda Slotn0
.3 and #6
ora Slotn0
bcs .30
phx
tax
pla
.30 tay
.30
tay
lda IO.D2.Ph0On,x
.4 lda IO.D2.RData SELF MODIFIED
@ -175,7 +177,6 @@ D2TrkRead16s >PULLW ZPPtr1
jsr CheckDiskII
bcs .9
lda VolNum
clc
.9

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

@ -153,13 +153,21 @@ L538E lda A4L get command #
*--------------------------------------
.2 sei DISABLE IRQ
jsr XRW.TrackSelect
lda #2
sta XRW.RecalibrateCnt
.3 jsr XRW.TrackSelect
bcs XRW.E.IO
jsr XRW.SectorIO
bcc .4
jsr XRW.Recalibrate
bcc .3
bcs XRW.E.IO
inc buf+1
.4 inc buf+1
inc XRW.ReqSector
inc XRW.ReqSector
@ -188,31 +196,21 @@ XRW.E.EXIT ldx A2L
rts
*--------------------------------------
XRW.TrackSelect lda #2
sta XRW.RecalibrateCnt
sta XRW.BadSeek
.1 stz XRW.RetryCnt
.1 lda #32
sta XRW.RetryCnt
.2 jsr XRW.ReadAddr read next address field.
bcc .4 if CC, A = current track
.3 inc XRW.RetryCnt one less chance.
bpl .2 branch if < 128
.3 dec XRW.RetryCnt one less chance.
bne .2 branch if < 128
dec XRW.RecalibrateCnt
sec
beq .9
ldy XRW.UnitIndex
lda #41
sta XRW.D2Trk-1,y
lda #0
sta XRW.D2VolNum-1,y reset volnum for seeking 41 Qtracks
jsr XRW.Seek Seek from Track 41 -> 0
bra .1
jsr XRW.Recalibrate
bcc .1
rts
.4 ldy XRW.UnitIndex (4)
lda XRW.AddrField.V (4)
@ -226,10 +224,10 @@ XRW.TrackSelect lda #2
beq .5 2 bad seeks, already
dec XRW.BadSeek
bne .6
bne .7
.5 lda XRW.SeekTime
bmi .6 seektime already > 128
bmi .7 seektime already > 128
clc
adc #IO.D2.SeekTimeI
@ -237,19 +235,11 @@ XRW.TrackSelect lda #2
sta XRW.D2SeekTime-1,y
.6 lda XRW.ReqTrack
.7 lda XRW.ReqTrack
jsr XRW.Seek
bra .3
.8
* jsr XRW.SEEK2T
* lda #1
* jsr XRW.Wait100usecA
* jsr XRW.SEEKOFF
clc
.8 clc
.9 rts
*--------------------------------------
.LIST ON
@ -325,7 +315,23 @@ XRW.ReadAddr.RTS
rts
.LIST OFF
*--------------------------------------
* A = target track
XRW.Recalibrate dec XRW.RecalibrateCnt
bne .1
sec
rts
.1 ldy XRW.UnitIndex
lda #41
sta XRW.D2Trk-1,y
lda #0
sta XRW.D2VolNum-1,y reset volnum for seeking 41 Qtracks
jsr XRW.Seek
clc
rts
*--------------------------------------
XRW.Seek ldx XRW.UnitIndex
pha save target track
@ -348,9 +354,10 @@ XRW.Seek ldx XRW.UnitIndex
lda #1
bra .4
.1 pha
.1 jsr XRW.SEEKOFF
pha
jsr XRW.SEEKOFF
bcs .2
* Current < Target, must move in
@ -380,13 +387,14 @@ XRW.Seek ldx XRW.UnitIndex
.3 and #6
ora A2L
* bcs .30
* phx
* tax
* pla
bcs .30
*.30
phx
tax
pla
.30
tay
jsr XRW.SEEK2QT
@ -403,47 +411,19 @@ XRW.Seek ldx XRW.UnitIndex
XRW.SEEKOFF
pha
* lda A2L
* ora #IO.D2.RData
* sta .1+1
* sta .2+1
lda A2L
ora #IO.D2.RData
sta .1+1
sta .2+1
lda IO.D2.Ph0Off,x
*.1 lda IO.D2.RData SELF MODIFIED
nop
nop
.1 lda IO.D2.RData SELF MODIFIED
lda IO.D2.Ph0Off,y
*.2 lda IO.D2.RData SELF MODIFIED
.2 lda IO.D2.RData SELF MODIFIED
pla
rts
*--------------------------------------
XRW.CheckMotorOn
ldx A2L
XRW.CheckMotorOnX
ldy #0 init loop counter.
.1 lda IO.D2.RData,x read the shift register.
jsr .9 delay
pha
pla more delay.
cmp IO.D2.RData,x has shift reg changed ?
bne .9 yes, motor is moving.
dey no, dec retry counter
bne .1 and try 256 times.
.9 rts Z if motor OFF
*--------------------------------------
XRW.TestWP ldx A2L
lda IO.D2.ReadProt,x test for write protected
lda IO.D2.ReadMode,x
rol write protect-->carry-->bit 0=1
lda IO.D2.RData,x keep in read mode
rts
*--------------------------------------
* preniblize subroutine (16 sector format)
*
* converts 256 bytes of user data in (buf) into 6 bit nibls in nbuf2.
@ -568,18 +548,10 @@ L596F ldy #$FF index to last byte of data to write.
XRW.SectorIO bit XRW.bWrite
bpl .1
* lda XRW.ReqTrack
* jsr XRW.SEEK2T
* phx
* phy
jsr XRW.PreNibble
* ply
* plx
* jsr XRW.SEEKOFF
.1 stz XRW.RetryCnt
.1 lda #32
sta XRW.RetryCnt
.DO XRWDBG=1
jsr XRW.DEBUG
@ -597,8 +569,8 @@ XRW.SectorIO bit XRW.bWrite
jmp XRW.Read
.3 inc XRW.RetryCnt
bpl .2
.3 dec XRW.RetryCnt
bne .2
sec
@ -612,7 +584,7 @@ XRW.SectorIO bit XRW.bWrite
* on entry: x = slotnum times 16
*--------------------------------------
.LIST ON
.BS $D300-*
.BS $D300-*
XRW.Write bit IO.D2.ReadProt,x (4) PREWRITE MODE
.LIST OFF
@ -968,17 +940,15 @@ XRW.SEEK2QTXY pha
tay
XRW.SEEK2QT
* lda A2L
* ora #IO.D2.RData
* sta .1+1
* sta .2+1
lda A2L
ora #IO.D2.RData
sta .1+1
sta .2+1
lda IO.D2.Ph0On,x
*.1 lda IO.D2.RData SELF MODIFIED
nop
nop
.1 lda IO.D2.RData SELF MODIFIED
lda IO.D2.Ph0On,y
*.2 lda IO.D2.RData SELF MODIFIED
.2 lda IO.D2.RData SELF MODIFIED
rts
*--------------------------------------
XRW.Trk2Qtrk asl x2
@ -992,6 +962,32 @@ XRW.Trk2Qtrk asl x2
.1 adc #$ff SELF MODIFIED
rts
*--------------------------------------
XRW.CheckMotorOn
ldx A2L
XRW.CheckMotorOnX
ldy #0 init loop counter.
.1 lda IO.D2.RData,x read the shift register.
jsr .9 delay
pha
pla more delay.
cmp IO.D2.RData,x has shift reg changed ?
bne .9 yes, motor is moving.
dey no, dec retry counter
bne .1 and try 256 times.
.9 rts Z if motor OFF
*--------------------------------------
XRW.TestWP ldx A2L
lda IO.D2.ReadProt,x test for write protected
lda IO.D2.ReadMode,x
rol write protect-->carry-->bit 0=1
lda IO.D2.RData,x keep in read mode
rts
*--------------------------------------
.LIST ON
XRW.FREE .EQ $D540-*

7
SYS/KERNEL.S.PS.txt
View File

@ -965,11 +965,12 @@ PS.Find.4 lda $ffff,y Self Modified, Append Filename...
PS.Find.5 >LDYAI K.Buf256
jsr PS.STAT.YA
bcs PS.Find.1 Failed...retry next path...
bcs PS.Find.1 Failed...retry next path...
lda K.S.STAT+S.STAT.P.TYPE
cmp #S.FI.T.DIR Dir ?
lda K.S.STAT+S.STAT.MODE+1
cmp /S.STAT.MODE.DIR Dir ?
beq PS.Find.1
jsr PS.Find.98 Discard Expanded hSrch list
clc