mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-25 20:33:13 +00:00
Kernel version 0.9 : Block Device Support, Disk II & Generic BLk ok
This commit is contained in:
Rémy GIBERT
parent
9a65e64885
commit
82b83a26e8
BIN
A2OSX.BOOT.po
BIN
A2OSX.BOOT.po
Binary file not shown.
BIN
A2OSX.DEV.po
BIN
A2OSX.DEV.po
Binary file not shown.
BIN
A2OSX.SRC.po
BIN
A2OSX.SRC.po
Binary file not shown.
106
BIN/LSDEV.S.txt
106
BIN/LSDEV.S.txt
@ -35,7 +35,9 @@ CS.START cld
|
|||||||
.DA CS.QUIT
|
.DA CS.QUIT
|
||||||
L.MSG0 .DA MSG0
|
L.MSG0 .DA MSG0
|
||||||
L.MSG1 .DA MSG1
|
L.MSG1 .DA MSG1
|
||||||
L.MSG2 .DA MSG2
|
L.MSG2.C .DA MSG2.C
|
||||||
|
L.MSG2.B .DA MSG2.B
|
||||||
|
L.DEV.SIZE .DA DEV.SIZE
|
||||||
.DA 0
|
.DA 0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.INIT clc
|
CS.INIT clc
|
||||||
@ -49,49 +51,85 @@ CS.RUN >LDYA L.MSG0
|
|||||||
lda DEV.ID
|
lda DEV.ID
|
||||||
|
|
||||||
.1 >SYSCALL GetDevByIDA
|
.1 >SYSCALL GetDevByIDA
|
||||||
bcc .10
|
bcs .7
|
||||||
jmp .71
|
|
||||||
|
|
||||||
.10 >STYA pDev
|
|
||||||
>STYA ZPPTR1
|
>STYA ZPPTR1
|
||||||
|
|
||||||
ldy #S.DEV.DRV.JMP+1
|
jsr DumpHeader
|
||||||
>PUSHB (pDev),y
|
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
lda DEV.ID
|
||||||
|
>SYSCALL GetDevByIDA
|
||||||
|
>STYA pDev
|
||||||
|
|
||||||
|
ldx #DEVMGR.STATUS
|
||||||
|
jsr pDevJmp
|
||||||
|
bcs .6
|
||||||
|
>STYA ZPPTR2
|
||||||
|
|
||||||
|
jsr DumpStatus
|
||||||
|
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
.6 lda #13
|
||||||
|
>SYSCALL PutCA
|
||||||
|
lda #10
|
||||||
|
>SYSCALL PutCA
|
||||||
|
|
||||||
|
.7 inc DEV.ID
|
||||||
|
lda DEV.ID
|
||||||
|
cmp #K.DEV.MAX
|
||||||
|
bne .1
|
||||||
|
|
||||||
|
.8 lda #0 tell TSKMGR that all done ok, but
|
||||||
|
.9 sec we do not want to stay in memory
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
DumpHeader ldy #S.DEV.DRV.JMP+1
|
||||||
|
>PUSHB (ZPPTR1),y
|
||||||
|
|
||||||
dey
|
dey
|
||||||
>PUSHB (pDev),y
|
>PUSHB (ZPPTR1),y
|
||||||
|
|
||||||
lda #S.DEV.NAME
|
lda #S.DEV.NAME
|
||||||
clc
|
clc
|
||||||
adc pDev
|
adc ZPPTR1
|
||||||
tay
|
tay
|
||||||
|
|
||||||
lda /S.DEV.NAME
|
lda /S.DEV.NAME
|
||||||
adc pDev+1
|
adc ZPPTR1+1
|
||||||
|
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
|
|
||||||
ldy #S.DEV.F
|
ldy #S.DEV.F
|
||||||
>PUSHB (pDev),y
|
>PUSHB (ZPPTR1),y
|
||||||
|
|
||||||
ldy #S.DEV.S
|
ldy #S.DEV.S
|
||||||
>PUSHB (pDev),y
|
>PUSHB (ZPPTR1),y
|
||||||
|
sta DEV.S
|
||||||
|
|
||||||
>PUSHB DEV.ID
|
>PUSHB DEV.ID
|
||||||
|
|
||||||
>LDYA L.MSG1
|
>LDYA L.MSG1
|
||||||
>SYSCALL CPrintFYA
|
>SYSCALL CPrintFYA
|
||||||
bcs .9
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
DumpStatus bit DEV.S
|
||||||
|
bpl .1
|
||||||
|
|
||||||
>LDYA ZPPTR1
|
ldy #S.DEVSTAT.SIZE
|
||||||
>STYA pDev
|
lda (ZPPTR2),y
|
||||||
|
sta DEV.SIZE
|
||||||
|
iny
|
||||||
|
lda (ZPPTR2),y
|
||||||
|
sta DEV.SIZE+1
|
||||||
|
iny
|
||||||
|
lda (ZPPTR2),y
|
||||||
|
sta DEV.SIZE+2
|
||||||
|
>PUSHW L.DEV.SIZE
|
||||||
|
|
||||||
ldx #DEVMGR.STATUS
|
.1 ldy #S.DEVSTAT.VERSION+1
|
||||||
jsr pDevJmp
|
|
||||||
bcs .7
|
|
||||||
>STYA ZPPTR2
|
|
||||||
|
|
||||||
ldy #S.DEVSTAT.VERSION+1
|
|
||||||
>PUSHB (ZPPTR2),y
|
>PUSHB (ZPPTR2),y
|
||||||
dey
|
dey
|
||||||
>PUSHB (ZPPTR2),y
|
>PUSHB (ZPPTR2),y
|
||||||
@ -110,23 +148,14 @@ CS.RUN >LDYA L.MSG0
|
|||||||
dey
|
dey
|
||||||
>PUSHB (ZPPTR2),y
|
>PUSHB (ZPPTR2),y
|
||||||
|
|
||||||
>LDYA L.MSG2
|
bit DEV.S
|
||||||
>SYSCALL CPrintFYA
|
bpl .2
|
||||||
bcs .9
|
|
||||||
|
|
||||||
.7 lda #13
|
>LDYA L.MSG2.B
|
||||||
>SYSCALL PutCA
|
bra .3
|
||||||
lda #10
|
.2 >LDYA L.MSG2.C
|
||||||
>SYSCALL PutCA
|
|
||||||
|
|
||||||
.71 inc DEV.ID
|
.3 >SYSCALL CPrintFYA
|
||||||
lda DEV.ID
|
|
||||||
cmp #K.DEV.MAX
|
|
||||||
beq .8
|
|
||||||
jmp .1
|
|
||||||
|
|
||||||
.8 lda #0 tell TSKMGR that all done ok, but
|
|
||||||
.9 sec we do not want to stay in memory
|
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.EVENT sec
|
CS.EVENT sec
|
||||||
@ -136,11 +165,14 @@ CS.QUIT clc
|
|||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.END
|
CS.END
|
||||||
MSG0 >CSTR "ID Status Flags Name Addr. Typ/Sub IDString Version\r\n"
|
MSG0 >CSTR "ID Status Flags Name Addr. Typ/Sub IDString Version Size (BLK)\r\n"
|
||||||
MSG1 >CSTR "%03d %b %b %4S $%H "
|
MSG1 >CSTR "%03d %b %b %4S $%H "
|
||||||
MSG2 >CSTR "$%h/$%h %16S %03d.%03d"
|
MSG2.B >CSTR "$%h/$%h %16S %03d.%03d %10u"
|
||||||
|
MSG2.C >CSTR "$%h/$%h %16S %03d.%03d n/a"
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DEV.ID .BS 1
|
DEV.ID .BS 1
|
||||||
|
DEV.S .BS 1
|
||||||
|
DEV.SIZE .BS 4
|
||||||
MAN
|
MAN
|
||||||
SAVE BIN/LSDEV.S
|
SAVE BIN/LSDEV.S
|
||||||
ASM
|
ASM
|
||||||
|
|||||||
@ -28,20 +28,6 @@ AUTO 6
|
|||||||
* A = Param Count
|
* A = Param Count
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
jmp A2osX.MLICALL1
|
jmp A2osX.MLICALL1
|
||||||
*--------------------------------------
|
|
||||||
* BLKCALL (AUXLC to MAINLC)
|
|
||||||
* Used by Kernel
|
|
||||||
* In:
|
|
||||||
* Y,A = Ptr To Param Block
|
|
||||||
*--------------------------------------
|
|
||||||
jmp A2osX.BLKCALL1
|
|
||||||
*--------------------------------------
|
|
||||||
* PRTCALL (AUXLC to MAINLC)
|
|
||||||
* Used by Kernel
|
|
||||||
* In:
|
|
||||||
* Y,A = Ptr To Param Block
|
|
||||||
*--------------------------------------
|
|
||||||
jmp A2osX.PRTCALL1
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.BS $BD10-*
|
.BS $BD10-*
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
@ -103,53 +89,37 @@ A2osX.MLICALL1 stx .1
|
|||||||
jsr GO.A2osX
|
jsr GO.A2osX
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* BLKCALL.PARAMS
|
* A2osX.DIIDrv,A2osX.BlkDrv
|
||||||
* (To be moved to MainZP/LC For DII)
|
* X = DEVMGR.cmd
|
||||||
|
* Y,A = PTR to Params
|
||||||
|
* pDev -> Dev Header
|
||||||
* $42 Command Number
|
* $42 Command Number
|
||||||
* $43 Unit Number
|
* $43 Unit Number
|
||||||
* $44-$45 Buffer Pointer
|
* $44-$45 Buffer Pointer
|
||||||
* $46-$47 Block Number
|
* $46-$47 Block Number
|
||||||
* X = DEVMGR.cmd
|
|
||||||
* pDev -> Dev Header
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
A2osX.BLKCALL1 >STYA .2+1 setup device entry point $Cnxx
|
A2osX.DIIDrv .DA A2osX.DIIDrv.S status
|
||||||
|
.DA A2osX.DIIDrv.RW Read
|
||||||
jsr GO.ProDOS
|
.DA A2osX.DIIDrv.RW Write
|
||||||
|
.DA A2osX.DRV.BadCall Format
|
||||||
ldx #5
|
.DA A2osX.DRV.BadCall
|
||||||
|
.DA A2osX.DRV.BadCall
|
||||||
.1 lda BLKCALL.PARAMS,x
|
.DA A2osX.DRV.BadCall
|
||||||
sta $42,x setup ZP in main memory for this block device call
|
.DA A2osX.DRV.BadCall
|
||||||
dex
|
.DA A2osX.DRV.BadCall
|
||||||
bpl .1
|
.DA A2osX.DRV.BadCall
|
||||||
|
.DA A2osX.DRV.BadCall
|
||||||
.2 jsr $ffff
|
*--------------------------------------
|
||||||
|
A2osX.DIIDrv.S >LDYAI A2osx.DIIStat
|
||||||
jsr GO.A2osX
|
clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
A2osX.DIIDrv txa Status ?
|
A2osX.DIIDrv.RW jsr A2osX.Prt2Blk
|
||||||
beq .2
|
|
||||||
|
|
||||||
jsr GO.ProDOS
|
jsr GO.ProDOS
|
||||||
|
|
||||||
asl
|
|
||||||
sta $42
|
|
||||||
|
|
||||||
ldx #5
|
|
||||||
|
|
||||||
.1 lda BLKCALL.PARAMS,x
|
|
||||||
sta $42,x setup ZP in main memory for this block device call
|
|
||||||
dex
|
|
||||||
bne .1
|
|
||||||
|
|
||||||
jsr $D000
|
jsr $D000
|
||||||
jsr GO.A2osX
|
jsr GO.A2osX
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.2 >LDYAI A2osx.DIIStat
|
|
||||||
clc
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
A2osx.DIIStat .DA #S.DEVSTAT.S.BLOCK+S.DEVSTAT.S.WRITE+S.DEVSTAT.S.READ
|
A2osx.DIIStat .DA #S.DEVSTAT.S.BLOCK+S.DEVSTAT.S.WRITE+S.DEVSTAT.S.READ
|
||||||
.DA 280
|
.DA 280
|
||||||
@ -160,7 +130,45 @@ A2osx.DIIStat .DA #S.DEVSTAT.S.BLOCK+S.DEVSTAT.S.WRITE+S.DEVSTAT.S.READ
|
|||||||
.DA #0
|
.DA #0
|
||||||
.DA #0,#9
|
.DA #0,#9
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
A2osx.GenStat .DA #S.DEVSTAT.S.BLOCK+S.DEVSTAT.S.WRITE+S.DEVSTAT.S.READ
|
* Generic Blk Device
|
||||||
|
*--------------------------------------
|
||||||
|
A2osX.BlkDrv .DA A2osX.BlkDrv.S status
|
||||||
|
.DA A2osX.BlkDrv.RW
|
||||||
|
.DA A2osX.BlkDrv.RW
|
||||||
|
.DA A2osX.BlkDrv.F
|
||||||
|
.DA A2osX.DRV.BadCall
|
||||||
|
.DA A2osX.DRV.BadCall
|
||||||
|
.DA A2osX.DRV.BadCall
|
||||||
|
.DA A2osX.DRV.BadCall
|
||||||
|
.DA A2osX.DRV.BadCall
|
||||||
|
.DA A2osX.DRV.BadCall
|
||||||
|
.DA A2osX.DRV.BadCall
|
||||||
|
*--------------------------------------
|
||||||
|
A2osX.BlkDrv.S jsr A2osX.Prt2Blk.NoParam
|
||||||
|
|
||||||
|
jsr A2osX.BlkDrv.Go
|
||||||
|
bcs *
|
||||||
|
stx A2osx.BlkStat+S.DEVSTAT.SIZE
|
||||||
|
sty A2osx.BlkStat+S.DEVSTAT.SIZE+1
|
||||||
|
|
||||||
|
>LDYAI A2osx.BlkStat
|
||||||
|
clc
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
A2osX.BlkDrv.RW jsr A2osX.Prt2Blk
|
||||||
|
bra A2osX.BlkDrv.Go
|
||||||
|
*--------------------------------------
|
||||||
|
A2osX.BlkDrv.F jsr A2osX.Prt2Blk.NoParam
|
||||||
|
A2osX.BlkDrv.Go ldy #S.DEV.ROM.JMP
|
||||||
|
lda (pDev),y
|
||||||
|
sta .8+1
|
||||||
|
iny
|
||||||
|
lda (pDev),y
|
||||||
|
sta .8+2
|
||||||
|
|
||||||
|
.8 jmp $ffff
|
||||||
|
*--------------------------------------
|
||||||
|
A2osx.BlkStat .DA #S.DEVSTAT.S.BLOCK+S.DEVSTAT.S.WRITE+S.DEVSTAT.S.READ
|
||||||
.BS 3
|
.BS 3
|
||||||
>PSTR "Generic Blk Dev"
|
>PSTR "Generic Blk Dev"
|
||||||
.BS 1
|
.BS 1
|
||||||
@ -168,21 +176,62 @@ A2osx.GenStat .DA #S.DEVSTAT.S.BLOCK+S.DEVSTAT.S.WRITE+S.DEVSTAT.S.READ
|
|||||||
.DA #0
|
.DA #0
|
||||||
.DA #0,#9
|
.DA #0,#9
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* Smartport Call
|
A2osX.Prt2Blk >STYA ZPDRV Get Ptr To ParamList
|
||||||
*--------------------------------------
|
jsr A2osX.Prt2Blk.NoParam
|
||||||
A2osX.PRTCALL1 >STYA .1+1
|
|
||||||
txa
|
ldy #3
|
||||||
lsr
|
|
||||||
sta .2
|
.1 lda (ZPDRV),y
|
||||||
tax
|
sta ($44),y
|
||||||
lda A2osX.PRTCALL.Cnt,x
|
dey
|
||||||
sta PRTCALL.PARAMS
|
bpl .1
|
||||||
.1 jsr $ffff
|
rts
|
||||||
.2 .BS 1 CMD
|
|
||||||
.DA PRTCALL.PARAMS
|
A2osX.Prt2Blk.NoParam
|
||||||
|
txa
|
||||||
|
asl
|
||||||
|
sta $42 CMD
|
||||||
|
|
||||||
|
ldy #S.DEV.DEVID Drive 1, or 2
|
||||||
|
lda (pDev),y
|
||||||
|
dec O or 1
|
||||||
|
lsr in Carry
|
||||||
|
php
|
||||||
|
|
||||||
|
ldy #S.DEV.BUSID
|
||||||
|
lda (pDev),y
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
plp
|
||||||
|
ror
|
||||||
|
sta $43 DSSS0000
|
||||||
|
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
* Smartport
|
||||||
|
*--------------------------------------
|
||||||
|
*A2osX.PrtDrv >STYA .1+1
|
||||||
|
* txa
|
||||||
|
* beq STATUS
|
||||||
|
* lsr
|
||||||
|
* sta .2
|
||||||
|
* tax
|
||||||
|
* lda A2osX.PRTCALL.Cnt,x
|
||||||
|
* sta PRTCALL.PARAMS
|
||||||
|
*.1 jsr $ffff
|
||||||
|
*.2 .BS 1 CMD
|
||||||
|
* .DA PRTCALL.PARAMS
|
||||||
|
* rts
|
||||||
|
*A2osX.PRTCALL.Cnt
|
||||||
|
* .HS 03030301030101010404
|
||||||
|
*--------------------------------------
|
||||||
|
A2osX.DRV.BadCall
|
||||||
|
lda #MLI.ERR.BADCALL
|
||||||
|
sec
|
||||||
rts
|
rts
|
||||||
A2osX.PRTCALL.Cnt
|
|
||||||
.HS 03030301030101010404
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
GO.ProDOS lda $D000 We re coming from AUXLC, saving bank...
|
GO.ProDOS lda $D000 We re coming from AUXLC, saving bank...
|
||||||
sta GO.A2osX.BNK+1
|
sta GO.A2osX.BNK+1
|
||||||
|
|||||||
@ -252,10 +252,13 @@ DEVSIG.Value .HS 38180120D6
|
|||||||
DevMgrInit stz ZPPtr1
|
DevMgrInit stz ZPPtr1
|
||||||
lda #$C1
|
lda #$C1
|
||||||
sta ZPPtr1+1
|
sta ZPPtr1+1
|
||||||
lda #'1'
|
lda #1
|
||||||
sta DEV.HEADER+S.DEV.NAME+4 S1Dy
|
sta DEV.HEADER+S.DEV.BUSID
|
||||||
|
|
||||||
.1 ldx #SmartPort.SIG-SmartPort.OFS-1
|
.1 lda #1
|
||||||
|
sta DEV.HEADER+S.DEV.DEVID
|
||||||
|
|
||||||
|
ldx #SmartPort.SIG-SmartPort.OFS-1
|
||||||
|
|
||||||
.2 ldy SmartPort.OFS,x Check if there is a smartport firmware
|
.2 ldy SmartPort.OFS,x Check if there is a smartport firmware
|
||||||
lda (ZPPtr1),y
|
lda (ZPPtr1),y
|
||||||
@ -292,7 +295,7 @@ DevMgrInit stz ZPPtr1
|
|||||||
tya
|
tya
|
||||||
sta A2osX.SLOTS,x
|
sta A2osX.SLOTS,x
|
||||||
|
|
||||||
.8 inc DEV.HEADER+5
|
.8 inc DEV.HEADER+S.DEV.BUSID
|
||||||
inc ZPPtr1+1
|
inc ZPPtr1+1
|
||||||
lda ZPPtr1+1
|
lda ZPPtr1+1
|
||||||
cmp #$C8
|
cmp #$C8
|
||||||
@ -301,6 +304,28 @@ DevMgrInit stz ZPPtr1
|
|||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
DevMgrInit.DII >LDYAI A2osX.DIIDrv
|
||||||
|
>STYA DEV.HEADER+S.DEV.DRV.JMP
|
||||||
|
jsr DevMgrInit.AddDev
|
||||||
|
inc DEV.HEADER+S.DEV.DEVID
|
||||||
|
jsr DevMgrInit.AddDev
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
DevMgrInit.BLK sta DEV.HEADER+S.DEV.ROM.JMP
|
||||||
|
lda ZPPtr1+1
|
||||||
|
sta DEV.HEADER+S.DEV.ROM.JMP+1
|
||||||
|
|
||||||
|
>LDYAI A2osX.BlkDrv
|
||||||
|
>STYA DEV.HEADER+S.DEV.DRV.JMP
|
||||||
|
|
||||||
|
jsr DevMgrInit.AddDev
|
||||||
|
inc DEV.HEADER+S.DEV.DEVID
|
||||||
|
jsr DevMgrInit.AddDev
|
||||||
|
rts
|
||||||
|
|
||||||
|
DevMgrInit.BLK.JMP
|
||||||
|
jmp (DEV.HEADER+S.DEV.ROM.JMP)
|
||||||
|
*--------------------------------------
|
||||||
DevMgrInit.SP ldy #$ff
|
DevMgrInit.SP ldy #$ff
|
||||||
lda (ZPPtr1),y
|
lda (ZPPtr1),y
|
||||||
clc
|
clc
|
||||||
@ -341,28 +366,30 @@ DevMgrInit.SP ldy #$ff
|
|||||||
|
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DevMgrInit.DII >LDYAI A2osX.DIIDrv
|
|
||||||
>STYA DEV.HEADER+S.DEV.ROM.JMP
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
DevMgrInit.BLK
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
DevMgrInit.AddDev
|
DevMgrInit.AddDev
|
||||||
lda DevMgr.Count
|
lda DevMgr.Count
|
||||||
cmp #K.DEV.MAX
|
cmp #K.DEV.MAX
|
||||||
beq .9
|
beq .9
|
||||||
|
|
||||||
inc DevMgr.Count
|
inc DevMgr.Count
|
||||||
jsr K.GetDevByIDA
|
>SYSCALL GetDevByIDA
|
||||||
>STYA ZPPtr1
|
>STYA ZPPtr2
|
||||||
|
|
||||||
|
lda DEV.HEADER+S.DEV.BUSID
|
||||||
|
ora #$30
|
||||||
|
sta DEV.HEADER+S.DEV.NAME+2 SnDy
|
||||||
|
|
||||||
|
lda DEV.HEADER+S.DEV.DEVID
|
||||||
|
ora #$30
|
||||||
|
sta DEV.HEADER+S.DEV.NAME+4 SxDn
|
||||||
|
|
||||||
ldy #S.DEV-1
|
ldy #S.DEV-1
|
||||||
|
|
||||||
.1 lda DEV.HEADER,y
|
.1 lda DEV.HEADER,y
|
||||||
sta (ZPPtr1),y
|
sta (ZPPtr2),y
|
||||||
dey
|
dey
|
||||||
bne .1
|
bpl .1
|
||||||
|
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@ -394,28 +421,6 @@ SP.DEV.STATUS .DA #3
|
|||||||
SP.STATUS1 .BS 4
|
SP.STATUS1 .BS 4
|
||||||
SP.STATUS2 .BS S.DEVSTAT
|
SP.STATUS2 .BS S.DEVSTAT
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SP.DRV cld
|
|
||||||
ldy #7
|
|
||||||
lda (pDev),y
|
|
||||||
and #$f
|
|
||||||
sta PRTCALL.PARAMS+1 dev
|
|
||||||
SP.DRV.lo ldy #$ff
|
|
||||||
SP.DRV.hi lda #$ff
|
|
||||||
jmp A2osX.PRTCALL
|
|
||||||
*--------------------------------------
|
|
||||||
DII.DRV cld
|
|
||||||
lda #$ff DSSS0000
|
|
||||||
cpx #DEVMGR.CONTROL
|
|
||||||
bcs .9
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
.9 lda #MLI.ERR.BADCALL
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
BLK.DRV
|
|
||||||
*--------------------------------------
|
|
||||||
EvtMgrInit lda #$A5
|
EvtMgrInit lda #$A5
|
||||||
sta A2osX.TIMER16
|
sta A2osX.TIMER16
|
||||||
lda #$9B
|
lda #$9B
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user