mirror of https://github.com/A2osX/A2osX.git
Improved DevMgr (BDEV)
This commit is contained in:
burniouf
parent
9aea9939ee
commit
b7c718036b
Binary file not shown.
Binary file not shown.
|
|
@ -424,7 +424,7 @@ CS.RUN.LL >PUSHW L.MSG.LL
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>LDA.G DIB+S.DIB.T
|
>LDA.G DIB+S.DIB.T
|
||||||
cmp #S.DIB.T.DISKII
|
cmp #S.DIB.T.D2
|
||||||
beq CS.RUN.LL.DISKII
|
beq CS.RUN.LL.DISKII
|
||||||
|
|
||||||
>PUSHB hDevID
|
>PUSHB hDevID
|
||||||
|
|
|
||||||
|
|
@ -358,9 +358,9 @@ CS.QUIT lda hFileBuf
|
||||||
CS.END
|
CS.END
|
||||||
SLOTS .DA #0
|
SLOTS .DA #0
|
||||||
.DA #A2osX.S.Z80
|
.DA #A2osX.S.Z80
|
||||||
.DA #A2osX.S.VXDRIVE
|
.DA #A2osX.S.VXD
|
||||||
.DA #A2osX.S.ATCARD
|
.DA #A2osX.S.ATK
|
||||||
.DA #A2osX.S.DII
|
.DA #A2osX.S.D2
|
||||||
.DA #A2osX.S.BLK
|
.DA #A2osX.S.BLK
|
||||||
.DA #A2osX.S.SP
|
.DA #A2osX.S.SP
|
||||||
.DA #A2osX.S.COM
|
.DA #A2osX.S.COM
|
||||||
|
|
|
||||||
|
|
@ -280,7 +280,7 @@ FD.T.PIPE .AZ "PIPE"
|
||||||
BLANK.DIB .DA #0 #S.DIB.S.BLOCK+S.DIB.S.WRITE+S.DIB.S.READ
|
BLANK.DIB .DA #0 #S.DIB.S.BLOCK+S.DIB.S.WRITE+S.DIB.S.READ
|
||||||
.BS 3
|
.BS 3
|
||||||
.PS "(No IDS String!)"
|
.PS "(No IDS String!)"
|
||||||
.DA #0 #S.DIB.T.PRODOS
|
.DA #0
|
||||||
.DA #0
|
.DA #0
|
||||||
.DA 0 K.VER
|
.DA 0 K.VER
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
|
||||||
|
|
@ -70,9 +70,9 @@ A2osX.F.CHROOT .EQ %10000000 ChRooting to /RAMx
|
||||||
A2osX.F.PMODE .EQ %01000000 Pre-emptive Mode
|
A2osX.F.PMODE .EQ %01000000 Pre-emptive Mode
|
||||||
A2osX.S .EQ $BEF8 $BEF9->$BEFF, 7 slots
|
A2osX.S .EQ $BEF8 $BEF9->$BEFF, 7 slots
|
||||||
A2osX.S.Z80 .EQ $80
|
A2osX.S.Z80 .EQ $80
|
||||||
A2osX.S.VXDRIVE .EQ $81
|
A2osX.S.VXD .EQ $81
|
||||||
A2osX.S.ATCARD .EQ $82
|
A2osX.S.ATK .EQ $82
|
||||||
A2osX.S.DII .EQ $C0
|
A2osX.S.D2 .EQ $C0
|
||||||
A2osX.S.BLK .EQ $C1
|
A2osX.S.BLK .EQ $C1
|
||||||
A2osX.S.SP .EQ $C2
|
A2osX.S.SP .EQ $C2
|
||||||
A2osX.S.COM .EQ $E0
|
A2osX.S.COM .EQ $E0
|
||||||
|
|
@ -436,8 +436,8 @@ S.DIB.T.5.25 .EQ $0A 5-1/4" disk
|
||||||
*S.DIB.T.PRINTER .EQ $0D Printer
|
*S.DIB.T.PRINTER .EQ $0D Printer
|
||||||
*S.DIB.T.CLOCK .EQ $0E Clock
|
*S.DIB.T.CLOCK .EQ $0E Clock
|
||||||
*S.DIB.T.MODEM .EQ $0F Modem
|
*S.DIB.T.MODEM .EQ $0F Modem
|
||||||
S.DIB.T.DISKII .EQ $10
|
S.DIB.T.D2 .EQ $10
|
||||||
S.DIB.T.PRODOS .EQ $11
|
S.DIB.T.BLK .EQ $11
|
||||||
S.DIB.T.NIC .EQ $12 Network Interface Card
|
S.DIB.T.NIC .EQ $12 Network Interface Card
|
||||||
S.DIB.T.XY .EQ $13 X,Y Pointing Device
|
S.DIB.T.XY .EQ $13 X,Y Pointing Device
|
||||||
S.DIB.T.CHAR .EQ $14
|
S.DIB.T.CHAR .EQ $14
|
||||||
|
|
@ -486,8 +486,10 @@ S.FD.DEV.BUSPTR .EQ 4 word
|
||||||
S.FD.DEV.DRVPTR .EQ 6 word
|
S.FD.DEV.DRVPTR .EQ 6 word
|
||||||
S.FD.DEV.DCBPTR .EQ 8 word
|
S.FD.DEV.DCBPTR .EQ 8 word
|
||||||
S.FD.DEV.BUFPTR .EQ 10 word
|
S.FD.DEV.BUFPTR .EQ 10 word
|
||||||
|
S.FD.DEV.TYPE .EQ 12 Byte
|
||||||
|
S.FD.DEV.SIZE .EQ 13 3 Bytes
|
||||||
*
|
*
|
||||||
S.FD.DEV .EQ 12
|
S.FD.DEV .EQ 16
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* S.FD.LNK
|
* S.FD.LNK
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
|
||||||
|
|
@ -1,135 +1,106 @@
|
||||||
NEW
|
NEW
|
||||||
AUTO 3,1
|
AUTO 3,1
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* DRV.DiskII
|
* DRV.Disk][
|
||||||
* X = IOCTL
|
* X = IOCTL
|
||||||
* Y,A = PTR to S.IOCTL
|
* Y,A = PTR to S.IOCTL
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DRV.DiskII cld
|
DRV.D2 cpx #IOCTL.FORMAT
|
||||||
cpx #IOCTL.FORMAT
|
.HS 2C BIT ABS
|
||||||
bcs DRV.BadCall
|
DRV.BLK cpx #IOCTL.CONTROL
|
||||||
|
|
||||||
>STYA pIOCTL
|
|
||||||
jmp (.1,x)
|
|
||||||
|
|
||||||
.1 .DA DRV.DiskII.S
|
|
||||||
.DA DRV.BLK READ
|
|
||||||
.DA DRV.BLK WRITE
|
|
||||||
*--------------------------------------
|
|
||||||
DRV.DiskII.S >LDYAI DRV.DiskII.DIB
|
|
||||||
jmp DRV.STATUS.YA
|
|
||||||
*--------------------------------------
|
|
||||||
DRV.DiskII.DIB .DA #S.DIB.S.BLOCK+S.DIB.S.WRITE+S.DIB.S.READ
|
|
||||||
.DA 280
|
|
||||||
.DA #0
|
|
||||||
.PS "Disk ][ 5.25"
|
|
||||||
.BS 4
|
|
||||||
.DA #S.DIB.T.DISKII
|
|
||||||
.DA #0
|
|
||||||
.DA K.VER
|
|
||||||
*--------------------------------------
|
|
||||||
* DRV.RAM
|
|
||||||
* X = IOCTL
|
|
||||||
* Y,A = PTR to S.IOCTL
|
|
||||||
*--------------------------------------
|
|
||||||
DRV.RAM cld
|
|
||||||
cpx #IOCTL.CONTROL
|
|
||||||
bcs DRV.BadCall
|
|
||||||
|
|
||||||
>STYA pIOCTL
|
|
||||||
jmp (.1,x)
|
|
||||||
|
|
||||||
.1 .DA DRV.RAM.S
|
|
||||||
.DA DRV.BLK READ
|
|
||||||
.DA DRV.BLK WRITE
|
|
||||||
.DA DRV.BLK FORMAT
|
|
||||||
|
|
||||||
DRV.BadCall jmp A2osX.BadCall
|
|
||||||
*--------------------------------------
|
|
||||||
DRV.RAM.S jsr DRV.Blk
|
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
stx DRV.RAM.DIB+S.DIB.SIZE
|
|
||||||
sty DRV.RAM.DIB+S.DIB.SIZE+1
|
|
||||||
>LDYAI DRV.RAM.DIB
|
|
||||||
jmp DRV.STATUS.YA
|
|
||||||
|
|
||||||
.9 rts
|
|
||||||
*--------------------------------------
|
|
||||||
DRV.RAM.DIB .DA #S.DIB.S.BLOCK+S.DIB.S.WRITE+S.DIB.S.READ
|
|
||||||
.BS 3
|
|
||||||
.PS "ProDOS /RAM Disk"
|
|
||||||
.DA #S.DIB.T.RAM
|
|
||||||
.DA #0
|
|
||||||
.DA K.VER
|
|
||||||
*--------------------------------------
|
|
||||||
* DRV.BlkDev
|
|
||||||
* X = IOCTL
|
|
||||||
* Y,A = PTR to S.IOCTL
|
|
||||||
*--------------------------------------
|
|
||||||
DRV.BlkDev cld
|
|
||||||
cpx #IOCTL.CONTROL
|
|
||||||
bcs DRV.BadCall
|
|
||||||
|
|
||||||
>STYA pIOCTL
|
>STYA pIOCTL
|
||||||
jmp (.1,x)
|
jmp (.1,x)
|
||||||
|
|
||||||
.1 .DA DRV.BlkDev.S
|
.1 .DA DRV.BLK.S
|
||||||
.DA DRV.BLK READ
|
.DA DRV.GBLK READ
|
||||||
.DA DRV.BLK WRITE
|
.DA DRV.GBLK WRITE
|
||||||
.DA DRV.BLK FORMAT
|
.DA DRV.GBLK FORMAT
|
||||||
|
|
||||||
|
.9 lda #MLI.E.BADCALL
|
||||||
|
* sec
|
||||||
|
DRV.RTS rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DRV.RSP cld
|
DRV.BLK.S ldy #S.FD.DEV.SIZE
|
||||||
cpx #IOCTL.CONTROL
|
lda (pFD),y
|
||||||
bcs DRV.BadCall
|
tax
|
||||||
|
|
||||||
|
iny
|
||||||
|
lda (pFD),y
|
||||||
|
tay
|
||||||
|
bne .8
|
||||||
|
|
||||||
|
txa
|
||||||
|
bne .8
|
||||||
|
|
||||||
>STYA pIOCTL
|
* ldx #IOCTL.STATUS
|
||||||
jmp (.1,x)
|
|
||||||
|
|
||||||
.1 .DA DRV.RSP.S
|
jsr DRV.GBLK
|
||||||
.DA DRV.BLK READ
|
bcs DRV.RTS
|
||||||
.DA DRV.BLK WRITE
|
|
||||||
.DA DRV.BLK FORMAT
|
|
||||||
*--------------------------------------
|
|
||||||
DRV.BlkDev.S jsr DRV.Blk
|
|
||||||
bcs .9
|
|
||||||
|
|
||||||
stx DRV.BlkDev.DIB+S.DIB.SIZE
|
.8 stx DRV.BLK.DIB+S.DIB.SIZE
|
||||||
sty DRV.BlkDev.DIB+S.DIB.SIZE+1
|
sty DRV.BLK.DIB+S.DIB.SIZE+1
|
||||||
|
|
||||||
>LDYAI DRV.BlkDev.DIB
|
ldy #S.FD.DEV.TYPE
|
||||||
|
lda (pFD),y
|
||||||
|
tay
|
||||||
|
|
||||||
|
lda DRV.IDS,y
|
||||||
|
tax
|
||||||
|
lda DRV.IDS+1,y
|
||||||
|
sta DRV.BLK.DIB+S.DIB.T
|
||||||
|
|
||||||
|
ldy #0
|
||||||
|
|
||||||
|
.1 lda DRV.D2.IDS,x
|
||||||
|
beq .2
|
||||||
|
|
||||||
|
sta DRV.BLK.DIB+S.DIB.IDS+1,y
|
||||||
|
inx
|
||||||
|
iny
|
||||||
|
bra .1
|
||||||
|
|
||||||
|
.2 sty DRV.BLK.DIB+S.DIB.IDS
|
||||||
|
|
||||||
|
lda #C.SPACE
|
||||||
|
|
||||||
|
.3 cpy #16
|
||||||
|
beq .4
|
||||||
|
|
||||||
|
sta DRV.BLK.DIB+S.DIB.IDS+1,y
|
||||||
|
iny
|
||||||
|
bra .2
|
||||||
|
|
||||||
|
.4 >LDYAI DRV.BLK.DIB
|
||||||
jmp DRV.STATUS.YA
|
jmp DRV.STATUS.YA
|
||||||
.9 rts
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DRV.BlkDev.DIB .DA #S.DIB.S.BLOCK+S.DIB.S.WRITE+S.DIB.S.READ
|
DRV.BLK.DIB .DA #S.DIB.S.BLOCK+S.DIB.S.WRITE+S.DIB.S.READ
|
||||||
.BS 3
|
.BS 3
|
||||||
.PS "ProDOS Block Dev"
|
.BS 17 IDString
|
||||||
.DA #S.DIB.T.PRODOS
|
.DA #S.DIB.T.BLK
|
||||||
.DA #0
|
.DA #0
|
||||||
.DA K.VER
|
.DA K.VER
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DRV.RSP.S jsr DRV.Blk
|
DRV.IDS .DA #0,#S.DIB.T.D2
|
||||||
bcs .9
|
.DA #DRV.RAM.IDS-DRV.D2.IDS,#S.DIB.T.BLK
|
||||||
|
.DA #DRV.USER.IDS-DRV.D2.IDS,#S.DIB.T.BLK
|
||||||
stx DRV.RSP.DIB+S.DIB.SIZE
|
.DA #DRV.BLK.IDS-DRV.D2.IDS,#S.DIB.T.BLK
|
||||||
sty DRV.RSP.DIB+S.DIB.SIZE+1
|
.DA #DRV.RBLK.IDS-DRV.D2.IDS,#S.DIB.T.BLK
|
||||||
|
.DA #0,#0 Smartport
|
||||||
>LDYAI DRV.RSP.DIB
|
.DA #DRV.RSP.IDS-DRV.D2.IDS,#S.DIB.T.BLK
|
||||||
jmp DRV.STATUS.YA
|
|
||||||
|
|
||||||
.9 rts
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DRV.RSP.DIB .DA #S.DIB.S.BLOCK+S.DIB.S.WRITE+S.DIB.S.READ
|
DRV.D2.IDS .CZ "Disk ][ 5.25"
|
||||||
.BS 3
|
DRV.RAM.IDS .CZ "ProDOS /RAM Disk"
|
||||||
.PS "Remapped SP Dev "
|
DRV.USER.IDS .CZ "User Block Dev"
|
||||||
.DA #S.DIB.T.PRODOS
|
DRV.BLK.IDS .CZ "ProDOS Block Dev"
|
||||||
.DA #0
|
DRV.RBLK.IDS .CZ "Remapped BLK Dev"
|
||||||
.DA K.VER
|
DRV.RSP.IDS .CZ "Remapped SP Dev"
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* IOCTL to BLK protocol converter
|
* IOCTL to BLK protocol converter
|
||||||
* in : pIOCTL
|
* in : pIOCTL
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DRV.BLK txa
|
DRV.GBLK txa
|
||||||
lsr
|
lsr
|
||||||
sta DRV.BLK.P CMD
|
sta DRV.BLK.P CMD
|
||||||
|
|
||||||
|
|
@ -183,8 +154,7 @@ DRV.BLK.P .BS 6
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* Smartport Driver
|
* Smartport Driver
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DRV.SP cld
|
DRV.SP >STYA pIOCTL
|
||||||
>STYA pIOCTL
|
|
||||||
>STYA .3 smartport Params
|
>STYA .3 smartport Params
|
||||||
|
|
||||||
txa
|
txa
|
||||||
|
|
@ -221,31 +191,22 @@ DRV.SP.Cnt .HS 03030301030101010404
|
||||||
* - OPEN,WRITE,CLOSE always succeed.
|
* - OPEN,WRITE,CLOSE always succeed.
|
||||||
* - READ returns EOF.
|
* - READ returns EOF.
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DRV.NULL cld
|
DRV.NULL >STYA pIOCTL
|
||||||
>STYA pIOCTL
|
|
||||||
txa
|
txa
|
||||||
beq DRV.NULL.S
|
beq DRV.NULL.S
|
||||||
jmp (.1-12,x)
|
|
||||||
*--------------------------------------
|
cmp #IOCTL.READ
|
||||||
.1
|
beq DRV.NULL.R
|
||||||
* .DA DRV.NULL.STATUS
|
|
||||||
* .DA A2osX.BADCALL READBLOCK
|
cmp #IOCTL.OPEN
|
||||||
* .DA A2osX.BADCALL WRITEBLOCK
|
bcc .9
|
||||||
* .DA A2osX.BADCALL FORMAT
|
|
||||||
* .DA A2osX.BADCALL CONTROL
|
cmp #IOCTL.IRQ
|
||||||
* .DA A2osX.BADCALL INIT
|
bcs .9
|
||||||
.DA DRV.CLCRTS OPEN
|
|
||||||
.DA DRV.CLCRTS CLOSE
|
rts
|
||||||
.DA DRV.NULL.R
|
|
||||||
.DA DRV.CLCRTS WRITE
|
.9 jmp A2osX.BADCALL
|
||||||
*--------------------------------------
|
|
||||||
DRV.NULL.DIB .DA #S.DIB.S.WRITE+S.DIB.S.READ+S.DIB.S.OPENED
|
|
||||||
.DA #0,#0,#0
|
|
||||||
.PS "NULL Device"
|
|
||||||
.BS 5
|
|
||||||
.DA #S.DIB.T.CHAR
|
|
||||||
.DA #0
|
|
||||||
.DA K.VER
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DRV.NULL.S >LDYAI DRV.NULL.DIB
|
DRV.NULL.S >LDYAI DRV.NULL.DIB
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
@ -297,10 +258,18 @@ DRV.NULL.R ldx #C.EOF
|
||||||
lda (pIOCTL),y
|
lda (pIOCTL),y
|
||||||
sta .1+2
|
sta .1+2
|
||||||
.1 stx $ffff SELF MODIFIED
|
.1 stx $ffff SELF MODIFIED
|
||||||
*--------------------------------------
|
|
||||||
DRV.CLCRTS clc
|
clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
DRV.NULL.DIB .DA #S.DIB.S.WRITE+S.DIB.S.READ+S.DIB.S.OPENED
|
||||||
|
.DA #0,#0,#0
|
||||||
|
.PS "NULL Device"
|
||||||
|
.BS 5
|
||||||
|
.DA #S.DIB.T.CHAR
|
||||||
|
.DA #0
|
||||||
|
.DA K.VER
|
||||||
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
SAVE usr/src/sys/kernel.s.drv
|
SAVE usr/src/sys/kernel.s.drv
|
||||||
LOAD usr/src/sys/kernel.s
|
LOAD usr/src/sys/kernel.s
|
||||||
|
|
|
||||||
|
|
@ -474,7 +474,7 @@ CPU.Init >PUSHWI MSG.CPU
|
||||||
cmp #A2osX.HWType.IIc
|
cmp #A2osX.HWType.IIc
|
||||||
beq CPU.Init2c
|
beq CPU.Init2c
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* VBL = 20.000us 50hz, 16.666 60hz
|
* VBL = 20.000us 50hz, 16.666 60hz
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
ldx A2osX.HZ
|
ldx A2osX.HZ
|
||||||
|
|
||||||
|
|
@ -502,7 +502,7 @@ CPU.Init >PUSHWI MSG.CPU
|
||||||
|
|
||||||
eor VBL
|
eor VBL
|
||||||
bpl .3
|
bpl .3
|
||||||
|
|
||||||
lda VBL
|
lda VBL
|
||||||
bmi .3
|
bmi .3
|
||||||
|
|
||||||
|
|
@ -524,7 +524,7 @@ CPU.Init2c lda RDIOUDIS
|
||||||
bit IO.IIC.CLRVBLIRQ clear //c IRQ
|
bit IO.IIC.CLRVBLIRQ clear //c IRQ
|
||||||
|
|
||||||
.3 ldx A2osX.HZ
|
.3 ldx A2osX.HZ
|
||||||
|
|
||||||
.4 pha (3)
|
.4 pha (3)
|
||||||
pla (4)
|
pla (4)
|
||||||
pha (3)
|
pha (3)
|
||||||
|
|
@ -706,14 +706,21 @@ DevMgrInit >LDYAI MSG.DEV
|
||||||
cmp #$FF /RAM is always $FF00
|
cmp #$FF /RAM is always $FF00
|
||||||
bne .2
|
bne .2
|
||||||
|
|
||||||
jsr DevMgr.RAM
|
ldx #2
|
||||||
|
jsr DevMgr.AddBDev
|
||||||
bra .8 keep slot free
|
bra .8 keep slot free
|
||||||
|
|
||||||
.2 cmp #$D0 Disk II Driver is $D000
|
.2 cmp #$D0 Disk II Driver is $D000
|
||||||
bne .3
|
bne .3
|
||||||
|
|
||||||
jsr DevMgr.DII
|
lda #280
|
||||||
lda #A2osX.S.DII
|
sta FD.BDEV+S.FD.DEV.SIZE
|
||||||
|
lda /280
|
||||||
|
sta FD.BDEV+S.FD.DEV.SIZE+1
|
||||||
|
|
||||||
|
ldx #0
|
||||||
|
jsr DevMgr.AddBDev
|
||||||
|
lda #A2osX.S.D2
|
||||||
bra .7 Go mark slot as USED
|
bra .7 Go mark slot as USED
|
||||||
|
|
||||||
.3 bcs .53 > $D0, Some SP remapped DRV
|
.3 bcs .53 > $D0, Some SP remapped DRV
|
||||||
|
|
@ -721,14 +728,15 @@ DevMgrInit >LDYAI MSG.DEV
|
||||||
cmp #$C0
|
cmp #$C0
|
||||||
bcs .4 $C0 .. $CF, in slot ROM
|
bcs .4 $C0 .. $CF, in slot ROM
|
||||||
|
|
||||||
jsr DevMgr.USR Outside ROM/LC space, User loaded BLK dev
|
ldx #4
|
||||||
|
jsr DevMgr.AddBDev Outside ROM/LC space, User loaded BLK dev
|
||||||
bra .8 keep slot free
|
bra .8 keep slot free
|
||||||
|
|
||||||
.4 ldx #SmartPort.SIG-SmartPort.OFS-1
|
.4 ldx #BDEV.SIG-BDEV.OFS-1
|
||||||
|
|
||||||
.5 ldy SmartPort.OFS,x Check if there is a smartport firmware
|
.5 ldy BDEV.OFS,x Check if there is a smartport firmware
|
||||||
lda (ZPPtr1),y
|
lda (ZPPtr1),y
|
||||||
cmp SmartPort.SIG,x
|
cmp BDEV.SIG,x
|
||||||
bne .8 not a Disk Controller...
|
bne .8 not a Disk Controller...
|
||||||
|
|
||||||
dex
|
dex
|
||||||
|
|
@ -738,14 +746,39 @@ DevMgrInit >LDYAI MSG.DEV
|
||||||
lda (ZPPtr1),y
|
lda (ZPPtr1),y
|
||||||
bne .6 $Cn07=00 : SmartPort
|
bne .6 $Cn07=00 : SmartPort
|
||||||
|
|
||||||
jsr DevMgr.SP
|
ldy #$ff
|
||||||
|
lda (ZPPtr1),y
|
||||||
|
clc
|
||||||
|
adc #3 Compute smartport entry point
|
||||||
|
sta FD.BDEV+S.FD.DEV.BUSPTR
|
||||||
|
|
||||||
|
ldx #10
|
||||||
|
jsr DevMgr.AddBDev
|
||||||
lda #A2osX.S.SP
|
lda #A2osX.S.SP
|
||||||
bra .7
|
bra .7
|
||||||
|
|
||||||
.53 jsr DevMgr.RSP Remapped SP devices....
|
.53 ldx #12
|
||||||
|
jsr DevMgr.AddBDev Remapped SP devices....
|
||||||
bra .8 don't mark slot as busy
|
bra .8 don't mark slot as busy
|
||||||
|
|
||||||
.6 jsr DevMgr.BLK
|
.6 ldy #$FC Size in Blk
|
||||||
|
lda (ZPPtr1),y
|
||||||
|
sta FD.BDEV+S.FD.DEV.SIZE
|
||||||
|
iny
|
||||||
|
lda (ZPPtr1),y
|
||||||
|
sta FD.BDEV+S.FD.DEV.SIZE+1
|
||||||
|
|
||||||
|
lda FD.BDEV+S.FD.DEV.BUSID 00000SSS
|
||||||
|
eor FD.BDEV+S.FD.DEV.BUSPTR+1 Cn
|
||||||
|
cmp #$C0
|
||||||
|
beq .70
|
||||||
|
|
||||||
|
ldx #8
|
||||||
|
jsr DevMgr.AddBDev Remapped BLK devices....
|
||||||
|
bra .8 don't mark slot as busy
|
||||||
|
|
||||||
|
.70 ldx #6
|
||||||
|
jsr DevMgr.AddBDev
|
||||||
lda #A2osX.S.BLK
|
lda #A2osX.S.BLK
|
||||||
|
|
||||||
.7 ldx FD.BDEV+S.FD.DEV.BUSID
|
.7 ldx FD.BDEV+S.FD.DEV.BUSID
|
||||||
|
|
@ -759,36 +792,17 @@ DevMgrInit >LDYAI MSG.DEV
|
||||||
.80 clc
|
.80 clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DevMgr.RAM ldx #0
|
DevMgr.AddBDev stx FD.BDEV+S.FD.DEV.TYPE
|
||||||
.HS 2C BIT ABS
|
|
||||||
*--------------------------------------
|
|
||||||
DevMgr.DII ldx #2
|
|
||||||
.HS 2C BIT ABS
|
|
||||||
*--------------------------------------
|
|
||||||
DevMgr.USR ldx #4
|
|
||||||
.HS 2C BIT ABS
|
|
||||||
*--------------------------------------
|
|
||||||
DevMgr.BLK ldx #6
|
|
||||||
.HS 2C BIT ABS
|
|
||||||
*--------------------------------------
|
|
||||||
DevMgr.RSP ldx #10
|
|
||||||
bra DevMgr.AddBDev
|
|
||||||
*--------------------------------------
|
|
||||||
DevMgr.SP ldy #$ff
|
|
||||||
lda (ZPPtr1),y
|
|
||||||
clc
|
|
||||||
adc #3 Compute smartport entry point
|
|
||||||
sta FD.BDEV+S.FD.DEV.BUSPTR
|
|
||||||
|
|
||||||
ldx #8
|
lda DRV.BDEVs,x
|
||||||
*--------------------------------------
|
sta FD.BDEV+S.FD.DEV.DRVPTR
|
||||||
DevMgr.AddBDev >LDYA DRV.BLKDEVX,x
|
lda DRV.BDEVs+1,x
|
||||||
>STYA FD.BDEV+S.FD.DEV.DRVPTR
|
sta FD.BDEV+S.FD.DEV.DRVPTR+1
|
||||||
|
|
||||||
>PUSHWI MSG.BLKDEV
|
>PUSHWI MSG.BDEV
|
||||||
>PUSHWI FD.BDEV.NAME
|
>PUSHWI FD.BDEV.NAME
|
||||||
>PUSHW FD.BDEV+S.FD.DEV.BUSPTR
|
>PUSHW FD.BDEV+S.FD.DEV.BUSPTR
|
||||||
>PUSHW MSG.BLKDEV.TBL,x
|
>PUSHW MSG.BDEVs,x
|
||||||
>PUSHBI 6
|
>PUSHBI 6
|
||||||
>SYSCALL2 printf
|
>SYSCALL2 printf
|
||||||
|
|
||||||
|
|
@ -829,7 +843,7 @@ DevMgr.VXD >LDYAI VSD.PATCH
|
||||||
bit RRAMWRAMBNK1
|
bit RRAMWRAMBNK1
|
||||||
bit RRAMWRAMBNK1
|
bit RRAMWRAMBNK1
|
||||||
|
|
||||||
lda #A2osX.S.VXDRIVE
|
lda #A2osX.S.VXD
|
||||||
sta A2osX.S,x
|
sta A2osX.S,x
|
||||||
|
|
||||||
plp
|
plp
|
||||||
|
|
@ -899,22 +913,22 @@ IrqMgrInit >LDYAI MSG.IRQ
|
||||||
pea $0000
|
pea $0000
|
||||||
pea $0000
|
pea $0000
|
||||||
>TKCALL GetVector
|
>TKCALL GetVector
|
||||||
bcs *
|
* bcs *
|
||||||
pla
|
pla
|
||||||
sta IRQ.GSVect+2
|
sta IRQ.GSVect+2
|
||||||
|
|
||||||
pla
|
pla
|
||||||
sta IRQ.GSVect
|
sta IRQ.GSVect
|
||||||
|
|
||||||
pea $000C Vertical blanking interrupt handler
|
pea $000C Vertical blanking interrupt handler
|
||||||
pea $0000
|
pea $0000
|
||||||
pea CORE.IRQGS
|
pea CORE.IRQGS
|
||||||
>TKCALL SetVector
|
>TKCALL SetVector
|
||||||
bcs *
|
* bcs *
|
||||||
|
|
||||||
pea $0002 Enable vertical blanking interrupts
|
pea $0002 Enable vertical blanking interrupts
|
||||||
>TKCALL IntSource
|
>TKCALL IntSource
|
||||||
bcs *
|
* bcs *
|
||||||
|
|
||||||
sep #$30 short M,X
|
sep #$30 short M,X
|
||||||
sec
|
sec
|
||||||
|
|
@ -1276,8 +1290,8 @@ Mouse.SIG .HS 38180120D6
|
||||||
TClock.OFS .HS 00020406
|
TClock.OFS .HS 00020406
|
||||||
TClock.SIG .HS 08285870
|
TClock.SIG .HS 08285870
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SmartPort.OFS .HS 010305
|
BDEV.OFS .HS 010305
|
||||||
SmartPort.SIG .HS 200003
|
BDEV.SIG .HS 200003
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MSG.Init2 .CZ "A2osX[Stage2]:Init\rRelocating Kernel...\r"
|
MSG.Init2 .CZ "A2osX[Stage2]:Init\rRelocating Kernel...\r"
|
||||||
MSG.KCREAD .CZ "Reading Kernel Config File..."
|
MSG.KCREAD .CZ "Reading Kernel Config File..."
|
||||||
|
|
@ -1289,25 +1303,28 @@ MSG.Init2.OK .CZ "A2osX[Stage2]:Complete."
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MSG.Init3 .CZ "A2osX[Stage3]:Init *** Press Ctrl-R for entering ROOT Mode ***\r\n"
|
MSG.Init3 .CZ "A2osX[Stage3]:Init *** Press Ctrl-R for entering ROOT Mode ***\r\n"
|
||||||
MSG.DEV .AZ "Device Manager..."
|
MSG.DEV .AZ "Device Manager..."
|
||||||
MSG.BLKDEV .CZ " Adding Device: /dev/%s, Addr:%H, Type: %s\r\n"
|
MSG.BDEV .CZ " Adding Device: /dev/%s, Addr:%H, Type: %s\r\n"
|
||||||
MSG.BLKDEV.TBL .DA MSG.BLKDEV.RAM
|
MSG.BDEVs .DA MSG.BDEV.D2
|
||||||
.DA MSG.BLKDEV.DII
|
.DA MSG.BDEV.RAM
|
||||||
.DA MSG.BLKDEV.USR
|
.DA MSG.BDEV.USR
|
||||||
.DA MSG.BLKDEV.BLK
|
.DA MSG.BDEV.BLK
|
||||||
.DA MSG.BLKDEV.SP
|
.DA MSG.BDEV.RBLK
|
||||||
.DA MSG.BLKDEV.RSP
|
.DA MSG.BDEV.SP
|
||||||
MSG.BLKDEV.RAM .AZ "/RAM Disk"
|
.DA MSG.BDEV.RSP
|
||||||
MSG.BLKDEV.DII .AZ "Disk ]["
|
MSG.BDEV.D2 .AZ "Disk ]["
|
||||||
MSG.BLKDEV.USR .AZ "User"
|
MSG.BDEV.RAM .AZ "/RAM Disk"
|
||||||
MSG.BLKDEV.BLK .AZ "Generic Block"
|
MSG.BDEV.USR .AZ "User Block"
|
||||||
MSG.BLKDEV.SP .AZ "SmartPort"
|
MSG.BDEV.BLK .AZ "Generic Block"
|
||||||
MSG.BLKDEV.RSP .AZ "SmartPort (Remapped)"
|
MSG.BDEV.RBLK .AZ "Generic Block (Remapped)"
|
||||||
DRV.BLKDEVX .DA DRV.RAM
|
MSG.BDEV.SP .AZ "SmartPort"
|
||||||
.DA DRV.DiskII
|
MSG.BDEV.RSP .AZ "SmartPort (Remapped)"
|
||||||
.DA DRV.BlkDev
|
DRV.BDEVs .DA DRV.BLK D2
|
||||||
.DA DRV.BlkDev
|
.DA DRV.BLK RAM
|
||||||
|
.DA DRV.BLK USR
|
||||||
|
.DA DRV.BLK
|
||||||
|
.DA DRV.BLK RBLK
|
||||||
.DA DRV.SP
|
.DA DRV.SP
|
||||||
.DA DRV.RSP
|
.DA DRV.BLK RSP
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MSG.IRQ .AZ "Interrupt Manager..."
|
MSG.IRQ .AZ "Interrupt Manager..."
|
||||||
MSG.IRQGS .AZ " Apple IIgs VBL IRQ Activated."
|
MSG.IRQGS .AZ " Apple IIgs VBL IRQ Activated."
|
||||||
|
|
@ -1375,6 +1392,7 @@ FD.NULL .DA #S.FD.T.CDEV
|
||||||
.DA DRV.NULL
|
.DA DRV.NULL
|
||||||
.DA 0 DCBPTR
|
.DA 0 DCBPTR
|
||||||
.DA 0 BUFPTR
|
.DA 0 BUFPTR
|
||||||
|
.BS 4
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
FD.NULL.NAME .AZ "null" NAME
|
FD.NULL.NAME .AZ "null" NAME
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
@ -1386,6 +1404,7 @@ FD.TTY .DA #S.FD.T.CDEV
|
||||||
.DA DRV.TERM
|
.DA DRV.TERM
|
||||||
.BS 2 DCBPTR
|
.BS 2 DCBPTR
|
||||||
.BS 2 BUFPTR
|
.BS 2 BUFPTR
|
||||||
|
.BS 4
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
FD.CONSOLE.NAME .AZ "console"
|
FD.CONSOLE.NAME .AZ "console"
|
||||||
FD.TTY.NAME .AZ "tty0"
|
FD.TTY.NAME .AZ "tty0"
|
||||||
|
|
@ -1398,6 +1417,8 @@ FD.BDEV .DA #S.FD.T.BDEV
|
||||||
.BS 2 DRVPTR
|
.BS 2 DRVPTR
|
||||||
.DA 0 DCBPTR
|
.DA 0 DCBPTR
|
||||||
.DA 0 BUFPTR
|
.DA 0 BUFPTR
|
||||||
|
.DA 0 SIZE
|
||||||
|
.DA 0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
FD.BDEV.NAME .AZ "s1d1"
|
FD.BDEV.NAME .AZ "s1d1"
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
|
||||||
|
|
@ -1,8 +1,7 @@
|
||||||
NEW
|
NEW
|
||||||
AUTO 3,1
|
AUTO 3,1
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DRV.TERM cld
|
DRV.TERM jmp (.1,x)
|
||||||
jmp (.1,x)
|
|
||||||
|
|
||||||
.1 .DA TERM.STATUS
|
.1 .DA TERM.STATUS
|
||||||
.DA A2osX.BADCALL
|
.DA A2osX.BADCALL
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue