mirror of
https://github.com/A2osX/A2osX.git
synced 2024-10-09 14:55:05 +00:00
Kernel 0.93
This commit is contained in:
parent
ac71cf40eb
commit
f42eccc160
Binary file not shown.
@ -15,6 +15,7 @@ AUTO 4,1
|
|||||||
.OR ZPBIN
|
.OR ZPBIN
|
||||||
ZS.START
|
ZS.START
|
||||||
ZPFDPtr .BS 2
|
ZPFDPtr .BS 2
|
||||||
|
Index .BS 1
|
||||||
ZS.END
|
ZS.END
|
||||||
.ED
|
.ED
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
@ -28,7 +29,7 @@ CS.START cld
|
|||||||
.DA #0
|
.DA #0
|
||||||
.DA CS.END-CS.START Code Size (without Constants)
|
.DA CS.END-CS.START Code Size (without Constants)
|
||||||
.DA DS.END-DS.START Data SegmentSize
|
.DA DS.END-DS.START Data SegmentSize
|
||||||
.DA #16 Stack Size
|
.DA #64 Stack Size
|
||||||
.DA #ZS.END-ZS.START Zero Page Size
|
.DA #ZS.END-ZS.START Zero Page Size
|
||||||
.DA 0
|
.DA 0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
@ -59,15 +60,9 @@ L.FD.T .DA FD.T.REG
|
|||||||
CS.INIT clc
|
CS.INIT clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN lda #1
|
CS.RUN jsr DumpDev
|
||||||
>STA.G Table.Index
|
|
||||||
|
|
||||||
jsr DumpDev
|
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
lda #2
|
|
||||||
>STA.G Table.Index
|
|
||||||
|
|
||||||
jsr DumpNod
|
jsr DumpNod
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
@ -78,10 +73,10 @@ CS.RUN lda #1
|
|||||||
DumpDev >LDYA L.MSG0
|
DumpDev >LDYA L.MSG0
|
||||||
>SYSCALL puts
|
>SYSCALL puts
|
||||||
|
|
||||||
>LDA.G Table.Index
|
ldx #1
|
||||||
|
stx Index
|
||||||
|
|
||||||
.1 tax
|
.1 lda Dev.Table-1,x
|
||||||
lda Dev.Table-1,x
|
|
||||||
sta ZPFDPtr
|
sta ZPFDPtr
|
||||||
lda Dev.Table,x
|
lda Dev.Table,x
|
||||||
sta ZPFDPtr+1
|
sta ZPFDPtr+1
|
||||||
@ -100,7 +95,7 @@ DumpDev >LDYA L.MSG0
|
|||||||
bpl .2
|
bpl .2
|
||||||
|
|
||||||
>PUSHEA.G DEV.DIB
|
>PUSHEA.G DEV.DIB
|
||||||
>LDA.G Table.Index
|
lda Index
|
||||||
>SYSCALL GetDevStatus
|
>SYSCALL GetDevStatus
|
||||||
bcc .6
|
bcc .6
|
||||||
|
|
||||||
@ -108,15 +103,17 @@ DumpDev >LDYA L.MSG0
|
|||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>LDYA L.MSG2.ERR
|
>LDYA L.MSG2.ERR
|
||||||
>SYSCALL printf
|
>SYSCALL printf
|
||||||
|
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
bra .7
|
bra .7
|
||||||
|
|
||||||
.6 jsr DumpDevDIB
|
.6 jsr DumpDevDIB
|
||||||
|
|
||||||
.7 >INC.G Table.Index
|
.7 inc Index
|
||||||
>INC.G Table.Index
|
inc index
|
||||||
cmp #K.DEV.MAX*2+1
|
|
||||||
|
ldx Index
|
||||||
|
cpx #K.DEV.MAX*2+1
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
@ -139,7 +136,7 @@ DumpDevFD ldy #S.FD.DEV.DRVPTR+1
|
|||||||
|
|
||||||
>PUSHB (ZPFDPtr) S.FD.T
|
>PUSHB (ZPFDPtr) S.FD.T
|
||||||
|
|
||||||
>PUSHB.G Table.Index
|
>PUSHB Index
|
||||||
|
|
||||||
>PUSHBI 6
|
>PUSHBI 6
|
||||||
>LDYA L.MSG1
|
>LDYA L.MSG1
|
||||||
@ -200,17 +197,15 @@ DumpDevDIB >PUSHB.G DEV.DIB+S.DIB.VERSION+1
|
|||||||
DumpNod >LDYA L.MSG3
|
DumpNod >LDYA L.MSG3
|
||||||
>SYSCALL puts
|
>SYSCALL puts
|
||||||
|
|
||||||
>LDA.G Table.Index
|
ldx #2
|
||||||
|
stx Index
|
||||||
|
|
||||||
.1 tax
|
.1 lda Nod.Table.hPath-2,x
|
||||||
|
|
||||||
lda Nod.Table.hPath-2,x
|
|
||||||
beq .7
|
beq .7
|
||||||
>SYSCALL GetMemPtr
|
>SYSCALL GetMemPtr
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
|
|
||||||
>LDA.G Table.Index
|
ldx Index
|
||||||
tax
|
|
||||||
lda Nod.Table.hFD-2,x
|
lda Nod.Table.hFD-2,x
|
||||||
>SYSCALL GetMemPtr
|
>SYSCALL GetMemPtr
|
||||||
>STYA ZPFDPtr
|
>STYA ZPFDPtr
|
||||||
@ -219,8 +214,7 @@ DumpNod >LDYA L.MSG3
|
|||||||
tax
|
tax
|
||||||
>PUSHW L.FD.T,x
|
>PUSHW L.FD.T,x
|
||||||
|
|
||||||
>LDA.G Table.Index
|
ldx Index
|
||||||
tax
|
|
||||||
lda Nod.Table.hFD-2,x
|
lda Nod.Table.hFD-2,x
|
||||||
>PUSHA
|
>PUSHA
|
||||||
txa
|
txa
|
||||||
@ -230,8 +224,10 @@ DumpNod >LDYA L.MSG3
|
|||||||
>LDYA L.MSG4
|
>LDYA L.MSG4
|
||||||
>SYSCALL printf
|
>SYSCALL printf
|
||||||
|
|
||||||
.7 >INC.G Table.Index
|
.7 inc index
|
||||||
cmp #K.NOD.MAX+2
|
|
||||||
|
ldx index
|
||||||
|
cpx #K.NOD.MAX+2
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
clc
|
clc
|
||||||
@ -273,7 +269,6 @@ BLANK.DIB .DA #0 #S.DIB.S.BLOCK+S.DIB.S.WRITE+S.DIB.S.READ
|
|||||||
.DUMMY
|
.DUMMY
|
||||||
.OR 0
|
.OR 0
|
||||||
DS.START
|
DS.START
|
||||||
Table.Index .BS 1
|
|
||||||
DEV.DIB .BS S.DIB
|
DEV.DIB .BS S.DIB
|
||||||
DEV.SFLAGS .BS 9
|
DEV.SFLAGS .BS 9
|
||||||
DS.END
|
DS.END
|
||||||
|
@ -851,9 +851,11 @@ DevMgrInit >LDYAI MSG.DEV
|
|||||||
jsr DevMgrInit.RAM
|
jsr DevMgrInit.RAM
|
||||||
bra .8
|
bra .8
|
||||||
|
|
||||||
.3 and #$F0
|
.3 cmp #$C8
|
||||||
|
bcs .6 Some Prodos patched DRV
|
||||||
|
|
||||||
cmp #$C0
|
cmp #$C0
|
||||||
beq .4
|
bcs .4
|
||||||
|
|
||||||
jsr DevMgrInit.USR Outside ROM space, User loaded BLK dev
|
jsr DevMgrInit.USR Outside ROM space, User loaded BLK dev
|
||||||
bra .8
|
bra .8
|
||||||
@ -888,6 +890,9 @@ DevMgrInit >LDYAI MSG.DEV
|
|||||||
inc FD.BDEV+S.FD.DEV.DEVID Remapped SP devices....
|
inc FD.BDEV+S.FD.DEV.DEVID Remapped SP devices....
|
||||||
inc FD.BDEV+S.FD.DEV.DEVID Add 2 to DEVID (2 & 3)
|
inc FD.BDEV+S.FD.DEV.DEVID Add 2 to DEVID (2 & 3)
|
||||||
|
|
||||||
|
jsr DevMgrInit.SP
|
||||||
|
bra .8 Phantom slot...
|
||||||
|
|
||||||
.52 jsr DevMgrInit.SP
|
.52 jsr DevMgrInit.SP
|
||||||
lda #A2osX.S.SP
|
lda #A2osX.S.SP
|
||||||
bra .7
|
bra .7
|
||||||
@ -943,7 +948,7 @@ DevMgrInit.SP ldy #$ff
|
|||||||
.1 jsr $ffff Self Modified
|
.1 jsr $ffff Self Modified
|
||||||
.DA #0 Status
|
.DA #0 Status
|
||||||
.DA SP.IOCTL.STATUS
|
.DA SP.IOCTL.STATUS
|
||||||
bcs DevMgrInit.AddBDev.RTS
|
* bcs DevMgrInit.AddBDev.RTS
|
||||||
|
|
||||||
ldx #8
|
ldx #8
|
||||||
>LDYAI DRV.SmartPort
|
>LDYAI DRV.SmartPort
|
||||||
@ -956,6 +961,7 @@ DevMgrInit.AddBDev
|
|||||||
sta FD.BDEV.NAME+1 SnDy
|
sta FD.BDEV.NAME+1 SnDy
|
||||||
|
|
||||||
lda FD.BDEV+S.FD.DEV.DEVID
|
lda FD.BDEV+S.FD.DEV.DEVID
|
||||||
|
and #3 Make sure 1 or 2
|
||||||
ora #$30
|
ora #$30
|
||||||
sta FD.BDEV.NAME+3 SxDn
|
sta FD.BDEV.NAME+3 SxDn
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user