mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-26 13:49:18 +00:00
Kernel 0.93+
This commit is contained in:
Rémy GIBERT
parent
48cfcb9253
commit
beb45c5886
@ -567,6 +567,169 @@ DetectZ80 ldx #Z80Code.Size
|
||||
clc
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
DevMgrInit >LDYAI MSG.DEV
|
||||
>SYSCALL2 puts
|
||||
|
||||
lda DEVCNT
|
||||
sta .1+1
|
||||
|
||||
.1 ldx #$ff SELF MODIFIED
|
||||
lda DEVLST,x
|
||||
|
||||
and #$F0
|
||||
|
||||
asl
|
||||
php Save Drive 1/2 in C
|
||||
ror DSSS0000
|
||||
|
||||
lsr
|
||||
lsr
|
||||
lsr
|
||||
|
||||
tax 000DSSS0
|
||||
lsr 0000DSSS
|
||||
and #$7
|
||||
sta FD.BDEV+S.FD.DEV.BUSID
|
||||
ora #$30
|
||||
sta FD.BDEV.NAME+1 SnDy
|
||||
|
||||
lda DEVPTRS,x
|
||||
sta FD.BDEV+S.FD.DEV.BUSPTR
|
||||
|
||||
lda DEVPTRS+1,x
|
||||
sta FD.BDEV+S.FD.DEV.BUSPTR+1
|
||||
|
||||
sta ZPPtr1+1
|
||||
stz ZPPtr1 Cn00
|
||||
|
||||
plp
|
||||
lda #0
|
||||
adc #1 Make DevID 1 or 2
|
||||
sta FD.BDEV+S.FD.DEV.DEVID
|
||||
ora #$30
|
||||
sta FD.BDEV.NAME+3 SxDn
|
||||
|
||||
lda ZPPtr1+1
|
||||
|
||||
cmp #$FF /RAM is always $FF00
|
||||
bne .2
|
||||
|
||||
jsr DevMgrInit.RAM
|
||||
bra .8 keep slot free
|
||||
|
||||
.2 cmp #$D0 Disk II Driver is $D000
|
||||
bne .3
|
||||
|
||||
jsr DevMgrInit.DII
|
||||
lda #A2osX.S.DII
|
||||
bra .7 Go mark slot as USED
|
||||
|
||||
.3 bcs .53 > $D0, Some BLK remapped DRV
|
||||
|
||||
cmp #$C0
|
||||
bcs .4 $C0 .. $CF, in slot ROM
|
||||
|
||||
jsr DevMgrInit.USR Outside ROM/LC space, User loaded BLK dev
|
||||
bra .8 keep slot free
|
||||
|
||||
.4 ldx #SmartPort.SIG-SmartPort.OFS-1
|
||||
|
||||
.5 ldy SmartPort.OFS,x Check if there is a smartport firmware
|
||||
lda (ZPPtr1),y
|
||||
cmp SmartPort.SIG,x
|
||||
bne .8 not a Disk Controller...
|
||||
dex
|
||||
bpl .5
|
||||
|
||||
ldy #7
|
||||
lda (ZPPtr1),y
|
||||
beq .51 $Cn07=00 : SmartPort
|
||||
|
||||
ldx #AWSmartPort.SIG-AWSmartPort.OFS-1
|
||||
|
||||
.50 ldy AWSmartPort.OFS,x Check if there is AWsmartport firmware
|
||||
lda (ZPPtr1),y
|
||||
cmp AWSmartPort.SIG,x
|
||||
bne .6 not on AW
|
||||
dex
|
||||
bpl .50
|
||||
|
||||
.51 lda ZPPtr1+1 get $Cn
|
||||
and #$f get $0n
|
||||
cmp FD.BDEV+S.FD.DEV.BUSID same as SSS ?
|
||||
beq .52
|
||||
|
||||
inc FD.BDEV+S.FD.DEV.DEVID Remapped SP devices....
|
||||
inc FD.BDEV+S.FD.DEV.DEVID Add 2 to DEVID (2 & 3)
|
||||
|
||||
jsr DevMgrInit.SP
|
||||
bra .8 Phantom slot...
|
||||
|
||||
.52 jsr DevMgrInit.SP
|
||||
lda #A2osX.S.SP
|
||||
bra .7
|
||||
|
||||
.53 inc FD.BDEV+S.FD.DEV.DEVID Remapped BLK devices....
|
||||
inc FD.BDEV+S.FD.DEV.DEVID Add 2 to DEVID (2 & 3)
|
||||
|
||||
.6 jsr DevMgrInit.BLK
|
||||
lda #A2osX.S.BLK
|
||||
|
||||
.7 ldx FD.BDEV+S.FD.DEV.BUSID
|
||||
sta A2osX.S,x
|
||||
|
||||
.8 dec .1+1
|
||||
bmi .80
|
||||
jmp .1
|
||||
|
||||
.80 clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
DevMgrInit.RAM ldx #0
|
||||
>LDYAI DRV.RamDrive
|
||||
bra DevMgrInit.AddBDev
|
||||
*--------------------------------------
|
||||
DevMgrInit.DII ldx #2
|
||||
>LDYAI DRV.DiskII
|
||||
bra DevMgrInit.AddBDev
|
||||
*--------------------------------------
|
||||
DevMgrInit.USR ldx #4
|
||||
>LDYAI DRV.BlkDevice
|
||||
bra DevMgrInit.AddBDev
|
||||
*--------------------------------------
|
||||
DevMgrInit.BLK ldy #$ff
|
||||
lda (ZPPtr1),y
|
||||
sta FD.BDEV+S.FD.DEV.BUSPTR
|
||||
|
||||
ldx #6
|
||||
>LDYAI DRV.BlkDevice
|
||||
bra DevMgrInit.AddBDev
|
||||
*--------------------------------------
|
||||
DevMgrInit.SP ldy #$ff
|
||||
lda (ZPPtr1),y
|
||||
clc
|
||||
adc #3 Compute smartport entry point
|
||||
sta FD.BDEV+S.FD.DEV.BUSPTR
|
||||
|
||||
ldx #8
|
||||
>LDYAI DRV.SmartPort
|
||||
*--------------------------------------
|
||||
DevMgrInit.AddBDev
|
||||
>STYA FD.BDEV+S.FD.DEV.DRVPTR
|
||||
|
||||
>PUSHW MSG.BLKDEV.TBL,x
|
||||
>PUSHWI FD.BDEV.NAME
|
||||
>PUSHBI 4
|
||||
>LDYAI MSG.BLKDEV
|
||||
>SYSCALL2 printf
|
||||
|
||||
>PUSHWI FD.BDEV.NAME
|
||||
>LDYAI FD.BDEV
|
||||
>SYSCALL2 MKDev
|
||||
|
||||
DevMgrInit.AddBDev.RTS
|
||||
rts
|
||||
*--------------------------------------
|
||||
* Setup AuxLC $FFFE->Kernel IRQ Handler
|
||||
* if irq not handled, jmp (S.IrqMgrOldFFFE)
|
||||
*--------------------------------------
|
||||
@ -796,169 +959,6 @@ IrqMgrInit.HZ2Tick
|
||||
|
||||
rts
|
||||
*--------------------------------------
|
||||
DevMgrInit >LDYAI MSG.DEV
|
||||
>SYSCALL2 puts
|
||||
|
||||
lda DEVCNT
|
||||
sta .1+1
|
||||
|
||||
.1 ldx #$ff SELF MODIFIED
|
||||
lda DEVLST,x
|
||||
|
||||
and #$F0
|
||||
|
||||
asl
|
||||
php Save Drive 1/2 in C
|
||||
ror DSSS0000
|
||||
|
||||
lsr
|
||||
lsr
|
||||
lsr
|
||||
|
||||
tax 000DSSS0
|
||||
lsr 0000DSSS
|
||||
and #$7
|
||||
sta FD.BDEV+S.FD.DEV.BUSID
|
||||
ora #$30
|
||||
sta FD.BDEV.NAME+1 SnDy
|
||||
|
||||
lda DEVPTRS,x
|
||||
sta FD.BDEV+S.FD.DEV.BUSPTR
|
||||
|
||||
lda DEVPTRS+1,x
|
||||
sta FD.BDEV+S.FD.DEV.BUSPTR+1
|
||||
|
||||
sta ZPPtr1+1
|
||||
stz ZPPtr1 Cn00
|
||||
|
||||
plp
|
||||
lda #0
|
||||
adc #1 Make DevID 1 or 2
|
||||
sta FD.BDEV+S.FD.DEV.DEVID
|
||||
ora #$30
|
||||
sta FD.BDEV.NAME+3 SxDn
|
||||
|
||||
lda ZPPtr1+1
|
||||
|
||||
cmp #$FF /RAM is always $FF00
|
||||
bne .2
|
||||
|
||||
jsr DevMgrInit.RAM
|
||||
bra .8 keep slot free
|
||||
|
||||
.2 cmp #$D0 Disk II Driver is $D000
|
||||
bne .3
|
||||
|
||||
jsr DevMgrInit.DII
|
||||
lda #A2osX.S.DII
|
||||
bra .7 Go mark slot as USED
|
||||
|
||||
.3 bcs .53 > $D0, Some BLK remapped DRV
|
||||
|
||||
cmp #$C0
|
||||
bcs .4 $C0 .. $CF, in slot ROM
|
||||
|
||||
jsr DevMgrInit.USR Outside ROM/LC space, User loaded BLK dev
|
||||
bra .8 keep slot free
|
||||
|
||||
.4 ldx #SmartPort.SIG-SmartPort.OFS-1
|
||||
|
||||
.5 ldy SmartPort.OFS,x Check if there is a smartport firmware
|
||||
lda (ZPPtr1),y
|
||||
cmp SmartPort.SIG,x
|
||||
bne .8 not a Disk Controller...
|
||||
dex
|
||||
bpl .5
|
||||
|
||||
ldy #7
|
||||
lda (ZPPtr1),y
|
||||
beq .51 $Cn07=00 : SmartPort
|
||||
|
||||
ldx #AWSmartPort.SIG-AWSmartPort.OFS-1
|
||||
|
||||
.50 ldy AWSmartPort.OFS,x Check if there is AWsmartport firmware
|
||||
lda (ZPPtr1),y
|
||||
cmp AWSmartPort.SIG,x
|
||||
bne .6 not on AW
|
||||
dex
|
||||
bpl .50
|
||||
|
||||
.51 lda ZPPtr1+1 get $Cn
|
||||
and #$f get $0n
|
||||
cmp FD.BDEV+S.FD.DEV.BUSID same as SSS ?
|
||||
beq .52
|
||||
|
||||
inc FD.BDEV+S.FD.DEV.DEVID Remapped SP devices....
|
||||
inc FD.BDEV+S.FD.DEV.DEVID Add 2 to DEVID (2 & 3)
|
||||
|
||||
jsr DevMgrInit.SP
|
||||
bra .8 Phantom slot...
|
||||
|
||||
.52 jsr DevMgrInit.SP
|
||||
lda #A2osX.S.SP
|
||||
bra .7
|
||||
|
||||
.53 inc FD.BDEV+S.FD.DEV.DEVID Remapped BLK devices....
|
||||
inc FD.BDEV+S.FD.DEV.DEVID Add 2 to DEVID (2 & 3)
|
||||
|
||||
.6 jsr DevMgrInit.BLK
|
||||
lda #A2osX.S.BLK
|
||||
|
||||
.7 ldx FD.BDEV+S.FD.DEV.BUSID
|
||||
sta A2osX.S,x
|
||||
|
||||
.8 dec .1+1
|
||||
bmi .80
|
||||
jmp .1
|
||||
|
||||
.80 clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
DevMgrInit.RAM ldx #0
|
||||
>LDYAI DRV.RamDrive
|
||||
bra DevMgrInit.AddBDev
|
||||
*--------------------------------------
|
||||
DevMgrInit.DII ldx #2
|
||||
>LDYAI DRV.DiskII
|
||||
bra DevMgrInit.AddBDev
|
||||
*--------------------------------------
|
||||
DevMgrInit.USR ldx #4
|
||||
>LDYAI DRV.BlkDevice
|
||||
bra DevMgrInit.AddBDev
|
||||
*--------------------------------------
|
||||
DevMgrInit.BLK ldy #$ff
|
||||
lda (ZPPtr1),y
|
||||
sta FD.BDEV+S.FD.DEV.BUSPTR
|
||||
|
||||
ldx #6
|
||||
>LDYAI DRV.BlkDevice
|
||||
bra DevMgrInit.AddBDev
|
||||
*--------------------------------------
|
||||
DevMgrInit.SP ldy #$ff
|
||||
lda (ZPPtr1),y
|
||||
clc
|
||||
adc #3 Compute smartport entry point
|
||||
sta FD.BDEV+S.FD.DEV.BUSPTR
|
||||
|
||||
ldx #8
|
||||
>LDYAI DRV.SmartPort
|
||||
*--------------------------------------
|
||||
DevMgrInit.AddBDev
|
||||
>STYA FD.BDEV+S.FD.DEV.DRVPTR
|
||||
|
||||
>PUSHW MSG.BLKDEV.TBL,x
|
||||
>PUSHWI FD.BDEV.NAME
|
||||
>PUSHBI 4
|
||||
>LDYAI MSG.BLKDEV
|
||||
>SYSCALL2 printf
|
||||
|
||||
>PUSHWI FD.BDEV.NAME
|
||||
>LDYAI FD.BDEV
|
||||
>SYSCALL2 MKDev
|
||||
|
||||
DevMgrInit.AddBDev.RTS
|
||||
rts
|
||||
*--------------------------------------
|
||||
EvtMgrInit >LDYAI MSG.EVT
|
||||
>SYSCALL2 puts
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user